diff --git a/ProductFunctionTester/Main_Form.vb b/ProductFunctionTester/Main_Form.vb index e320854..7cf03ed 100644 --- a/ProductFunctionTester/Main_Form.vb +++ b/ProductFunctionTester/Main_Form.vb @@ -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