Visual Basic 6 - Combo1 - Piero Tofy.it

Forum - Visual Basic 6 - Combo1

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 15:34
Lunedì, 08/10/2007

Ciao!!
Allora, io ho un form con 1 pulsante e una combo, chiamata combo1. Grazie a..:

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
On Error Resume Next
Open "C:\prova.txt" For Input As 1
Do
Input #1, linea
Combo1.Text = Combo1 & linea & vbCrLf
Loop Until EOF(1) = True
Close #1
Exit Sub
End Sub

..carico nella combo1 quello che c'è scritto in prova.txt (mettiamo ke ci sia scritto, si).
Quindi grazie a questo codice nella combo1 viene visualizzato il contenuto di prova.txt e quindi quando si preme il pulsante verrà visualizzato si.
Però invece che solo si viene visualizzato Si con l'accapo, quindi il si con due || (stanghette).
Come posso fare x visualizzare solo si??

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 16:47
Lunedì, 08/10/2007

mi spiace nn posso aiutarti
ho provato in tutti i modi anche col tuo codice ma nn mi visualizza il file così com' è
magari le 2 staghette sono proprio nel file

cmq se proprio il problema persiste puoi usare la procedura replace:
replace(combo1,"||","")
così al posto delle stanghette c'è (niente)

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 18:06
Lunedì, 08/10/2007

Grazie x l'aiuto, cmq replace nn andava bene xkè le 2 stanghette sarebbero l'accapo e quindi teoricamente dovrei scrivere:

Combo1.Text = Replace(Combo1, "
", "")

ma nn si può xkè viene segnalato sbjato.
Ma ho capito come fare x nn visualizzare le due stanghette.
Lo spiego x tutti, prima nel codice scrivevo:

Codice sorgente - presumibilmente VB.NET

Open "C:\prova.txt" For Input As 1
Do
Input #1, linea
Combo1.Text = Combo1 & linea & vbCrLf
Combo1.Text = Replace(Combo1, "", "")
Loop Until EOF(1) = True
Close #1
End Sub

ecco poi come l'ho modificato:

Codice sorgente - presumibilmente VB.NET

Open "C:\prova.txt" For Input As 1
Do
Input #1, linea
Combo1.Text = Combo1 & linea
Combo1.Text = Replace(Combo1, "", "")
Loop Until EOF(1) = True
Close #1
End Sub

Spero ke hai capito, cmq mi appare piuttosto evidente dove ho modificato.

Cmq grz ancora x avermi provato ad aiutare.

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 20:40
Lunedì, 08/10/2007

prego...

cmq puoi usare il replace anche con l' accapo: inquesto modo: replace(string,vbcrlf,sostituente)
ti protrà servire

albertking82 (Member)
Pro

Messaggi: 112
Iscritto: 14/08/2006

Postato alle 20:52
Lunedì, 08/10/2007

prova con questo codice
l=freefile
Open "C:\prova.txt" For Input As #1
while not eof(l)
line Input #1, linea
Combo1.text= Combo1 & linea & chr(13)
wend
Close #1
End Sub

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 21:22
Lunedì, 08/10/2007

..OK..
Grazie a tutti quelli ke mi hanno aiutato!!