Einsteigerfragen zur PROFAN Programmierung

| Suchen
| Zurück zur Übersicht

Autor | Thema: Assign
Dieter Münz
| 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
Thorsten
| 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
Rolf Koch
| 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

| Zurück zur Übersicht

| Ein kostenloses WebMart Forum WebMart Homepage Tools kostenlos |