Postada em 18/12/2008 08:56 hs
Texto:
135501-ME-0707;USIPAR;ENGENHARIA
6026902-VA-1008;WEG;MECÂNICA
Preciso carregar assim no combo:
01355-01-ME-0707
60269-02-VA-1008
O codigo abaixo esta carregando assim:
0135501
6026902
Private Sub ComboCTCarrega2()
On Error Resume Next
Dim text
Dim arq As Integer
Dim y As Variant
Dim k As String
Dim texto As String
Dim texto2 As String
dim Pos as Integer
text = "Sv-arquivosDataBaseEFDado.txt"
arq = FreeFile
Open text For Input As arq
While Not EOF(arq)
Line Input #arq, texto
y = Split(texto, ";")
Pos = Instr(1,y(0),"-")
ComboCT.AddItem Format(Mid(y(0),1,Pos -1),"0000000")
Wend
End Sub
como adaptar para dar esse resultado?
|
