| |
![zurück](../images/b_zurueck.gif)
VB Skript (VBS)Problem Datei einlesen mit NullString | | ![](../images/trans.gif) | 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. | ![](../images/trans.gif) |
![](../images/48x48/info.gif) | 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 |
![nach oben](../images/b_top.gif) ![zurück](../images/b_zurueck.gif) |
|
sevZIP40 Pro DLL ![sevZIP 4.0 Pro für VB/VBA und VB.NET](../images/werbung/sevzip30_100x100.jpg)
Zippen und Unzippen wie die Profis!
Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Weitere InfosTipp des Monats Access-Tools Vol.1 ![Access-Tools CD Vol.1](../images/werbung/apvol1_68x100.gif)
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|