随便输入一组字符串，比如说是：abcde，我想把这组字符串中的第1个字符和第3个字符调换一下，形成新的新符串：cbade。请问如何实现？谢谢！

Public Function 对换字符(cs As String, wz1 As Long, wz2 As Long) As String
Dim j() As Byte
Dim o As Long
Dim k As Byte
Dim m1 As Long, m2 As Long

m1 = wz1 - 1        '因为位置原点不同,这里进行修正
m2 = wz2 - 1
j = StrConv(cs, vbFromUnicode)
o = UBound(j)

If m1 < o And m1 >= 0 And m2 >= 0 And m2 < o And m1 <> m2 Then
    k = j(m1)
    j(m1) = j(m2)
    j(m2) = k
End If

对换字符 = StrConv(j, vbUnicode)
End Function

万分感谢！

上面仅支持英文字符串,如果字符串里包含中文,有可能出现不可预料的错误,造成乱码.
如果是中文,就要采用截字符串的方法来用.

Public Function 对换字符(cs As String, wz1 As Long, wz2 As Long) As String
Dim i As Long
If wz1 > wz2 Then
    i = wz1
    wz1 = wz2
    wz2 = i
End If
对换字符 = Mid(cs, 1, wz1 - 1) & Mid(cs, wz2, 1) & Mid(cs, wz1 + 1, wz2 - wz1 - 1) & Mid(cs, wz1, 1) & Mid(cs, wz2 + 1)

End Function

速度分析,

第二种方法,需要使用 mid 五次,需要调用 DLL 5次,
第一种方法,需要使用 StrConv 二次,也就需要调用 DLL 2次.

VB运行效率低下,主要原因就是开销在调用DLL上面.VB内置函数,绝大部分都是 DLL 里的
这个DLL, 是指VB的运行库.
其它运算,与其它语言没有多大区别

收到的鲜花

• multiple1902 于 2008-10-21 22:40 送鲜花  18朵   附言：精彩的总结