Texte vergleichen
Übersicht
BlitzBasic Beginners-Corner
snörklBetreff: Texte vergleichen |
 So, März 11, 2007 20:52Antworten mit Zitat 
|
|
|---|---|---|
|
Also, ich habe jetzt schon einige zeit lang gesucht aber nichts gefunden. Ich möchte gerne in B3D 2 Texte vergleichen.
z.B. e-mail adressen bei rundmails. Man erstellt eine datei "maillist1.txt" und eine "maillist2.txt". Dann soll das programm die strings auslesen und schreiben welche in maillist 2 bzw. 1 nicht vorhanden sind. Nun mein Problem, ich kann zwar texte auslesen und speichern etc, aber weiß leider überhaupt nicht wie ich zwei strings vergleichen kann. Ich hoffe ihr habt mein Problem soweit verstanden, mfg Snörkl 
|
||
|
Silver_Knee |
So, März 11, 2007 21:39 Antworten mit Zitat
|
|---|---|---|
habe dem dateinamen maillist das wort liste entnommen dh. du willst zwei listen vergleichen  dann soltetst du einen in einen type alles einlesen und dann vergleichen und tada
gebe dir mal eine art Code: [AUSKLAPPEN] Type zeile
Field txt$,beibeiden,Datei$ End Type ;irgendwas zum einlesen file=ReadFile("maillist1.txt") While Not Eof(file) z.zeile=New zeile z\txt=ReadLine(file);text ist schon mal gesichert z\Datei="maillist1" Wend CloseFile file file=ReadFile("maillist2.txt") While Not Eof(file) z.zeile=New zeile z\txt=ReadLine(file); z\Datei="maillist2" Wend CloseFile file ;dann vergleichen wir... For eine.zeile=Each zeile If eine\datei="maillist1";...eine zeile der 1. Datei... For andere.zeile=Each zeile If andere\datei="maillist2";...mit einer zeile der anderen datei If eine\txt=andere\txt;Ist etwas in der zweiten liste was in der ersten ist... andere\beibeiden=True;markieren wir zb. in der 2. Den type EndIf EndIf Next EndIf Next |
||
|
StepTiger |
So, März 11, 2007 21:57 Antworten mit Zitat
|
|---|---|---|
|
strings vergleichst du übrigens mit:
if string1$<>string2$ then ... |
||
|
Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter.
Computer: AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t Gewinner: BP Code Compo #2 Π=3.141592653589793238...<--- und das aus dem kopf 
Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser. |
||
snörkl |
So, März 11, 2007 22:56 Antworten mit Zitat
|
|
|---|---|---|
|
vielen dank
Das hat mir weitergeholfen. mfg Snörkl |
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group