PEGAR SOMENTE CARACTER

GUIGOR 19/05/2015 15:17:57
#446774
boa tarde estou fazendo a homologação com sitef para passa cartao no meu pdv, entao estou com um problema onde o retorno deles vem assim:

Insira ou passe o cartao na leitora





com uma porção de espaço em brando e esse valor e passado para uma variavel chamda buffer o que eles fazem:
é criado uma variavel
Global Buffer As String * 20000
depois no pagamento foi criado
Buffer = String(20000, 0)

entao quando retorna o valor retorna uma porçao de espaco em brando ja coloquei trim(buffer) mas continua saindo os espacos em branco sera que tem alguem que pode me ajudar com isso

desde ja obrigado
LUIZCOMINO 19/05/2015 15:25:30
#446775
é pq a variavel buffer é fixa faça assim
Global Buffer As String * 20000
Global BufferLimpo as String

depois no pagamento foi criado
Buffer = String(20000, 0)

BufferLimpo =trim(Buffer)
msgbox BufferLimpo


valeu!
GUIGOR 21/05/2015 21:26:09
#446876
AMIGO NAO FUNCIONOU NAO AINDA CONTINUA RETORNANDO OS ESPAÇOS EM BRANCO. COMO PODE VER NO ARQUIVO TEXTO EM ANEXO
FILMAN 22/05/2015 00:18:22
#446879
Olá, amigo o se problema não é mais com os espaço e sim com o caracter ENTER

Portanto crie um form no sistema para com: 2 TEXTBOX, 2 COMMAND BUTTOM

No TEXTBOX1 coloque toda a informação que está no arquivo que você postou em anexo!

Coloque o seguinte código no FORM

Dim buffer As String * 20000

Private Sub Command1_Click()
    Dim bufferVetor() As String
    Dim texto As String
    Dim i As Integer
    
    buffer = Text1.Text
    bufferVetor = Split(Trim(buffer), vbCrLf)
    
    texto = [Ô][Ô]
    For i = 0 To UBound(bufferVetor)
        If Trim(bufferVetor(i)) <> [Ô][Ô] Then
            texto = texto & bufferVetor(i) & vbCrLf
        End If
    Next i
    
    Text2.Text = [Ô][Ô]: Text2.Text = texto
End Sub

Private Sub Command2_Click()
    Dim texto As String
    Dim inicio, fim As String
    
    buffer = Text1.Text
    
    inicio = InStr(1, Trim(buffer), [Ô]ESTAB:[Ô])
    fim = InStr(1, UCase(Trim(buffer)), [Ô](SITEF)[Ô])
    
    texto = Mid(Trim(buffer), inicio, fim + Len([Ô](SITEF)[Ô]))
    
    Text2.Text = [Ô][Ô]: Text2.Text = texto
End Sub


Creio que isso vai te ajudar!
FILMAN 02/06/2015 19:18:24
#447330
Se o problema foi resolvido, por favor encerre o tópico

Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar