继续[求助]VB编程的一道题 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 继续[求助]VB编程的一道题

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2209 人关注过本帖

标题：继续[求助]VB编程的一道题

取消只看楼主加入收藏

JackyNone

等　级：新手上路
帖　子：23
专家分：0
注　册：2007-8-30

第 11 楼

得分:0

Joforn,可不可以按您的思路把关键部分的代码写给我一点?我只想参考，之后理解

2007-08-30 14:29

JackyNone

等　级：新手上路
帖　子：23
专家分：0
注　册：2007-8-30

第 12 楼

得分:0

谢谢，我先去试试，不过好象很多方法和函数我都没见过啊。。。。。

2007-08-30 14:32

JackyNone

等　级：新手上路
帖　子：23
专家分：0
注　册：2007-8-30

第 13 楼

得分:0

心中有剑，你的思路跟版主的是一样的么？

2007-08-30 14:35

JackyNone

等　级：新手上路
帖　子：23
专家分：0
注　册：2007-8-30

第 14 楼

得分:0

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

JackyNone

等　级：新手上路
帖　子：23
专家分：0
注　册：2007-8-30

第 15 楼

得分:0

以下是引用multiple19O2在2007-8-30 12:56:50的发言：

非字母的你不理他就是了。

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