Wie Gerhard schon geschrieben hat, sollte man ein Dictionary benutzen...
So etwa...
Set dic = createobject("Scripting.Dictionary")
Set fso = createobject("Scripting.FileSystemObject")
Set stream = fso.openTextFile("file.txt",1) '1=forReading
Do while not stream.AtEndOfStream
line = stream.readLine()
if line<>"" then
dic(line) = 1
End if
Loop
stream.close()
Set stream = fso.openTextFile("file.txt",2) '2=forWriting
For each k in dic.Keys()
stream.writeLine k
next
stream.close()
Claudius
>
> Moin Liste,
>
> nach automatisierten Textexports aus Excel-Files habe ich
> hier ein Textfile
> in folgender Form:
>
> Wert1234
> Wert3452
> 2345irgendwas
> Wert1234
>
> Wert2233
>
> usw. usw.
> Umfang zwischen 100 - 15000 Zeilen. In diesem Textfile sollen
> nun die leeren
> (was kein Problem ist) und die doppelten
> Strings entfernt werden. Sprich: Aus obigen Beispiel soll werden:
>
> Wert1234
> Wert3452
> 2345irgendwas
> Wert2233
>
> hat da mal jemand einen "programmatischen" Ansatz? Das ganze
> soll natuerlich
> in Hinsicht auf die zu erwartende Zeilenmenge m�glichst fix gehen. Ein
> Einlesen in eine DB ist (leider) nicht moeglich (vom Kunden nicht
> gewuenscht).
>
> suggests?
>
> Gruesse
>
> Frank
>
>
> | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> |
> http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffee
house.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
