如何分离字符串？

如：a=dfdfd/4545655655  
          如何以/来分开？ 问题点数：20、回复次数：4Top

1 楼tony_jian（晕了）回复于 2002-04-25 16:24:29 得分 0

http://www.vbeden.com/vbtech/value/page_2/file37.htmTop

2 楼tomhuang（春城）回复于 2002-04-25 16:32:11 得分 10

做一个循环，用LENTH函数控制循环次数，循环内用MID函数逐位取出字符，如果未取到/，则将字符赋给变量1，如取到/，则将后面的字符赋给变量2，简单吧？Top

3 楼woshipgfan（哈哈哈哈）回复于 2002-04-25 16:33:14 得分 10

Private   Sub   Command1_Click()  
          Dim   str,   str1,   str2   As   String  
          str   =   "dfdfd/4545655655"  
          str1   =   Mid$(str,   1,   5)  
          str2   =   Mid$(str,   7,   Len(str))  
          MsgBox   str1   &   ":"   &   str2  
  End   Sub  
  Top

4 楼woshipgfan（哈哈哈哈）回复于 2002-04-25 16:45:33 得分 0

Private   Sub   Command1_Click()  
          Dim   str,   str1,   str2   As   String  
          Dim   i,   j   As   Integer  
          str   =   "dfdfd/4545655655"     '任意一个有一个"/"符号的字符窜  
          For   i   =   1   To   Len(str)  
                  If   Mid$(str,   i,   1)   =   "/"   Then  
                  j   =   i  
                  End   If  
          Next   i  
          str1   =   Mid$(str,   1,   (j   -   1))  
          str2   =   Mid$(str,   (j   +   1),   Len(str))  
          MsgBox   str1   &   ":"   &   str2  
  End   SubTop

相关问题

• 字符
• 循环
• dfdfd
• str
• mid
• len
• dim
• sub

• 帖主：huang765181881
• tomhuang
• woshipgfan

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