| |
|
|
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 |
|
|
| |
|
|
|
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 ▲ |
|
|
|
|
| |
|
| |
|
|
|
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 |
|
|
| |
|
|
|
| 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. |
|
|
| |
|
|
|
| |
|
| |
|
|
|
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 |
|
|
| |
|
|