title image


Smiley Re: Ich weiß nicht, woher deine Daten kommen, aber ich könnte schwören, das
Es geht also darum, festzustellen, welches Trennzeichen benutzt wurde und offensichtlich wurde eh nur eine einzige Zeile erzeugt. Wenn es wirklich ein "Tab" ist, funktioniert dieses hier:



Dim strDatei As String

Dim ff As Integer

Dim strInhalt As String

Dim strZeile As String

Dim i As Integer



strDatei = "d:\test\test.txt"

ff = FreeFile()



Open strDatei For Binary As ff

strInhalt = Space$(LOF(ff))

Get #ff, , strInhalt

Close ff



strInhalt=Replace(strInhalt, Chr(9), vbCrLf)



i=Instr(1, strInhalt, vbCrLf)



strInhalt=Right(strInhalt, Len(strInhalt)-i)



ff=Freefile()



Open StrDatei For Output As ff

Print #ff, strInhalt

Close ff





Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: