Text in einer anderen Datei suchen und finden

[horsthorn]

Irgendwie steh ich mir selbst im Weg.

Was habe ich ?
Eine ganz normale Textdatei mit ca. 500 Einträgen. Immer in einer Zeile ein Wort.

Was will ich ?
In einer anderen Textdatei nach den 500 Textstrings suchen.
Hier sind, falls vorhanden, die Worte in längeren Sätzen eingebettet.
Wird ein Wort gefunden, soll das in einer INF-Datei festgehalten werden
Hört sich einfach an,aber...
...komme einfach nicht dahinter.
Habe mit Translate... + Instr... versucht.
Klappt aber nicht ! - Wer gibt mir einen Denkanstoss ?

[iF_]

Analog programmiert also beide Textdateien zeilenweise in ein Array laden, danach 2 Schleifen.

Äussere Schleife geht einfach die Zeilen der zu durchsuchenden Textdatei durch, die Innere durchsucht jede solche Zeile nach wiederum jedem Wort aus anderem Array.

whileloop sizeof array1
zeile=array1[loop]
whileLoop sizeof array2
case instr(array2[loop],zeile) : ...

So umständlich aber auch nur, weil ich annehme, dass Du auch die Zeilennummer erhalten möchtest, weil Du geschrieben hast "soll das in einer INF-Datei festgehalten". Anderfalls wäre das kürzer zu lösen.

[p. specht]

Gehts da um einen Teilschritt bei der automatischen Erstellung eines Schlagwortverzeichnisses? Könnte ich auch brauchen, allerdings zusammen mit einer Stopliste der banalen Worte [der die das und aber auch schon wieder oder nicht usw. wegen übrigens einer eine eines...]
Boyer-Moore wurde übrigens in der Zwischenzeit auch schon wieder verbessert, siehe lecroq oder cpm98 oder gleich sunday...

[horsthorn]

Es ist ganz "profan" - Doppelte Declarationen (Variablen) erkennt der XProfan-Compiler und meckert sie an.

"Tote Declarationen", also irgend wann mal erstellte Variablen, die aber nicht mehr gebraucht werden, treiben sich bei großen Codes heimlich rum.
Dafür will ich mir ein Tool schreiben, die diese "toten Teile" rausfiltert.
(Natürlich kann es jeder andere dann auch haben)
Sämtliche Variablen aus dem Code hab ich.
Das war einfach.
Jetzt brauche ich eine Suchfunktion, die feststellt, daß eine bestimmte Variable garnicht mehr benutzt wird.
Daher die Text-Datei mit den Variablen. Die Suchschleife muss mir jetzt hinterher anzeigen, welche Variable aus dieser Text-Datei im Codetext nicht vorkommt.
Klingt einfach. Ist für mich aber wieder mal eine "Kilimanscharo-Besteigung"

[Bangkok]

Horst, hier mal eine kleine Anregung. Ist einfach und schnell.

'Wörtersuchen Autor Dieter Zornow
declare b#,Zeile$,counter&,yes&
var ini$ = "c:\\Programmieren\\wörter suchen\\test.ini"
var datei$ = "Check.prf" 'deine Profandatei
dim b#, Filesize(datei$)+1
Blockread(datei$,b#,0,sizeof(b#))
var inhalt$ = char$(b#,0,sizeof(b#))

assign #1,"variablen.TXT" 'hier stehen die variablen drin
Reset #1
WhileNot Eof(#1)
counter& = 0
   Input #1,Zeile$
   yes& = instr(zeile$,inhalt$)
if yes&
inc counter&
while yes& <> 0
yes& = instr(zeile$,inhalt$,yes&+1)
case yes&:inc counter&
endwhile
endif
writeini ini$,"Variable",zeile$ = str$(counter&)
EndWhile

close #1
assign #1,""
end