Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problem Datei einlesen mit NullString
Autor: kobo3
Datum: 18.10.06 11:56
Hallo Leute habe folgendes Problem, möchte eine Textdatei einlesen, bei der manchmal am Zeilenende eine CHR(0) steht. Habe alles mögliche probiert, die Datei komplett eingelesen und ein Replace CHR(0) gemacht, die Datei zeilenweise eingelesen und chr(0) replaced, CHR(0) & CHR(10) mit CHR(10) replaced aber bekomme immer nur die Hälfte der Daten Zurück. entweder fehlt ein Teil von der Zeile (beim Zeilenweisen einlese) oder es fehlt die Hälfte der Zeilen beim kompletten einlesen. Ich weiß echt net weiter. Im Hex Editor sieht ein Auszug der Datei folgendermaßen aus: 5072FC6670726F6772616D6D0953657269656E6E756D6D6572094665686C6572636F64650948656C6C69676B656974204C756D656E094D697474656C77657274204C756D656E095374616E646172646162772E4C756D656E096D61782E476C656963686DE4DF69676B656974096D696E2E476C656963686DE4DF69676B656974094B6F6E74726173742028313A290942696C646775657465204F4B09446174756D095568727A656974095072FC66626F78204E722E094C6F67496E0946617262726164626577657274756E670954696D6544656C6179094B6F6E74726173742046756C6C4F6E4F666628313A29094C756D656E4F62656E556E74656E094C756D656E4C696E6B735265636874730953657269656E6E756D6D657220444D440953657269656E6E756D6D6572204C616D70650953657269656E6E756D6D657220466172627261640953657269656E6E756D6D657220486561642D456C656B74726F6E696B094B656E6E77657274312042696C646775657465094B656E6E77657274322042696C646775657465094B656E6E77657274332042696C64677565746509457273746572204772617577657274203109477261757765727420310942656C69636874756E67537461727420310942656C69636874756E67737A65697420310942656C69636874756E675FFC6265727374657565727420310942656C69636874756E675F756E746572737465756572742031095665727A6F65676572756E6753746172742031095665727A6F65676572756E67737A6569742031095665727A6F65676572756E675FFC626572737465756572742031095665727A6F65676572756E675F756E74657273746575657274203109457273746572204772617577657274203209477261757765727420320942656C69636874756E67537461727420320942656C69636874756E67737A65697420320942656C69636874756E675FFC6265727374657565727420320942656C69636874756E675F756E746572737465756572742032095665727A6F65676572756E6753746172742032095665727A6F65676572756E67737A6569742032095665727A6F65676572756E675FFC626572737465756572742032095665727A6F65676572756E675F756E74657273746575657274203209457273746572204772617577657274203309477261757765727420330942656C69636874756E67537461727420330942656C69636874756E67737A65697420330942656C69636874756E675FFC6265727374657565727420330942656C69636874756E675F756E746572737465756572742033095665727A6F65676572756E6753746172742033095665727A6F65676572756E67737A6569742033095665727A6F6 Hier ein paar der tausend Möglichkeiten die ich schon probiert habe: Dim fs, txtST, FileName set fs=CreateObject("Scripting.FileSystemObject") FileName = "C:\2006_08_21.csv" set txtST = fs.OpenTextFile(FileName,1) 'Variante 1 DO UNTIL txtST.AtEndOfStream sLine = txtST.ReadLine ' Datenzeile auslesen msgbox Right(sLine, Len(sLine)-1) LOOP 'Variante 2 For Each strLine In Split(REPLACE(txtST.ReadAll,CHR(10) & CHR(0),CHR(13)), CHR(13)) msgbox strLine Next 'Variante 3 myText = REPLACE(txtST.ReadAll,CHR(0),"") myText = REPLACE(myText,CHR(0),"") For Each strLine In Split(myText, CHR(10)) strLine = Replace( strLine , Chr(0) , "") msgbox strLine Next währe euch echt dankbar wenn ihr was wisst.

Problem Datei einlesen mit NullString	1.505	kobo3	18.10.06 11:56
Re: Problem Datei einlesen mit NullString	791	~~~dexter~~~	18.10.06 14:18
Re: Problem Datei einlesen mit NullString	720	kobo3	18.10.06 14:24
Re: Problem Datei einlesen mit NullString	899	kobo3	19.10.06 18:31

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen