Postada em 03/08/2006 10:52 hs
Estou usando o codigo abaixo para carregar Texto em um ComboBox separado por (;), o texto é:
133722-VA-0305;WHB;ELÉTRICA, ELETRÔNICA E AUTOMAÇÃO - CENTRAL DE AREIA
No caso esta carregando:
133722-VA-0305 ELETRÔNICA E AUTOMAÇÃO - CENTRAL DE AREIA
So quero 133722-VA-0305 acho que é por causa da (,). Como ignora-la?
Private Sub CommandButton1_Click()
On Error Resume Next
Dim text
Dim arq As Integer
Dim slinha As String
Dim y() As String
Dim i As Integer
text = ThisWorkbook.Path & "dado.txt"
arq = FreeFile
Open text For Input As arq
Do Until EOF(arq)
Input #arq, slinha
y() = Split(slinha, ";")
i = 0
slinha = ""
Combo1.AddItem y(0)
Loop
End Sub
|
