Español
Foro

Alphabetische Sortierung y Dubletten-Eliminierung

 

Hans
Hermann
¡Hola!
Gibt lo irgendwo una (möglichst simple) Möglichkeit (z. B. como en Perl), Textzeilen uno TXT-Expediente alphabetisch a sortieren y gleichzeitig en Doppel-Zeilen a überprüfen y a bereinigen?
Vielen Dank!
Hans
 
22.10.2011  
 




Jörg
Sellmeyer
¡Hola Hans,

Yo sería el Textdatei en un (unsichtbare) sortierte Listbox einladen y luego con GetString cada Zeilen vergleichen. Dabei Usted necesita entonces siempre sólo benachbarte Zeilen vergleichen y entdeckte Doppelte rausschmeißen.
Saludo
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
22.10.2011  
 



Jo: [...] 
 
23.10.2011  
 




Julian
Schmidt
Hier una Ver código fuente a Jörgs Vorschlag...
KompilierenMarcaSeparación
Proc AddTextFileToListBox

    Parameters liste&,file$,reset%
    Declare tempedit&,size&,anzahlzeilen%,i%,buf#
    FindFirst$(file$)
    Case %IOResult: Return 0
    Case reset%: SendMessage(liste&,$0184,0,0)'ListBox je nach Option leeren
    Let tempedit&=Create("MultiEdit",GetActiveWindow(),"",0,0,0,1)
    Set("FileMode",0)
    Assign #1,file$
    OpenRW #1
    size&=GetFileSize(#1)
    Dim buf#,size&+1
    BlockRead(#1,buf#,0,size&)' Dateiinhalt einlesen...
    CloseRW #1
    SendMessage(tempedit&,$0C,0,buf#)'... und in  temp. Edit schreiben
    anzahlzeilen%=SendMessage(tempedit&,$0BA,0,0)
    Dispose buf#

    While i%<anzahlzeilen%

        AddString(liste&,GetString$(tempedit&,i%))
        Inc i%

    Endwhile

    DestroyWindow(tempedit&)' temp. Edit freigeben
    Return 1

EndProc

Proc Delete_Double_Entries

    Parameters liste&
    var counter%=0

    while counter%<>Getcount(liste&)-1

        if GetString$(liste&,counter%)=GetString$(liste&,counter%+1)

            DeleteString(liste&,counter%)

        else

            counter%=counter%+1

        Endif

    Endwhile

    Return 1

EndProc

Cls
var listbox&=Create("ListBox",%hwnd,1,0,30,width(%hwnd),height(%hwnd)-30)
AddTextFileToListBox(listbox&,$WinPath+"\WIN.INI",1)

whileloop 10

    AddString(listbox&,"Das ist ein Test")

Endwhile

print "Win.ini + 10 mal den String 'Das ist ein Test' eingeladen..."
waitinput
Delete_Double_Entries(listbox&)
print "Doppelte Listebox-Einträge entfernt"

While 1

    WaitInput

s4 href='./../../funcion-referencias/XProfan/endwhile/'>Endwhile


El Procedimiento AddTextFileToListBox stammt allgemein de [...] 

[OFFTOPIC]hmm...If war más rápido [/OFFTOPIC]


LG

Julian57
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
23.10.2011  
 



IF (23.10.11)


Einfach en Búsqueda oben veces "doppel" eingeben.

@Julian: Ganz schön umständlich.

Lieber rein con input en Verbindung con addString oder doch fgc (file_get_contents) ( [...]  ) y luego explode y MoveArrToList.
 
23.10.2011  
 



Herzlichen Dank!!

Hans
 
23.10.2011  
 




Julian
Schmidt
IF (23.10.11)

@Julian: Ganz schön umständlich.
Lieber rein con input en Verbindung con addString oder doch fgc (file_get_contents) ( [...]  ) y luego explode y MoveArrToList.


Yo sag sí Yo tener el Procedimiento simplemente sólo übernommen.....[...] 
Kann ya ser el lo leichter va. War eben una alter Ver código fuente
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
23.10.2011  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

7.178 Views

Untitledvor 0 min.
Hans Hermann07.05.2015
Klaus Ernst25.08.2014
RudiB.08.11.2012
Torben Nissen11.03.2012
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie