Autor | Thema: Assign | | Datum:16.07.02 18:49 
| |
Hi
ich habe in einer Textdatei in jeder zeile zwei wörter mit jeweils einen komma getrennt. Nun möchte ich in der textdatei gezielt auf eine der Dateien zugreifen und wenn es sie nicht gibt, soll eine fehlermeldung kommen. danach soll es die wörter mit substr trennen.
kann mir einer helfen?
Kurz: Eine Suchmaschine die Textdateien durchsucht!
MFG Dieter
|
| | Datum:16.07.02 19:40 
(mrk@mrk-soft.de) | |
proc suche
parameters datei$, suche$
declare io%, lese$, value$, ls1$, ls2$
io% = %IOresult
Assign #1,datei$
Reset #1
If %IOResult = 0
While eof(#1) = 0
Input #1,lese$
ls1$ = SubStr$(lese$,1,",")
ls2$ = SubStr$(lese$,2,",")
If lower$(ls1$) = lower$(suche$)
value$ = lese$
Break
Endif
If lower$(ls2$) = lower$(suche$)
value$ = lese$
Break
Endif
Wend
Endif
Close #1
Return Value$
endproc
cls
suche "datei.txt","hallo"
print subStr$(@$(0),1,",")
print subStr$(@$(0),2,",")
waitkey
Ab Profan 7.0
Thorsten
|
| | Datum: 16.07.02 19:40 
(webmaster@rokosoft.de) | |
Hallo,
ich hoffe, daß ich zumindest einen Teil Deiner Frage richtig verstanden habe ;)
Declare zeile$,input%
Declare links$,rechts$
cls
Assign #1,"Daten.txt"
RESET #1
whilenot @eof(#1)
input #1,zeile$
let input%=@Instr(",",zeile$)
if @gt(input%,0)
let links$=@Left$(zeile$,@sub(input%,1))
print links$," = VOR DEM KOMMA"
let rechts$=@Mid$(zeile$,@add(input%,1),200) '200 müsste reichen
print rechts$," = NACH DEM KOMMA"
print rechts$,links$,".. wieder zusammen"
print " --------------------------------------------- "
else
print "OHHHH SCHAAAAADDDDEEEEE NICHT ZUTREFFEND !!!!!" 'HIER DEINE MELDUNG
print " --------------------------------------------- "
endif
wend
close #1
Print ""
Print "..und was ist mit Substr????"
while 1
waitinput
wend
Die Daten die ich in Daten.txt stehen hatte:
Rudolf Koch,Test Daten
Will kaufen gehen,Jawoll
Singen Tanzen
Sportmagazin,Willeor
.. halt irgendetwas wahllos.
Rolf
|
|
|