'Invio Notifica 'by @udg
Dim Var1,Var2,Var3,Data,Orario As String'Class_Globals
Var1 = "Prenotazione"
Var2 = "Accessorio"
Var3 = "Colore Blu"
Data = "16/03/2023"
Orario = "19:00"
Dim sep As String = Chr(3)' ETX = End Of Text char ascii
Dim NotifText As String = $"${Var1}${sep}${Var2}${sep}${Var3}${sep}${Data}${sep}${Orario}${sep}"$
SendMessage(Topic,"Confermi?", NotifText)
Log(NotifText)
'Ricevo Notifica'by @ivanomonti
NotificaSplit(FirebaseMessaging.CorpoMess)
Sub NotificaSplit(value As String)
Dim Ind0,Ind1,Ind2,Ind3,Ind4 As String
Dim datastring As List = Regex.Split(Chr(3),value)'controlla carattere ascii ETX End Of Text
Ind0 = datastring.Get(0)'Prenotazione
Ind1 = datastring.Get(1)'Accessorio
Ind2 = datastring.Get(2)'Colore Blu
Ind3 = datastring.Get(3)'16/03/2023
Ind4 = datastring.Get(4)'19:00
Log(Ind0)
Log(Ind1)
Log(Ind2)
Log(Ind3)
Log(Ind4)
End Sub