将字符串中的汉字替换为"-"
Q1话34各45个4方 变成 Q1-34-45-4
1话34各45个4方 变成 1-34-45-4


[解决办法]
dim a as integer
dim b as integer
dim c as integer
dim d as integer

dim x as string
dim y as string
dim z as string
dim k as string

dim str as tring
dim ok as string


str= "Q1话34各45个4方 "

a=Instr(Str, "话 ")
b=Instr(Str, "各 ")
c=Instr(Str, "个 ")
d=Instr(Str, "方 ")
Q1话34各45个4方 变成 Q1-34-45-4
x=left(str,a-1)
y=mid(str,a+1,b-1)
z=mid(str,b+1,c-1)
k=mid(str,c+1,d-1)

ok= "x- " & x & "y- " & y & "z- " & z & "k- " & k

[解决办法]
大家这样是不厚道滴！

Private Function TranStr(srcStr As String) As String
Dim i As Integer
For i = 1 To Len(srcStr) - 1
TranStr = TranStr & IIf(Asc(Mid(srcStr, i, 1)) < 0, "- ", Mid(srcStr, i, 1))
Next
End Function

调用：
MsgBox TranStr( "Q1话34各45个4方 ")
MsgBox TranStr( "1 话34各45个4方 ")

希望能帮到你！
[解决办法]
Private Function Trans(mystr As String) As String
Dim tempStr1 As String
Dim tempStr2 As String
Dim i As Integer
For i = 1 To Len(mystr)
tempStr1 = Mid(mystr, i, 1)
Debug.Print Asc(tempStr1)
If Asc(tempStr1) > 255 Or Asc(tempStr1) < 0 Then
tempStr1 = "- "
End If
tempStr2 = tempStr2 & tempStr1
Next i
Trans = tempStr2
End Function
运行结果：
h好e人l平l安o
h-e-l-l-o