关于字符串和Byte

Dim   theStr()   As   Byte  
  theStr   =   Split("10,11,12",   ",")  
   
  执行出错，提示类型不匹配！要求theStr   必须是byte   型数组。。如何是好？  
   
  不要告诉我要用for...next   一个一个的再搬啊~ 问题点数：20、回复次数：4Top

1 楼1825（得之我幸，失之我命.）回复于 2003-01-03 01:49:11 得分 4

没办法不用循环吧？  
  不想分割逗号的话倒是可以先Split到string数组中再循环cbyte给Byte数组Top

2 楼redwrite（红妆素裹）回复于 2003-01-03 02:22:18 得分 4

双字节的赋给单字节的变量应该会出错的，应该先转换一下吧。Top

3 楼zfive5（醉马不肖）回复于 2003-01-03 09:09:44 得分 4

Function   Split(  
        ByVal   Expression   As   String,  
        Optional   ByVal   Delimiter   As   String   =   "   ",  
        Optional   ByVal   Limit   As   Integer   =   -1,  
        Optional   ByVal   Compare   As   CompareMethod   =   CompareMethod.Binary  
  )   As   String()  
  Top

4 楼xz8000（小熊）回复于 2003-01-03 09:40:08 得分 8

Dim   A()   As   String  
  Dim   B()   As   Byte  
  Private   Sub   Command1_Click()  
      A   =   Split("1,2,3,4",   ",")  
      CopyArr   A,   B  
      'B   为所得  
  End   Sub  
   
  Sub   CopyArr(A()   As   String,   B()   As   Byte)  
  Dim   I   As   Integer  
      ReDim   B(UBound(A))  
      For   I   =   0   To   UBound(A)  
          B(I)   =   Val(A(I))  
      Next   I  
  End   SubTop

相关问题

• 数组
• split
• optional byval
• byte
• dim

• 帖主：mork
• 1825
• redwrite
• zfive5
• xz8000

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