fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Mein selbstentworfender Parser JUHU!!

Uploader:	AndT
Datum/Zeit:	29.11.2007 20:43:37

dim as integer leerzeichen,dummy

dim as string tmptxt1

dim as string tmptxt2

dim as integer Zeilen

dim as string codezeile

open "prog.txt" for input as #1

do

input #1,dummy

Zeilen+=1

loop until eof(1)

close #1

open "prog.txt" for input as #1



dim as integer leerzeichenpos(leerzeichen)

' Anzahl der Leerzeichen feststellen

for i2 as integer = 1 to Zeilen

    input #1,codezeile

for i as integer = 1 to len(codezeile)

    if mid(codezeile,i,1)=" " then leerzeichen +=1

next



' Difinieren

redim leerzeichenpos(leerzeichen)



' Noch mal das gleiche aber jetzt mit speichern der Leerzeichen

leerzeichen = 0

for i as integer = 1 to len(codezeile)

    if mid(codezeile,i,1)=" " then leerzeichen +=1:leerzeichenpos(leerzeichen)=i



next





dim as string tmptext

for i as integer = 0 to leerzeichen

tmptxt1= mid(codezeile,leerzeichenpos(i)+1,len(codezeile)-leerzeichenpos(i))

if instr(tmptxt1," ") > 0 then

    tmptxt2 = left(tmptxt1,instr(tmptxt1," "))

else

    tmptxt2 = tmptxt1

end if

print tmptxt2,leerzeichenpos(i)+1,len(codezeile)-leerzeichenpos(i)

next

next

sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX 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.