APLICANDO FILTRO EM TEXTO

GRAEFF 05/11/2009 20:56:22
#327068
Galera elaborei um programa pra capturar tudo de uma area de chat porem gostaria de aplicar um filtro no que exportar para o txt.
ele tem um padrao q eh o seguinte:
[Nome] Fabio augusto herculano moreira
Isso aí Fabio agora voce logou no canal ajuda seja bem vindo

basicamente eu quero fazer um filtro pra copiar tudo que vem depois do [Nome] e depois o nome do canal que no caso ai do exemplo é o ajuda mas isso varia. e no txt de exportação ficaria assim:
Fabio Augusto herculano moreira|ajuda
se alguem puder me ajudar a fazer esse filtro agradeço
Basicamente ele tem isso aki:
Public Sub GetText()

Dim nTextLength As Long, szBuffer As String
nTextLength = SendMessageA(MyWindow, &HE, ByVal 0, ByVal 0) + 1
szBuffer = Space(nTextLength - 1)
SendMessageA MyWindow, &HD, ByVal nTextLength, ByVal szBuffer
Form1.Text1.Text = szBuffer
End Sub


Private Sub Form_Load()
Dim hWnd As Long
hWnd = FindWindowA([Ô]TMainForm[Ô], vbNullString)
If hWnd <> 0 Then
EnumChildWindows hWnd, AddressOf EnumChildProc, ByVal 0&
Else
MsgBox [Ô]janela nao encontrada![Ô], vbCritical
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
CloseHandle hWnd
End Sub

Private Sub Timer2_Timer()
GetText
Text1.Refresh
End Sub
MARCELO.TREZE 06/11/2009 00:03:43
#327076
é simples colega

veja

Public Sub GetText()
Dim Texto() As String
Dim nTextLength As Long, szBuffer As String
nTextLength = SendMessageA(MyWindow, &HE, ByVal 0, ByVal 0) + 1
szBuffer = Space(nTextLength - 1)
Texto = Split(szBuffer,[Ô]|[Ô])
SendMessageA MyWindow, &HD, ByVal nTextLength, ByVal Texto(1)
Form1.Text1.Text = Text(1)
End Sub


veja se funciona

ps, as palvras devem estar obtigatoriamente separadas por |
Tópico encerrado , respostas não são mais permitidas
Voltar