文字识别后，再替换识别后的不规范字符：
’文字识别
Dim doc = CreateObject("MODI.Document")
doc.Create(e.Form.Controls("TextBox1").value )
doc.OCR(2052, True, True)
For i As Integer = 0 To doc.Images.count - 1
Dim layout = doc.images(i).Layout
e.Form.Controls("TextBox1").value = layout.text & vbcrlf
'msgbox(layout.text)
Next i
doc.close
doc = Nothing
’字符替换
Dim s As String = e.Form.Controls("TextBox1").value
s = s.Replace(" ","")
s = s.Replace(".","。")
s = s.Replace("．","。")
s = s.Replace("【","[")
s = s.Replace("】","]")
s = s.Replace(":","：")
s = s.Replace(";","；")
上述代码分别执行没问题，合在一起时，后边的没有执行，代码能不能合在一起？
谢谢！
加好友 
发短信
Post By：2017/11/17 10:49:00 [显示全部帖子]
