Joforn,可不可以按您的思路把关键部分的代码写给我一点?我只想参考，之后理解
Joforn,可不可以按您的思路把关键部分的代码写给我一点?我只想参考，之后理解
2007-08-30 14:29
谢谢，我先去试试，不过好象很多方法和函数我都没见过啊。。。。。
2007-08-30 14:32
2007-08-30 14:35
Public Function GetStr(str) As String '自定义函数
Dim TStr, re
TStr = str
Set re = CreateObject("vbscript.regexp") '正则表达式对象
re.Pattern = "[^a-z]" '规则非数字字符
re.Global = True '全局可用性。
TStr = re.Replace(TStr, "")
Set re = Nothing '释放对象
GetStr = TStr
End Function
这自定义的函数有些地方不理解,
我想问如果不用自定义函数怎么实现呢？
2007-08-30 14:39
非字母的你不理他就是了。
Dim Ins(1000) As String
Dim I,j,k
Dim L(1000) As Integer
j=1
For i=1 to len(inputstr)
Ins(i)=Mid(Inputstr,i,1)
if Instr("abcdefghilmnopqrstuvwxyz",Ins(i))>0 Then
L(j)=I
J=J+1
End If
next
j=j-1
for i=1 to j-1
for k=i+1 to j
If Ins(i)>Ins(k) Then
Ins(i)=Chr(Asc(Ins(j)) Xor Asc(Ins(i)))
ins(j)=Chr(Asc(Ins(j)) Xor Asc(Ins(i)))
Ins(i)=Chr(Asc(Ins(j)) Xor Asc(Ins(i))) '这3行完成变量交换
next 'k
next 'i
Dim Outstr as string
for i=1 to 1000 '本程序中下标从1开始使用的
outstr=outstr & Ins(i)
Next
我也就能理解这程度的代码，心中有剑大哥的那个实在是看不太懂啊
2007-08-30 14:44
2007-08-30 14:51
2007-08-30 14:54
那干嘛加个$,
最后问一个问题,ReDim Preserve strArr(i) As String解释一下这条代码
2007-08-30 14:58