vb截取字符问题。

我想在一个用“,”进行数据分割的文本文件中取数，如  
  111,2333,467788  
  我要分别得到111和2333和467788应该如何写比较容易  
  问题点数：100、回复次数：5Top

1 楼crystal_heart（笑看风云）回复于 2002-12-03 15:31:46 得分 0

splitTop

2 楼zqfleaf（动力港湾）回复于 2002-12-03 15:32:37 得分 30

aa=split("111,2333,467788",",")  
  aa(1)="111"  
  aa(2)=..  
  ...Top

3 楼crystal_heart（笑看风云）回复于 2002-12-03 15:34:06 得分 30

Dim   o_Array()   As   String  
        Dim   o_strCutFormat   as   String  
        Dim   o_iCutFileCount   as   Long  
   
        o_strCutFormat   =   "111,2333,467788"  
        o_Array()   =   Split(o_strCutFormat,   ",",   ,   vbTextCompare)  
        o_iCutFileCount   =   UBound(o_Array)Top

4 楼henrryzhang（North Wolf）回复于 2002-12-03 15:45:04 得分 10

splitTop

5 楼lxcc（）回复于 2002-12-03 15:45:12 得分 30

dim   str1   as   string  
  dim   strArray()   as   string  
  dim   int1()   as   integer  
  dim   i   as   integer  
  str1="111,2333,467788"  
  strArray=split(str1,",")  
  redim   strArray(UBOUND(strArray))  
  redim   int1(UBOUND(strArray))  
   
  for   i=0   to   UBOUND(strArray)  
          '从数组中给别的变量置数  
  　　int1(i)=cint(strarray(i))  
  next  
  Top

相关问题

• strarray
• strcutformat
• ubound
• split
• aa
• dim
• array

• 帖主：windcat
• zqfleaf
• crystal_heart
• henrryzhang
• lxcc

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