'字符串操作-對于不存在于文本的輸入字符串進行追加保存操作
Dim path As String = Application.StartupPath & "\wz.txt"
Dim readText As String = File.ReadAllText(path) '打開文件，讀取文件的所有行，然后關(guān)閉文件
Dim hanzihang() As String '漢字?jǐn)?shù)組變量
hanzihang = Split(readText, vbCrLf) '這兩句從文件中獲得每行漢字的內(nèi)容存入數(shù)組
Dim i As Integer = 0
Dim s As String = ""
While i < hanzihang.Length - 1
If TextBox3.Text = hanzihang(i) Then
s = hanzihang(i) '這個字符串變量用來和輸入框做對比
TextBox1.Text = TextBox1.Text & Format(Now, "hh:mm:ss") & "操作者: " & TextBox3.Text & vbCrLf & _
"提示：字符串識別成功，編號" & i + 1 & "#" & vbCrLf & Format(Now, "hh:mm:ss") & "系統(tǒng): " & "暫無互動信息" & vbCrLf
End If
i = i + 1
End While
If s = TextBox3.Text Then
Else
Dim appendText As String = TextBox3.Text + Environment.NewLine '打開文件，向文件追加字符串，然后關(guān)閉文件
File.AppendAllText(path, appendText)
TextBox1.Text = TextBox1.Text & Format(Now, "hh:mm:ss") & "操作者: " & TextBox3.Text & vbCrLf & _
"提示：不存在該字符串,該字符串以寫入文件！" & vbCrLf & Format(Now, "hh:mm:ss") & "系統(tǒng): " & "該字符串保存成功" & vbCrLf
End If
