Postada em 12/09/2018 09:54 hs
Pessoal !
Muito obrigado, já consegui resolver....
Segue a solução abaixo só para exemplo e se alguém precisar adaptar para outro fim...
No meu caso, eu estou abrindo um arquivo texto, lendo uma linha apenas e usando o Replace para formatar o modo que eu preciso. Eu gravo com "." dessa forma e troco por ",":
-249.999515530581;8407.84275726911 e assim consigo ler toda a linha delimitada por ";" e me retorna -249,999515530581 8407,84275726911 em um array. Show de bola !!!
Dim textfile As String
Dim textfields() As String
Dim varPt(0 To 1) As Variant
Open "C:SuportevP.dll" For Input As #1 Len = 255
While Not EOF(1)
Input #1, textfile
textfields() = Split(textfile, ";")
If UBound(textfields()) = 1 Then
varPt(0) = Replace(textfields(0), ".", ",")
varPt(1) = Replace(textfields(1), ".", ",")
MsgBox varPt(0) ' testando o retorno de textfields(0)...
MsgBox varPt(1) ' testando o retorno de textfields(1)...
End If
Wend
|
