将字符串中的汉字替换为"-"
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
