Einsteigerfragen zur PROFAN Programmierung
  Suchen
 Zurück zur Übersicht
 AutorThema: Assign
Dieter Münz
Datum:16.07.02 18:49 Antwortenals Email verschicken  


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


Thorsten
Datum:16.07.02 19:40 Antwortenals Email verschicken (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



Rolf Koch
Datum: 16.07.02 19:40 Antwortenals Email verschicken (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


 Zurück zur Übersicht
 

 Ein kostenloses WebMart Forum
WebMart Homepage Tools kostenlos
Shortwin - denn Glück ist kein Zufall!