XProfan

Español

Jetzt versuche Yo ya seit Tagen una txt-Expediente einzulesen, aber mein Wissen streikt.
El Expediente enthält mehrere Zeilen y Spalten el como folgt aufgebaut son:
Línea1: "text";"erklärung";Artikel";"Bemerkung"; usw......
Línea2:"Wohnugssuche";"Mein Name";"Zeitung";"Rundschau vom 23.08.2011"; usw ...
Man sieht also diferente Größen en el Textzeilen (sin Zeilex:" davor)
Yo brauche una Listbox wo me el entsprechende Línea adecuado se, Yo esta marca kann y luego Ausgeben kann en un Ventana.
Aber lo se no el todo Línea ausgegeben voluntad, pero el Werte en String$.
Also A1$ se z.b. "Text" ser, A2$="Erklärung" usw.
El Edición entonces en imprimir "Text :" A1$
imprimir "text :" a2$ usw..
Posesiones me pensamiento lo wäre simplemente (con el Ejemplo Csv qué hier una Thema war) aber weit gefehlt.
Wer kann me hier helfen.
Hier bisher mein Intento

Schon veces Gracias en el voraus para eure Ideen.
Franco

Kompilieren Marca Separación

'-Begin-----------------------------------------------------------------
Declarar Texto$, Wahl$, tex$, lin1$, lin2$, lines$[96000],c&
declarar Nummer$,Name$
'-Un große Box a Anzeige uno Textes-----------------------------
ClearList
Asignar #1,"h:\test\beispiel.csv"
Reset #1
input #1,lin1$
input #1,lin2$

Sinestar encargado @Eof(#1)

    Entrada #1,Name$
    lines$[c&]=Name$
    inc c&
    AddStrings Name$

EndWhile

Cerrar #1
tex$ = @ListBox$("csv",1)
cls
imprimir substr$(lines$[tex$],2,"\\")
waitinput
'-End-------------------------------------------------------------------
End

24.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Nico
Madysa

ListBox$ son como Ergebnis no el Nummer el Línea de, pero el ausgewählte Línea como String.
Lo debería also más heißen:

Kompilieren Marca Separación

imprimir substr$(tex$,2,"\\")

Como Tex$ una String es, es no Zahl, en el eckigen Klammern haben aber sólo Pagar algo perdido.

XProfan X2
Win7 Home Premium, SP1, AMD Phenom(tm) II N830 Triple-Core Processor
Nico Madysa

24.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Usted debe no Lisbox, pero una Gridbox (auch Listview genannt) uso. Damit kannst Usted el Texto jeweils en uno Línea ansehen y trotzdem Zellenweise darauf zugreifen.

Tal vez hilft Usted dieses Ejemplo ya veces más:

Kompilieren Marca Separación

Declarar Expediente$,Línea$
Declarar lb&
Datei$ = $WinPath + "\\win.ini"
Cls
lb& = Crear("GridBox",%hwnd,"Eintrag 1;0;198;Eintrag 2;2;198",0,10,10,400,400)
Conjunto("ListDel","=")
Asignar #1,Expediente$
Reset #1

Sinestar encargado EoF(#1)

    Entrada #1,Línea$
    AddStrings(lb&,Línea$)

Wend

Cerrar #1
Conjunto("ListDel","|")

Mientras que 1

    WaitInput

    If Clicked(lb&)

        If GetCurSel(lb&) > -1

            Línea$ = GetString$(lb&,GetCurSel(lb&))
            MessageBox(Substr$(Línea$,1,"|"),Substr$(Línea$,2,"|"),0)

        EndIf

    EndIf

Wend

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

24.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Gracias Nico, aber cht weitergekommen bin Yo no.
Gracias Jörg, dein Code ha geholfen, aber con meiner Listbox es genau el Yo búsqueda y brauche.
Hier el aktuelle Code, si lo jemals alguien braucht.
Als Expediente es zwar hier csv kann aber auch txt ser

Kompilieren Marca Separación

Declarar Programa$
Programm$ = GetDir$("@")'-- Arbeitspfad en el Interpretermodus
Declarar datei$
datei$ = Programa$+"\\beispiel.csv"
Declarar Texto$, Wahl$, tex$, lin1$, lin2$, lines$[96000],c&
Declarar Nummer$,Name$
ClearList
Asignar #1,datei$
Reset #1
input #1,lin1$
input #1,lin2$

Sinestar encargado @Eof(#1)

    Entrada #1,Name$
    lines$[c&]=Name$
    inc c&
    AddStrings Name$

EndWhile

Cerrar #1
tex$ = @ListBox$("csv",1)
cls
imprimir (Substr$(tex$,1,";"),0)
imprimir (Substr$(tex$,2,";"),0)
' y más Daten
waitinput
'-End-------------------------------------------------------------------
End