Foxtable(狐表)用户栏目专家坐堂 → [求助]字符问题


  共有2457人关注过本帖树形打印复制链接

主题:[求助]字符问题

帅哥哟,离线,有人找我吗?
pcxjxjhkw
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
[求助]字符问题  发帖心情 Post By:2014/9/21 17:46:00 [只看该作者]

一字符串中可能含一个或几个空格,甚至包含连续空格。 想实现:将上述字符串被空格隔开的字符转换成数组。 如:1 2 3 4 58 6→1|2|3|4|58|6 谢谢了!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/21 17:49:00 [只看该作者]

Dim str As String = "1  2  3       4     58  6"
Dim reg As new System.Text.RegularExpressions.Regex("(?<= {1}) *")
str = reg.Replace(str, "").replace(" ", "|")
msgbox(str)

 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2014/9/21 17:51:00 [只看该作者]

谢甜老师

 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2014/9/21 18:02:00 [只看该作者]

甜老师,怎么不行呃?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/21 18:03:00 [只看该作者]

 不行的例子发出来

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/9/21 18:29:00 [只看该作者]

Dim str As String = "1      2  3 4   58 6"
For i As Integer = 999 To 1 Step - 1
    Dim s As New String(" ",i)
    str = str.Replace(s," ")
Next
MessageBox.Show(str.Replace(" ","|"))

 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2014/9/22 15:24:00 [只看该作者]

甜老师,如果是数字字符串,测试没问题,但是文字的就不行哟。如

Dim str As String = "一 平     三     上    七     九                      百"
Dim reg As new System.Text.RegularExpressions.Regex("(?<= {1}) *")
str = reg.Replace(str, "").replace(" ", "|")
msgbox(str)

 

出现一个奇怪现象,上述代码在命令窗口执行没问题,但如果str来自一文本框,就不行了

[此贴子已经被作者于2014-9-22 15:28:38编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/22 15:25:00 [只看该作者]

 测试页一点问题都没有啊

 

Dim str As String = "一 平     三     上    七     九                      百"
Dim reg As new System.Text.RegularExpressions.Regex("(?<= {1}) *")
str = reg.Replace(str, "").replace(" ", "|")
msgbox(str)


 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2014/9/22 15:30:00 [只看该作者]

Dim txt As WinForm.TextBox = e.Form.Controls("查找关键词")
Dim str As String = txt.Text
Dim reg As new System.Text.RegularExpressions.Regex("(?<= {1}) *")
str = reg.Replace(str, "").replace(" ", "|")
'MessageBox.Show(str)
msgbox(str)

 

就不能达到目的

 

[此贴子已经被作者于2014-9-22 15:38:12编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/22 15:43:00 [只看该作者]

 例子发上来

 回到顶部
总数 17 1 2 下一页