123 / 3 页下一页

返回列表

楼主: bboycs

visual basic 2008 programming~

[复制链接]

goodhermit95

62 主题	5 好友	3715 积分

本站名嘴

Rank: 11

发消息

11^#

发表于 2009-8-25 10:53 PM |只看该作者

回复 #9 Super-Tomato 的帖子

我记得……好像是这样……
好像可以一行
之前要import system.text.regularexpression

dim re as new regexp
if re.ismatch(textbox1.text,"A-Za-z0.9") then
end if

复制代码

em0023

已有 1 人评分	积分	收起理由
goodday	+ 3	中了和我的一样

总评分: 积分 + 3 查看全部评分

使用道具举报

毛毛小子

2 主题	0 好友	6008 积分

百变名嘴

Rank: 13

发消息

12^#

发表于 2009-8-26 12:15 AM |只看该作者

不知道我的algorithm对不对

String answer;
while(answer.equalsIgnoreCase("[a-zA-z]||[0-9]")){ }

还是这样？

var myRegExp = /[A-Z][0-9]/;

已有 1 人评分	积分	收起理由
goodday	+ 3	也中了

总评分: 积分 + 3 查看全部评分

使用道具举报

Super-Tomato

7 主题	1 好友	5108 积分

一流名嘴

Rank: 12

发消息

13^#

发表于 2009-8-26 08:12 AM |只看该作者

原帖由 goodhermit95 于 2009-8-25 10:53 PM 发表
我记得……好像是这样……
好像可以一行
之前要import system.text.regularexpression

dim re as new regexp
if re.ismatch(textbox1.text,"A-Za-z0.9") then
end if

em0023

.NET 我不清楚, 我想大致是這樣, 而 Goodday 要求的是不要其他符號, 那麼只要用 re.replace 配合 pattern 就可以達成了, 如

MessageBox.Show(re.Replace(string, pattern, ''))

原帖由 毛毛小子 于 2009-8-26 12:15 AM 发表
不知道我的algorithm对不对

还是这样？

Javascript 來說你那樣只是算定義了 pattern, 而實際的運用必須配合其他函數, 如

alert("Super-Tomato _!@#$%^&*()-=+".replace(/[^a-zA-Z 0-9]+/g, ""));

也就是

var str = "Super-Tomato _!@#$%^&*()-=+";
var exp = /[^a-zA-Z 0-9]+/g;
str = str.replace(exp, ""); //把符合的 pattern 替換為無任何文字
alert(str);

[ 本帖最后由 Super-Tomato 于 2009-8-26 08:16 AM 编辑 ]

使用道具举报

goodday

13 主题	0 好友	2113 积分

白金长老

Rank: 10

发消息

14^#

发表于 2009-8-26 11:43 AM |只看该作者

今天给你分超多

：）

Public Function OnlyazAZ09(ByVal text As String) As Boolean
Dim Rtn As Boolean = False
'add at 2003-05-20
'Dim AllowCase As String() = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z" _
' , "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z" _
' , "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
'For i As Integer = 0 To text.Count - 1
' For j As Integer = 0 To AllowCase.Count - 1
' If text.ToString.Substring(i, 1) = AllowCase(j) Then
' Rtn = True
' Exit For
' End If
' Next
'Next
'modify at 2005-02-17
Dim RegexObj As New Regex("[A-Za-z0-9_]")
Rtn = RegexObj.IsMatch(text)
Return Rtn
End Function

复制代码

我的 libarary 的string class
以前的是　笨点　会了　regular expression 就懒很多

这几天我发现我的ｌｉｂ　很垃圾
要处理一下咯

[ 本帖最后由 goodday 于 2009-8-26 01:34 PM 编辑 ]

使用道具举报

Super-Tomato

7 主题	1 好友	5108 积分

一流名嘴

Rank: 12

发消息

15^#

发表于 2009-8-26 03:05 PM |只看该作者

原帖由 goodday 于 2009-8-26 11:43 AM 发表
今天给你分超多

：）

Public Function OnlyazAZ09(ByVal text As String) As Boolean
      Dim Rtn As Boolean = False
      'add at 2003-05-20
      'Dim AllowCase As String() =  ...

呵.... 這是必經之路