Como quebrar linha em mensagem do chatbot do Telegram?

Bom dia srs

Estou fazendo com sucesso a utilização do driver do Telegram o VBSCRIPT V1.1.13

Porém estou tentando fazer uma quebra de linha nas mensagens pois gostaria de enviar uma lista toda em uma mensagem só, eu tentei o texto \n junto com a mensagem a ser enviada porém sem sucesso ainda

alguém pode me ajudar? Desde já agradeço

Vitor,

Use a função Chr(10), onde 10 é o código ASCII para quebra de linha.

1 Like

Boa tarde

Eu já utilizei o comando Chr(10) , em uma MsgBox ocorre a quebra de linha, porém em uma mensagem do chatbot do Telegram não ocorre, segue abaixo código utilizado e foto da mensagem recebida por telegram

Sub CommandButton1_Click()

	
	SET TT = Application.GetObject("[01_DrvWS].Send")
	
	TT.WriteEx 1
	
	Application.GetObject("[01_DrvWS].Message").Value = ("phrase line 1"+Chr(13)+Chr(10)+"phrase line 2")	


	
End Sub

Desde já agradeço

Obrigado pela resposta

Tenta com o código hexadecimal. Por exemplo:

Application.GetObject("[01_DrvWS].Message").Value = ("linha 1+%0A+linha 2")

1 Like

Boa tarde Paulo

Eu consegui com essa solução, muito obrigado

Paulo boa tarde você sabe se o Elipse E3 consegue ler as mensagens enviadas pelo Telegram? Conhece algum exemplo de aplicação? Com este exemplo eu consegui somente enviar, mas não receber

Obrigado

Bom dia Vitor,

A própria API do Telegram possui um método onde é possível obter a lista de atualizações para o seu BOT utilizando uma requisição GET, e então visualizar as mensagens enviadas.
https://api.telegram.org/bot_ID/getUpdates

É possível notar que o item text retorna uma string com a mensagem enviada.

Essa estrutura JSON possui arrays com tamanhos variáveis, e não apenas objetos de pares nome/valor, portanto será necessário percorrer os arrays inserindo novos laços (for) dentro do script.

Com base no artigo Consumindo e enviando dados de um webservice que utiliza o formato JSON, adaptei o exemplo para ler as últimas 4 mensagens.

Dependendo da sua demanda, você pode ajustar conforme necessário.

Exemplo utilizado:

Sub CommandButton10_Click()
DIM oJsonParser
Set oJsonParser = new aspJSON 'Criação do objeto tipo aspJSON
'Inserir endereço do Webservice
URL = "https://api.telegram.org/bot1294991797:AAFUrfZFoO4ezUc7IZAGY-B1jTWNFbGmJh0/getupdates"
oJsonParser.LoadJSON(URL) 'Carregando objeto JSON

for i = 0 to oJsonParser.data.count - 1
'msgbox oJsonParser.data(i).item("ok")
aux = (oJsonParser.data(i).item("result").count -1) -3 'Pegar as 4 últimas mensagens

	 for b = aux to oJsonParser.data(i).item("result").count -1	
    	 msgbox oJsonParser.data(i).item("result").item(b).item("update_id")  
    	 msgbox oJsonParser.data(i).item("result").item(b).item("message").item("text")
     	 next
    next 

    End Sub

'Class aspJSON
1 Like