| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1623 人关注过本帖
标题:如果在整个textbox里查询n个相同字符的后面第m位字符
只看楼主 加入收藏
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
收藏
 问题点数:0 回复次数:10 
如果在整个textbox里查询n个相同字符的后面第m位字符
比如
             一个textbox
               4 5 5 . . . . .
               0 d 1 2 c 5 3 A e 4 2 * * *
               1 1 a 2 2 3 f A f 3 0 . . .
               e b 1 2 2 c 3 A 3 d 2 \ \ \
               d 1 1 f 2 6 8 A 1 4 8 \ ? ?
               3 2 6 . . . . . .
       相同字符为A
       我要查询A后面第4位开始取3个 就是蓝色那些
       然后放在listbox里
需要怎么做,有没有思路告诉我下啊 ????
搜索更多相关主题的帖子: 后面第 textbox 字符 查询 蓝色 
2008-05-06 13:39
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
收藏
得分:0 
我的思路是
 循环
  for i = 1 to len(text1.text)
   if instr("A",mid(text1.text,i,1)) then
      yStr = yStr & mid(text1.text,i+3,3) & "分割"
  next

  我还没实现过,这样做也许可以成功

  但问题是这个textbox里的数据量肯定很大。要是这样做的话就根本没什么效率可言了?
 有没有更加好的办法啊?

提问:回答: 不提问怎么回答? 提问不清楚怎么回答?
2008-05-06 13:48
xye1129
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-3-21
收藏
得分:0 
你写的是什么东东啊?语句用法上都有问题!!
2008-05-06 14:38
zougonghua
Rank: 1
等 级:新手上路
帖 子:163
专家分:0
注 册:2008-4-1
收藏
得分:0 
回复 2# 的帖子
自己都不实验还来发贴子,晕!!!
2008-05-06 15:17
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
收藏
得分:0 
[bo]以下是引用 [un]xye1129[/un] 在 2008-5-6 14:38 的发言:[/bo]

你写的是什么东东啊?语句用法上都有问题!!


哪个语句错了啊?

提问:回答: 不提问怎么回答? 提问不清楚怎么回答?
2008-05-06 16:39
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
收藏
得分:0 
我是来这求思路的

提问:回答: 不提问怎么回答? 提问不清楚怎么回答?
2008-05-06 16:40
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
收藏
得分:0 
唉!!!!!!!!

提问:回答: 不提问怎么回答? 提问不清楚怎么回答?
2008-05-06 23:57
永夜的极光
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2721
专家分:1
注 册:2007-10-9
收藏
得分:0 
你的这个A是确定的吗?一定是A而且仅有一个吗?

从BFS(Breadth First Study)到DFS(Depth First Study)
2008-05-07 08:40
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
收藏
得分:0 
[bo]以下是引用 [un]永夜的极光[/un] 在 2008-5-7 08:40 的发言:[/bo]

你的这个A是确定的吗?一定是A而且仅有一个吗?


A绝对是确定的!!!!!后面位置也是确定的

提问:回答: 不提问怎么回答? 提问不清楚怎么回答?
2008-05-07 11:40
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
Private Sub Command1_Click()
   
Dim i As Integer
    Dim
strA As String
   
strA = Text1
    i = InStr(1, strA, "A")
   
Do While i
        yStr = yStr & Mid(strA, i + 4, 3) & "分割"
        i = InStr(i + 1, strA, "A")
   
Loop
   
Text1 = yStr
End Sub

快上课了……
2008-05-07 12:27
快速回复:如果在整个textbox里查询n个相同字符的后面第m位字符
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017743 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved