Such vorgang Fehlermeldung ????
Übersicht
BlitzBasic Allgemein
RaptorBetreff: Such vorgang Fehlermeldung ???? |
 Mi, Aug 25, 2004 0:55Antworten mit Zitat 
|
|
|---|---|---|
|
window=CreateWindow("Window",0,0,400,300,0,1)
textfield=CreateTextField(10,10,200,20,window) listbox=CreateListBox (120,40,100,100,window,1) Repeat If WaitEvent()=$401 And EventSource()=textfield Then If EventData()=13 Then suchwort$ =TextFieldText$ (Textfield) daten=ReadFile("c:\Namen.txt") While Not (Eof(daten)) Wert$=ReadLine$(daten) : zeile = zeile + 1 wert2$ = Right(wert,Len(wert) - Instr(wert,"#")) ;------------------------------------------------------------------------------------- If wert2$ = suchwort$ Then AddGadgetItem listbox,wert2$ EndIf <<<<<Ok das funzt If wert2$=0 Then Print "Name nicht vorhanden" < Wieso Funzt der Befehl nicht ?????? EndIf Wend CloseFile daten EndIf EndIf Forever ------------------------------------------------------------- Habe auch schon das ausprobiert: If wert2$=suchwort$=0 Then Print "Name nicht vorhanden" EndIf ------------ Jetzt gibt er mir "Name nicht vorhanden" auch aus wenn er wohl vorhanden ist und in LB eingetragen wird. Und bei elseif dasselbe Wer kann helfen ? Code ? |
||
|
RallimenSieger des 30-EUR-Wettbewerbs |
Mi, Aug 25, 2004 1:09 Antworten mit Zitat
|
|---|---|---|
|
Code: [AUSKLAPPEN] If wert2$ <> suchwort$ Then
Print "Name nicht vorhanden" ;< Wieso Funzt der Befehl nicht ?????? EndIf |
||
|
[BB2D | BB3D | BB+]
|
||
Raptor |
Mi, Aug 25, 2004 2:08 Antworten mit Zitat
|
|
|---|---|---|
|
Ja, er gibt mir trotzdem noch an das der wert nicht gefunden wird obwol er gefunden wurde und eingetragen wurde.
Es müsste doch theoretisch mit elseif gehen oder ? Wenn Bedienung=Erfüllt Then in LB eintragen, wenn nicht erfüllt Print Nicht vorhanden ! Geht aber nicht ?!?!??!??!??!? |
||
|
|
RallimenSieger des 30-EUR-Wettbewerbs |
Mi, Aug 25, 2004 8:41 Antworten mit Zitat
|
|---|---|---|
|
Ich weiß nicht wie viele Zeilen du zum lesen hast!
aber wenn es mehre sind dann gibt gibt der code jedesmal wenn es nicht in einer Zeile steht eine Meldung aus ! das machste dann etwa so....Code: [AUSKLAPPEN] window=CreateWindow("Window",0,0,400,300,0,1)
textfield=CreateTextField(10,10,200,20,window) listbox=CreateListBox (120,40,100,100,window,1) Repeat If WaitEvent()=$401 And EventSource()=textfield Then If EventData()=13 Then suchwort$ =TextFieldText$ (Textfield) daten=ReadFile("c:\Namen.txt") While Not (Eof(daten)) Wert$=ReadLine$(daten) : zeile = zeile + 1 wert2$ = Right(wert,Len(wert) - Instr(wert,"#")) ;------------------------------------------------------------------------------------- If wert2$ = suchwort$ Then AddGadgetItem listbox,wert2$ Gefunden =Gefunden+1 EndIf ;<<<<<Ok das funzt Wend CloseFile daten If Gefunden = 0 Then Print "Name nicht vorhanden" ;< Wieso Funzt der Befehl nicht ?????? EndIf Gefunden = 0 EndIf EndIf Forever |
||
|
[BB2D | BB3D | BB+]
|
||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group