分割字符串

怎么将字符串如   str="N00000210002213"   分割为一个有n=len(str)个元素字符数组，  
  如：  
  char(0)=N,  
  char(1)=0  
  char(2)=0  
  .  
  .  
  .  
  char(n-1)=3 问题点数：50、回复次数：5Top

1 楼WallesCai（女人之美,在于蠢得无怨无悔,男人之美,在于撒谎撒得白日见鬼）回复于 2006-03-08 17:59:12 得分 5

先将字符串复制给一个BYTE数组,然后再按照你需要的长度将数组元素拿出来合并Top

2 楼Crystal_MJ（）回复于 2006-03-08 18:16:21 得分 0

具体怎么操作，请高手指点一下Top

3 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-08 18:22:16 得分 35

Private   Sub   Form_Load()  
          Dim   rlt()   As   String,   str   As   String  
          str   =   "N00000210002213"  
          ReDim   rlt(Len(str))  
          For   i   =   0   To   Len(str)   -   1  
                  rlt(i)   =   Mid(str,   i   +   1,   1)  
                  Debug.Print   rlt(i)  
          Next  
  End   SubTop

4 楼xyhv（乌龙茶）回复于 2006-03-09 16:47:32 得分 5

dim   a()   as   string   ,i   as   integer,str   as   string  
  str=   "N00000210002213"  
  ReDim   a(len(str))  
  for   i=0   to   len(str)-1  
      a(i)=Mid(str,i+1,1)  
  nextTop

5 楼rainstormmaster（暴风雨 v2.0）回复于 2006-03-09 16:51:49 得分 5

Private   Sub   Form_Load()  
          Dim   rlt()   As   String,   str   As   String  
          str   =   "N00000210002213"  
          ReDim   rlt(Len(str)-1)  
          For   i   =   0   To   Len(str)   -   1  
                  rlt(i)   =   Mid(str,   i   +   1,   1)  
                  Debug.Print   rlt(i)  
          Next  
  End   SubTop

相关问题

• rlt
• 字符串
• 数组
• redim
• str
• len
• mid
• sub
• char
• as string

• 帖主：Crystal_MJ
• WallesCai
• faysky2
• xyhv
• rainstormmaster

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