| |
| |
|
 | maintenant versuche je déjà depuis Tagen une txt-Dossier einzulesen, mais mon savons streikt.
qui Dossier contient plusieurs Zeilen et Spalten qui comment folgt aufgebaut sommes:
la ligne1: "text";"erklärung";Artikel";"Bemerkung"; usw......
la ligne2:"Wohnugssuche";"Mein Name";"Zeitung";"Rundschau vom 23.08.2011"; usw ...
on voit alors différent Größen dans den Textzeilen (sans Zeilex:" devant)
il me faut une Listbox wohin mir qui entsprechende la ligne angezeigt wird, je cet markieren peux et ensuite Ausgeben peux dans einem la fenêtre.
mais es soll pas qui ganze la ligne ausgegeben volonté, mais qui Werte dans String$.
alors A1$ soll z.b. "Text" son, A2$="Erklärung" usw.
qui Ausgabe ensuite dans imprimer "Text :" A1$
imprimer "text :" a2$ usw..
Habe mir gedacht es wäre simple (avec dem Beispiel Csv quoi ici un Thema était) mais large gefehlt.
qui peux mir ici aider.
ici bisher mon Versuch
déjà la fois merci d'avance pour eure idées.
Frank
'-Begin-----------------------------------------------------------------
Déclarer Text$, l'élection$, tex$, lin1$, lin2$, lines$[96000],c&
declare numéro$,nom$
'-une grand Box zur Anzeige eines Textes-----------------------------
ClearList
Assign #1,"h:\test\beispiel.csv"
Reset #1
input #1,lin1$
input #1,lin2$
WhileNot @Eof(#1)
Contribution #1,nom$
lines$[c&]=nom$
inc c&
AddStrings nom$
Endwhile
Fermer #1
tex$ = @ListBox$("csv",1)
cls
imprimer substr$(lines$[tex$],2,"\\")
waitinput
'-Fin-------------------------------------------------------------------
Fin
|
|
| |
| |
| |
|
|
Nico
Madysa | ListBox$ gibt comme Ergebnis pas qui numéro qui la ligne aus, mais qui ausgewählte la ligne comme String.
Es sollte alors plutôt appeler:
là Tex$ un String ist, ist es aucun numéro, dans den eckigen Klammern avons mais seulement payons quelque chose verloren. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Du devrait aucun Lisbox, mais une Gridbox (aussi Listview genannt) verwenden. avec cela peux Du den Text jeweils dans einer la ligne regarder et quand même Zellenweise puis zugreifen.
peut-être hilft Dir cet Beispiel déjà la fois plus:
Déclarer Dossier$,la ligne$
Déclarer lb&
Datei$ = $WinPath + "\\win.ini"
Cls
lb& = Créer("GridBox",%hwnd,"Eintrag 1;0;198;Eintrag 2;2;198",0,10,10,400,400)
Set("ListDel","=")
Assign #1,Dossier$
Reset #1
WhileNot EoF(#1)
Contribution #1,la ligne$
AddStrings(lb&,la ligne$)
Wend
Fermer #1
Set("ListDel","|")
Tandis que 1
WaitInput
Si Clicked(lb&)
Si GetCurSel(lb&) > -1
la ligne$ = GetString$(lb&,GetCurSel(lb&))
MessageBox($ Substr(la ligne$,1,"|"),$ Substr(la ligne$,2,"|"),0)
EndIf
EndIf
Wend
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 24.09.2011 ▲ |
|
| |
|
|
| merci Nico, mais cht weitergekommen suis je pas.
merci Jörg, dein Code hat geholfen, mais avec meiner Listbox ist es oui c'est ca cela quoi je cherche et brauche.
ici qui aktuelle Code, si es jamais quelqu'un braucht.
comme Dossier steht zwar ici csv peux mais aussi txt son
Déclarer Programme$
Programm$ = GETDIR $("@")'-- Arbeitspfad im Interpretermodus
Déclarer fichier$
datei$ = Programme$+"\\beispiel.csv"
Déclarer Text$, l'élection$, tex$, lin1$, lin2$, lines$[96000],c&
Déclarer numéro$,nom$
ClearList
Assign #1,fichier$
Reset #1
input #1,lin1$
input #1,lin2$
WhileNot @Eof(#1)
Contribution #1,nom$
lines$[c&]=nom$
inc c&
AddStrings nom$
Endwhile
Fermer #1
tex$ = @ListBox$("csv",1)
cls
imprimer ($ Substr(tex$,1,";"),0)
imprimer ($ Substr(tex$,2,";"),0)
' et plus données
waitinput
'-Fin-------------------------------------------------------------------
Fin
|
|
| |
| |
| |
|
|
| Thema s'il te plaît schließen.............
so Problem mise en œuvre, es klappt alles so comment je es brauche.
Nochmal merci pour qui Aider.
Frank |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | si Du toi anmeldest, peux Du quelque chose comme (et plus) selber erledigen. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 26.09.2011 ▲ |
|
| |
|
(471)
Deutsch
English
Français
Español
Italia