关于mask的问题

求一个函数,功能是能在一个string里找到我想要的一串字符,例如:  
  <asfdfas>afadfdasf<abcdefaefawfwe>0.12345<sdfasdf>  
  我想要找的是"0.12345"也就是都是数字,有没有这样的函数? 问题点数：50、回复次数：11Top

1 楼huangjianyou（小健）回复于 2004-09-02 16:49:34 得分 10

InStr   函数  
               
   
  返回   Variant   (Long)，指定一字符串在另一字符串中最先出现的位置。  
   
  语法    
   
  InStr([start,   ]string1,   string2[,   compare])  
   
  InStr   函数的语法具有下面的参数：  
   
  部分   说明    
  start   可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果   start   包含   Null，将发生错误。如果指定了   compare   参数，则一定要有   start   参数。    
  string1   必要参数。接受搜索的字符串表达式。    
  string2   必要参数。被搜索的字符串表达式。    
  Compare   可选参数。指定字符串比较。如果   compare   是   Null，将发生错误。如果省略   compare，Option   Compare   的设置将决定比较的类型。    
   
   
  设置  
   
    compare   参数设置为：  
   
  常数   值   描述    
  vbUseCompareOption   -1   使用Option   Compare   语句设置执行一个比较。    
  vbBinaryCompare   0   执行一个二进制比较。    
  vbTextCompare   1   执行一个按照原文的比较。    
  vbDatabaseCompare   2   仅适用于Microsoft   Access，执行一个基于数据库中信息的比较。    
   
   
  返回值  
   
  如果   InStr返回    
  string1   为零长度   0    
  string1   为   Null   Null    
  string2   为零长度   Start    
  string2   为   Null   Null    
  string2   找不到   0    
  在   string1   中找到string2     找到的位置    
  start   >   string2   0    
   
   
  说明  
   
  InStrB   函数作用于包含在字符串中的字节数据。所以   InStrB   返回的是字节位置，而不是字符位置。  
   
  ^_^Top

2 楼jeff__lueny（J.L.）回复于 2004-09-02 16:50:29 得分 0

要找">&<"这个样子的字符串,&代表数字跟小数点Top

3 楼jeff__lueny（J.L.）回复于 2004-09-02 16:53:07 得分 0

huangjianyou(小健):你说的函数我知道,但是我要找的不是固定的某个字符串,而是不确定的数字0-9还有小数点Top

4 楼starsoulxp（星魂）回复于 2004-09-02 17:25:26 得分 0

//但是我要找的不是固定的某个字符串,而是不确定的数字0-9还有小数点  
   
  楼主可否说明白一些你的意思，只要找数字和小数点吗？你自己都不确定要找什么，那怎么找？Top

5 楼jeff__lueny（J.L.）回复于 2004-09-02 17:36:51 得分 0

要找个字符串是数字跟小数点组成的,而且在这个字符串两旁有">"and"<",明白我的意思了吗?Top

6 楼jeff__lueny（J.L.）回复于 2004-09-02 21:24:09 得分 0

大家帮帮忙啊问题还没解决呢!!!Top

7 楼hkiaipc（）回复于 2004-09-03 08:27:56 得分 0

自己写个函数吧,Top

8 楼jeff__lueny（J.L.）回复于 2004-09-03 10:04:47 得分 0

哎,没办法只能自己写了个函数~~~50分白费了Top

9 楼ProgrammerInTheSea（海上程序员）回复于 2004-09-07 15:17:48 得分 0

帮你写了一个,你等等哦Top

10 楼ProgrammerInTheSea（海上程序员）回复于 2004-09-07 15:19:47 得分 40

Dim   i   As   Integer  
  Dim   StrArray(500)   As   String  
   
  i   =   0  
  SouceString   =   Trim(SouceString)  
   
  'get   StrArray  
  Do   While   Len(SouceString)   <>   0  
          StrArray(i)   =   Left(SouceString,   1)  
          SouceString   =   Replace(SouceString,   StrArray(i),   "",   1,   1)  
          i   =   i   +   1  
  Loop  
   
  i   =   0  
   
  Do   Until   StrArray(i)   =   ""  
          If   StrArray(i)   =   ">"   Then  
                  Do   Until   StrArray(i   +   1)   =   "<"  
                          i   =   i   +   1  
                          MaskStr   =   MaskStr   +   StrArray(i)  
                  Loop  
                  If   IsNumeric(MaskStr)   =   True   Then  
                          Exit   Do  
                  Else  
                          MaskStr   =   ""  
                  End   If  
                  i   =   i   +   1  
          Else  
                  i   =   i   +   1  
          End   If  
  Loop  
   
  扫一行进去找出带有><的数字,返回MaskStrTop

11 楼jeff__lueny（J.L.）回复于 2004-09-07 15:21:50 得分 0

谢谢,明白了Top

相关问题

• 函数
• 字符
• 执行
• start
• null
• 字符串
• 参数
• soucestring
• strarray
• 表达式

• 帖主：jeff__lueny
• huangjianyou
• ProgrammerInTheSea

• Visual Basic类图书
• Visual Basic类源码下载