65182
Goto Top

vb6 codes unter vb 2008 express

Hallo,

ich habe hier diesen Quellcode unter vb 6 geschrieben:

open [Datei] for input as #1

do

line input #1, a

b=split(a, ";")  

c=b(0)
beschreibung=b(1)

if c="VD00654" then ...  

loop until eof(1)

Nun wollte ich, da ich zuhause vb 2008 benutze den Quellcode dort einfügen doch er erkennt den Befehl "open datei for input as #1"
weiß jemand wie ich das ungefähr in vb 08 schreiben müsste?


MfG justina

Content-Key: 88604

Url: https://administrator.de/contentid/88604

Printed on: April 24, 2024 at 01:04 o'clock

Mitglied: 56153
56153 May 28, 2008 at 09:26:13 (UTC)
Goto Top
Dim fr as System.IO.StreamReader = My.Computer.Filesystem.OpenTextFileReader([Datei])

do while fr.endofstream = false
dim strLine as string = fr.ReadLine()
dim strSplittedLine() as string = strLine.Split(";")  

dim c as string = strSplittedLine(0)
dim beschreibung as string = strSplittedLine(1)

if c = "VD00654 Then  
'do something  
end if

loop

so ist zwar ungetestet, müßte aber eigentlich so hinhauen ;)