Español
Foro

Ayuda txt-Expediente

 
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
'-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  
 




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:
imprimir substr$(tex$,2,"\\")

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




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:
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  
 



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
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
 
24.09.2011  
 



Thema Por favor, schließen.............

así Problema umgesetzt, lo klappt alles como Yo brauche.
Nochmal Gracias para el Ayuda.

Franco
 
26.09.2011  
 




Jörg
Sellmeyer
Si usted Usted anmeldest, kannst Usted algo como (y mehr) selber erledigen.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
26.09.2011  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

3.222 Views

Untitledvor 0 min.
rene1234506.08.2013
Julian Schmidt05.08.2013
mein02.06.2013
RudiB.13.02.2013
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie