1. TD를 읽어올때(settdsn) 첫글자가 아스키코드 숫자 OR 대소문 알파벳범위가 아닐 경우 존재하지 않는 경우로 지정
This commit is contained in:
parent
fff41f2ad1
commit
03943cf576
@ -4123,6 +4123,16 @@ DataFail:
|
|||||||
retVal = PollingReceiveData(500)
|
retVal = PollingReceiveData(500)
|
||||||
txbWindow.AppendText("TD READ DATA: " & retVal & "" & vbCrLf)
|
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
|
If retVal.Length > td_name_size Then
|
||||||
Return retVal
|
Return retVal
|
||||||
Else
|
Else
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user