1. TD를 읽어올때(settdsn) 첫글자가 아스키코드 숫자 OR 대소문 알파벳범위가 아닐 경우 존재하지 않는 경우로 지정
This commit is contained in:
parent
fff41f2ad1
commit
03943cf576
@ -4123,6 +4123,16 @@ DataFail:
|
||||
retVal = PollingReceiveData(500)
|
||||
txbWindow.AppendText("TD READ DATA: " & retVal & "" & vbCrLf)
|
||||
|
||||
Dim c As Integer = Asc(retVal.Substring(0, 1)) ' 첫 글자 아스키값
|
||||
|
||||
If Not ((c >= 48 And c <= 57) Or (c >= 65 And c <= 90) Or (c >= 97 And c <= 122)) Then
|
||||
Return "0"
|
||||
End If
|
||||
|
||||
'If Not ((c >= 48 And c <= 57) And retVal.Length > td_name_size) Then
|
||||
' Return "0"
|
||||
'End If
|
||||
|
||||
If retVal.Length > td_name_size Then
|
||||
Return retVal
|
||||
Else
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user