Help: the existence of vbCr.

[lanhn]

Please help me to solve this problem:

Supposing I've received a string as "ABCD" & vbCr via Comm. port.
But the vbCr is no appearing in the Text box.

How can I know the existence of vbCr (or other special characters such as CR, LF)?

Thanks.

[Guido Geurs]

Check the last character(s) with the "Asc" function.
Cr = 13
Lf = 10
CrLf=13+10

This is a test demo in VB6 with 2 textboxes and 4 commands

Private Sub Command1_Click()
   Text1.Text = "ABC" & vbCr '13
   Text2.Text = Asc(Right(Text1.Text, 1))
   Call check
End Sub
 
Private Sub Command2_Click()
   Text1.Text = "ABC" & vbLf '10
   Text2.Text = Asc(Right(Text1.Text, 1))
   Call check
End Sub
 
Private Sub Command3_Click()
   Text1.Text = "ABC" & vbCrLf '13-10
   Text2.Text = Asc(Mid(Text1.Text, Len(Text1) - 1, 1)) & " - " & Asc(Right(Text1.Text, 1))
   Call check
End Sub
 
Private Sub Command4_Click()
   Text1.Text = "ABC"
   Text2.Text = Asc(Right(Text1.Text, 1))
   Call check
End Sub
 
Private Sub check()
   '§ check on CR and LF
   If Asc(Mid(Text1.Text, Len(Text1) - 1, 1)) = 13 And _
   Asc(Right(Text1.Text, 1)) = 10 Then
      MsgBox "ends on CrLf"
      Exit Sub
   End If
   '§ check on CR
   If Asc(Right(Text1.Text, 1)) = 13 Then
      MsgBox "ends on Cr"
      Exit Sub
   End If
   '§ check on LF
   If Asc(Right(Text1.Text, 1)) = 10 Then
      MsgBox "ends on Lf"
      Exit Sub
   End If
   '§ not found
   MsgBox "ends on " & Right(Text1.Text, 1)
End Sub