danyjeey (Normal User)
Newbie
Messaggi: 11
Iscritto: 20/10/2008
|
Salve raga...volevo una delucidazione. Avendo un file con 4 righe di testo..vorrei che ogni riga venga visualizzata in 4 textbox differenti
es.
file.txt
1
2
3
4
1 nella textbox1..2 nella textbox2..e cosi via!
Vi prego aiutatemi. Ci sto perdendo la testa x questo fatto. E non so proprio come fare!
|
|
|
P4p3r0g4 (Member)
Guru
Messaggi: 1319
Iscritto: 29/12/2006
|
hm, a me sembra molto semplice.
cos'e` che non riesci a fare esattamente?
a leggere il file?
a mettere i dati in textbox differenti?
else?
|
|
|
danyjeey (Normal User)
Newbie
Messaggi: 11
Iscritto: 20/10/2008
|
Postato originariamente da P4p3r0g4:
hm, a me sembra molto semplice.
cos'e` che non riesci a fare esattamente?
a leggere il file?
a mettere i dati in textbox differenti?
else? |
x la lettura del file ho un sorgente ke uso e funziona. Il fat e ke voglio differenziare la cosa. Voglio ke ogni una delle 4 righe sia in una textbox differente |
|
|
Roberto VB (Member)
Expert
Messaggi: 419
Iscritto: 29/01/2007
|
Io farei una cosa del genere:
Codice sorgente - presumibilmente VB.NET |
Dim Testo As String Dim a() As String Dim i As Integer Open file For Random As #1 Get #1, 1, Testo a = Split(Testo, ":") For i = LBound(a) To UBound(a) Text1.text = a(1) Text2.text = a(2) Text3.text = a(3) Next Close #1
|
Nel file ogni riga separala magari con ":" cosė ti esce pių facile.
Questa č l'unica soluzione che conosco, se qualcuno ne sa una pių breve aspetto risposta pure io 
Ultima modifica effettuata da Roberto VB il 20/10/2008 alle 21:27 |
|
|
danyjeey (Normal User)
Newbie
Messaggi: 11
Iscritto: 20/10/2008
|
Codice sorgente - presumibilmente VB.NET |
Dim Testo As String Dim a() As String Dim i As Integer Open file For Random As #1 Get #1, 1, Testo a = Split(Testo, ":") For i = LBound(a) To UBound(a) Text1.text = a(1) Text2.text = a(2) Text3.text = a(3) Next Close #1
|
Ultima modifica effettuata da danyjeey il 20/10/2008 alle 22:59 |
|
|
TheLizard (Ex-Member)
Pro
Messaggi: 87
Iscritto: 12/09/2007
|
Si potrebbe anche usare la funzione Split..
|
|
|
danyjeey (Normal User)
Newbie
Messaggi: 11
Iscritto: 20/10/2008
|
Postato originariamente da TheLizard:
Si potrebbe anche usare la funzione Split.. |
vi prego potete darmi una mano ?? xk a questo punto sto pensando di utilizzare un file diverso per ogni textbox...xo nn rientrerebbe nei miei scopi. Vi prego aiutatemi !! Sto cercando qualcosa con line input xo niente da fare..nn trovo nulla ke mi possa servire...help |
|
|
P4p3r0g4 (Member)
Guru
Messaggi: 1319
Iscritto: 29/12/2006
|
io la avrei impostata in modo completamente diverso.
il vb e` bello perche` e` vario.
(niente discussioni su e` vero o non e` vero. accettatelo come assioma imposto dall'onnippotente (io))
tornando al discorso.
non ho quotato il tuo sorgente pero mi era parso di capire che avevi salvato tutti i caratteri in un array e diviso lo stesso con split.
poi avevi un fatto un ciclo con ubound e lbound e scrivere i risultati, no?
edit : ci ho riguardato. hai sbagliato lo split. devi impostarlo su chr(10) o chr(13) perche il testo e` diviso da accapo e non da :
edit2 : hehe, hai messo un ciclo per poi non utilizzarlo. cosi come hai scritto, metti 4 volte il contenuto di a(1) in text1 ecc..
Ultima modifica effettuata da P4p3r0g4 il 20/10/2008 alle 23:28 |
|
|
P4p3r0g4 (Member)
Guru
Messaggi: 1319
Iscritto: 29/12/2006
|
line input. quello che pensavo io.
ora ti imposto un po di codice.
et voila`
non credo di avere mai scritto nulla di piu semplificato.
Codice sorgente - presumibilmente VB.NET |
Private Sub Command1_Click() Dim a As String Dim filepath As String filepath = "C:\percorso\file.txt" Open filepath For Input As #1 Line Input #1, a Text1.Text = a Line Input #1, a Text2.Text = a Line Input #1, a Text3.Text = a Line Input #1, a Text4.Text = a Close #1 End Sub
|
Ultima modifica effettuata da P4p3r0g4 il 20/10/2008 alle 23:41 |
|
|
| 
