Visual Basic 6 - Singole righe di un file txt in diverse textbox

Forum - Visual Basic 6 - Singole righe di un file txt in diverse textbox - Pagina 2

Pagine: [ 1 2 ]

danyjeey (Normal User)
Newbie

Messaggi: 11
Iscritto: 20/10/2008

Postato alle 1:11
Martedì, 21/10/2008

Testo quotato

Postato originariamente da P4p3r0g4:

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

GRAZIE 10000000 !!!!!!! FUNZIONA ALLA GRANDE. DAVVERO GRAZIE A TUTTI !! XO SCUSATE LA MIA IGNORANZA MA NON SI POTREBBE FARE UNA SPECIE DI MODIFICA AL SORGENTE IN MODO CHE IL FILE SI PRESENTI COSI:

testo1:ciao
testo2:mamma
...
...
e il programma visualizzi solo cio ke viene dopo i due punti..questi ultimi ovviamente esclusi !! Cioe visualizzare nel textbox1 ciao e nel textbox2 mamma...ecc..ecc..

XO SENZA PROBLEMI..NON VI SCERVELLATE PIU DI TANTO..QUELLO VA BENE XO SE SI PUO ILLUMINATEMI!!

danyjeey (Normal User)
Newbie

Messaggi: 11
Iscritto: 20/10/2008

Postato alle 11:01
Martedì, 21/10/2008

oppure non si potrebbe fare in modo che venga letto una riga scelta da me....cioe voglio ke nel textbox1 venga visualizzata la riga 7...e nel textbox2 la riga 13....si puo ???? SCUSATE ANKORA X LA MIA INSISTENZA :asd:

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 19:05
Martedì, 21/10/2008

si che si puo` ma dovresti pensarci un po su. non e` difficilissimo il codice per fare cio`

danyjeey (Normal User)
Newbie

Messaggi: 11
Iscritto: 20/10/2008

Postato alle 23:25
Martedì, 21/10/2008

Testo quotato

Postato originariamente da P4p3r0g4:

si che si puo` ma dovresti pensarci un po su. non e` difficilissimo il codice per fare cio`

t prego dammi una mano..ho trovato una cosa xo non funziona x nulla...ho cercato dei codici in internet ma non ho trovato nulla che faceva al caso mio...saresti cosi gentile di dirmi come e farmelo capire...

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 1:20
Mercoledì, 22/10/2008

mi vergognerei a presentarlo in giro ma piu semplice di cosi si muore.

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
Dim a As String
Dim filepath As String, linea As Integer, lineadamettereintext1 As Integer, lineadamettereintext2 As Integer, lineadamettereintext3 As Integer, lineadamettereintext4 As Integer
lineadamettereintext1 = 1
lineadamettereintext2 = 2
lineadamettereintext3 = 5
lineadamettereintext4 = 9
Text1.Text = "Idiota inserisi almeno un numero di riga che esista nel File!"
Text2.Text = "Idiota inserisi almeno un numero di riga che esista nel File!"
Text3.Text = "Idiota inserisi almeno un numero di riga che esista nel File!"
Text4.Text = "Idiota inserisi almeno un numero di riga che esista nel File!"
filepath = "C:\Percorso\File.txt"
Open filepath For Input As #1
Do Until EOF(1)
Line Input #1, a
linea = linea + 1
If linea = lineadamettereintext1 Then
Text1.Text = a
End If
If linea = lineadamettereintext2 Then
Text2.Text = a
End If
If linea = lineadamettereintext3 Then
Text3.Text = a
End If
If linea = lineadamettereintext4 Then
Text4.Text = a
End If
Loop
End Sub

Ultima modifica effettuata da P4p3r0g4 il 22/10/2008 alle 1:21

Poffe (Normal User)
Newbie

Messaggi: 1
Iscritto: 24/01/2011

Postato alle 13:27
Lunedì, 24/01/2011

Ottimo questo script...complimenti!!!
E per curiosità ci sarebbe la possibilità di fargli leggere solo numeri e virgole delle singole righe del file .txt???

Pagine: [ 1 2 ]