求助，怎么在一行字符中漢字和非漢字中間插入字符？
把網頁上的表另存為文本檔案，但存后檔案每行就是表中每行內容的字符，沒有分隔符，想做一個ＶＢ程式，在漢字和非漢字中間
手插入空格，請大家不吝賜教。
uj5u.com熱心網友回復：
在 VB 中，漢字和西文都被當作一個“字符”。因此，你只需逐字符檢索，當 ASCII 從正值變為負值或反之，就插入一個空格。uj5u.com熱心網友回復：
Dim strSource As String, strResult As String, i As Integer
Dim lastAsc As Integer
strSource = "漢字Chinese Character西文字母ABC"
For i = 1 To Len(strSource)
If i > 1 Then
If ((lastAsc >= 0) And (Asc(Mid(strSource, i, 1))) < 0) Or ((lastAsc < 0) And (Asc(Mid(strSource, i, 1))) >= 0) And Mid(strSource, i, 1) <> " " Then
strResult = strResult & " "
End If
End If
strResult = strResult & Mid(strSource, i, 1)
lastAsc = Asc(Mid(strSource, i, 1))
Next i
MsgBox strResult
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/122898.html
標籤：網絡編程