nur zugehörige Werte aus datei ausgeben

Übersicht

BlitzBasic

Allgemein

	Raptor Betreff: nur zugehörige Werte aus datei ausgeben	Mo, Aug 30, 2004 23:32 Antworten mit Zitat
Code: Dummy$ =Left(Wert,Instr(Wert,"/"));-1) Wert2$ =Right(Dummy,Len(dummy) - Instr(Dummy,"#")) wert2V$=Replace(wert2$,"/","") ;/ versteckt If wert1$>0 Then AddGadgetItem Titellistbox, Wert2V$ ----------------------------------------------------------------------------- Jetzt habe ich eine Frage, und zwar sage ich jetzt: Code: wert1$ =Left(wert,Instr(wert,"Name#")) Dummy$ =Left(Wert,Instr(Wert,"/"));-1) ; Vorname ausgeben Wert2$ =Right(Dummy,Len(dummy) - Instr(Dummy,"#")) wert2V$=Replace(wert2$,"/","") ;/ versteckt If wert1$>0 Then AddGadgetItem Titellistbox, Wert2V$ Select WaitEvent() Case $401 If EventSource()=Titellistbox Then selected=SelectedGadgetItem(listbox) ClearGadgetItems infolistbox ;-Box leeren Dummy$ =Left(Wert,Instr(Wert,"\"));-1) Wert3$ =Right(Dummy,Len(dummy) - Instr(Dummy,"/")) wert3V$=Replace(wert3$,"\","") ;\ versteckt If selected>=0 Then AddGadgetItem infolistbox,"Strasse :"+Wert3V$ Dummy$ =Left(Wert,Instr(Wert,"+"));-1) Wert4$ =Right(Dummy,Len(dummy) - Instr(Dummy,"\")) wert4V$=Replace(wert4$,"+","") ;+ versteckt If selected>=0 Then AddGadgetItem infolistbox,"Hausnr :"+Wert4V$ wert5$ = Right(wert,Len(wert) - Instr(wert,"+")) If selected>=0 Then AddGadgetItem infolistbox,"PLZ :"+Wert5$ EndIf End Select ;Forever Wend CloseFile daten --------------------------------------------------------------------------- Was ich hiermit erreichen will, er soll wenn ich in der Listbox den Namen anlicke, die er mir ja ausgibt, alle anderen Daten in einer zweiten Listbox ausgeben. Problem: Bsp die Datei sieht so aus: ------------------------------------------------- Müller#Franz/Teststrasse\231234+Testhausen Meier#Simon/Strassexyz\45+4567+Erde Müller#Alfred/Dorfstrasse\67+7890+Venus ---------------------------------------------------- mit diesem Code sage ich ihm das er nur die ausgeben soll wo vorne Müller steht: wert1$ =Left(wert,Instr(wert,"Müller#")) Dummy$ =Left(Wert,Instr(Wert,"/"));-1) ; Vorname ausgeben Wert2$ =Right(Dummy,Len(dummy) - Instr(Dummy,"#")) wert2V$=Replace(wert2$,"/","") ;/ versteckt If wert1$>0 Then AddGadgetItem Titellistbox, Wert2V$ funktioniert auch, wenn ich aber jetzt diesen Namen anklicke gibt er mir zwar die Daten aus (Franz/Teststrasse\231234+Testhausen), klicke ich ihn nochmal an gibt er mit die nächsten daten aus(Alfred/Dorfstrasse\67+7890+Venus). Ich hoffe das Problem habe ich so geschildert das jemand was damit anfangen kann, vielleicht nen Code ? Das ich wenn ich einen Eintrag in LB1 anklicke auch nur die Daten von diesem bekomme und nicht von den anderen. grüsse[/code]

Raptor

Betreff: nur zugehörige Werte aus datei ausgeben

Mo, Aug 30, 2004 23:32
Antworten mit Zitat

Code:
Dummy$ =Left(Wert,Instr(Wert,"/"));-1)
Wert2$ =Right(Dummy,Len(dummy) - Instr(Dummy,"#"))
wert2V$=Replace(wert2$,"/","") ;/ versteckt
If wert1$>0 Then AddGadgetItem Titellistbox, Wert2V$
-----------------------------------------------------------------------------

Jetzt habe ich eine Frage, und zwar sage ich jetzt:
Code:

wert1$ =Left(wert,Instr(wert,"Name#"))

Dummy$ =Left(Wert,Instr(Wert,"/"));-1) ; Vorname ausgeben
Wert2$ =Right(Dummy,Len(dummy) - Instr(Dummy,"#"))
wert2V$=Replace(wert2$,"/","") ;/ versteckt
If wert1$>0 Then AddGadgetItem Titellistbox, Wert2V$

Select WaitEvent()
Case $401
If EventSource()=Titellistbox Then
selected=SelectedGadgetItem(listbox)

ClearGadgetItems infolistbox ;-Box leeren

Dummy$ =Left(Wert,Instr(Wert,"\"));-1)
Wert3$ =Right(Dummy,Len(dummy) - Instr(Dummy,"/"))
wert3V$=Replace(wert3$,"\","") ;\ versteckt
If selected>=0 Then AddGadgetItem infolistbox,"Strasse :"+Wert3V$

Dummy$ =Left(Wert,Instr(Wert,"+"));-1)
Wert4$ =Right(Dummy,Len(dummy) - Instr(Dummy,"\"))
wert4V$=Replace(wert4$,"+","") ;+ versteckt
If selected>=0 Then AddGadgetItem infolistbox,"Hausnr :"+Wert4V$

wert5$ = Right(wert,Len(wert) - Instr(wert,"+"))
If selected>=0 Then AddGadgetItem infolistbox,"PLZ :"+Wert5$

EndIf
End Select
;Forever

Wend

CloseFile daten
---------------------------------------------------------------------------
Was ich hiermit erreichen will, er soll wenn ich in der Listbox den Namen anlicke, die er mir ja ausgibt, alle anderen Daten in einer zweiten Listbox ausgeben. Problem: Bsp die Datei sieht so aus:
-------------------------------------------------
Müller#Franz/Teststrasse\23*1234+Testhausen
Meier#Simon/Strassexyz\45+4567+Erde
Müller#Alfred/Dorfstrasse\67+7890+Venus
----------------------------------------------------
mit diesem Code sage ich ihm das er nur die ausgeben soll wo vorne Müller steht:

wert1$ =Left(wert,Instr(wert,"Müller#"))

Dummy$ =Left(Wert,Instr(Wert,"/"));-1) ; Vorname ausgeben
Wert2$ =Right(Dummy,Len(dummy) - Instr(Dummy,"#"))
wert2V$=Replace(wert2$,"/","") ;/ versteckt
If wert1$>0 Then AddGadgetItem Titellistbox, Wert2V$

funktioniert auch, wenn ich aber jetzt diesen Namen anklicke gibt er mir zwar die Daten aus (Franz/Teststrasse\23*1234+Testhausen), klicke ich ihn nochmal an gibt er mit die nächsten daten aus(Alfred/Dorfstrasse\67+7890+Venus).

Ich hoffe das Problem habe ich so geschildert das jemand was damit anfangen kann, vielleicht nen Code ? Das ich wenn ich einen Eintrag in LB1 anklicke auch nur die Daten von diesem bekomme und nicht von den anderen.

grüsse[/code]

	x.Force	Mo, Aug 30, 2004 23:41 Antworten mit Zitat
nutze bitte die code-tags g nur so als hinweis
AMD Athlon XP 2000+ \| 1024mb DDR-Ram \| Asus Radeon 9600XT \| BENQ FP757 17°Zoll TFT Was kümmert mich mein Geschwätz von gestern? (Konrad Adenauer) -.-

x.Force

Mo, Aug 30, 2004 23:41
Antworten mit Zitat

nutze bitte die code-tags *g* nur so als hinweis

AMD Athlon XP 2000+ | 1024mb DDR-Ram | Asus Radeon 9600XT | BENQ FP757 17°Zoll TFT

Was kümmert mich mein Geschwätz von gestern? (Konrad Adenauer) -.-

	Markus2	Di, Aug 31, 2004 0:04 Antworten mit Zitat
Ich denke das gehört zum Thread zweiten, dritten usw. Wert auslesen aus Datei So kann da jetzt niemand was mit anfangen

Markus2

Di, Aug 31, 2004 0:04
Antworten mit Zitat

Ich denke das gehört zum Thread
zweiten, dritten usw. Wert auslesen aus Datei

So kann da jetzt niemand was mit anfangen Wink