Ler dados apos um caracter

Question

tenho um arquivo texto gostaria que apos um determinado caracter # ele ele faria a leitura

Ex: dados1|dados12|dados13|dados1|#que lesse apartir  daqui

nao daria para usuar o mid pois as linhas tem tamanhos diferente

Preciso de uma ajuda em vb6

Answer 1

Private Sub Form_Load()
Dim msg As String
Dim i, y, calc, size As Integer
Dim value As String
msg = "dados1|dados12|dados13|dados1|#TESTANDO_QUALQUER_STRING"
size = Len(msg)
i = 1
Do While (Mid(msg, i, 1) <> "#")
   i = i + 1
Loop
For y = i + 1 To size
   value = value + Mid(msg, y, 1)
Next
MsgBox (value)
End Sub

Voce pode separar em functions ou procedures,melhor,dessa maneira porque fica mais facil de entender.o Do While ta simplesmente calculando a quantidade de caracteres antes do # e io For está correndo as letras depois de #.Maneira dinamica,da certo com qualquer tamanho de string ;)

Microsoft Technology Associate (MTA)

Answer 2

Fiz um post no meu blog de como fazer importação de arquivo usando delimitador, dá uma olhada:

http://www.maestrodotnet.com.br/?p=482

---

Bruno Ferreira de Souza
MVP - Microsoft Valuable Professional
MCTS .NET Framework - Windows Applications
MCPD .NET Framework - Windows Applications
www.maestrodotnet.com.br
@BrunoMaestro