Olá!
tenho um campo em que jogo os valores importados de um módulo de memória pela COM1...
São mtos dados e eu gostaria de ler esses dados como é usuado para ler arquivos texto linha a linha...
só n sei como fazer...
só consigo ler o campo como uma string inteira..
oq eu poderia fazer?
obrigado,

Heitor, o mais dificil vc fez, que foi ler os dados do buffer da COM1 e copia-los para uma variavel string. Faca um loop, e, dentro dele, use a posicao dos caracteres vbCrLf (Chr(13) & Chr(10)) para extrair cada uma das linhas da variavel string e copia-las para um vetor string.

Cordial cumprimento.

era oq eu estava peliando pra fazer...
segue o código mto simples...

For i = 1 To Len(Me!Texto)
If Mid(Me!Texto, i, 1) = Chr(13) Then
MsgBox linha
linha = ""
End If
linha = linha & Mid(Me!Texto, i, 1)
Next

Heitor, te mando um codigo um pouco mais complicado:

Public Sub PegarLinhasDoTexto()
    Dim strTexto As String
    Dim lngPosicao As Long
    Dim lngPosicaoCrLf As Long
    
    strTexto = _
        "Linha1" & vbCrLf & _
        "Linha2" & vbCrLf & _
        "Linha3" & vbCrLf & _
        "Linha4" & vbCrLf & _
        "Linha5" & vbCrLf & _
        "The quick brown fox jumps over the lazy dog" & vbCrLf & _
        "Cogito ergo sum"
    
    lngPosicao = 1
    
    Do
        lngPosicaoCrLf = InStr(lngPosicao, strTexto, vbCrLf)
        If lngPosicaoCrLf > 0 Then
            MsgBox Mid(strTexto, lngPosicao, lngPosicaoCrLf - lngPosicao)
            
            lngPosicao = lngPosicaoCrLf + 2
        Else
            MsgBox Mid(strTexto, lngPosicao, (Len(strTexto) - lngPosicao) + 1)
        End If
    Loop Until lngPosicaoCrLf = 0
End Sub

Cabe a vc ignorar ou nao linhas em branco.

Cordial cumprimento.