VB下标越界

 Dim eachStr     As Variant
    
    Dim dishNos     As String
    Dim dishNames   As Variant
    
    Dim dishNo      As String
    Dim dishName    As String
    Dim dishAddr    As String
    Dim strline
    Dim z
    Dim n() As String
    Dim i As Long
    Dim nn
    Dim ff
    Dim vv
    Dim tt
    Dim nameAddr    As Long
    
    Dim BinaryArray()       As Byte
 
    nameAddr = 0
                
                
                
                
                


    For Each eachStr In mStrings
    
         If eachStr <= 6 Then
        eachStr = eachStr
        End If
        dishNo = StrConv(Left$(eachStr, 6), vbFromUnicode) '拼音
        dishName = Mid$(eachStr, 7)                        '汉字
        
        Open App.Path + "\Output\22.txt" For Input As #1
        While Not EOF(1)
        Line Input #1, strline
        z = z & strline & vbCrLf
        Wend
        Close #1
        n = Split(z, vbCrLf)
        tt = eachStr
         For i = 0 To UBound(n)
            If dishName = "" And Left$(eachStr, 6) = Left$(n(i), 6) Then
            vv = Replace(tt, tt, n(i))   这里得n（i）老是说下标越界
            End If
         Next
        dishAddr = vbNullString
        nameAddr = LenB(StrConv(dishNames, vbFromUnicode))
                                                    
'        dishAddr = ChrB$(nameAddr Mod 256) + dishAddr
'        nameAddr = nameAddr \ 256
'
'        dishAddr = ChrB$(nameAddr Mod 256) + dishAddr
'        nameAddr = nameAddr \ 256
'
'        dishAddr = ChrB$(nameAddr Mod 256) + dishAddr
'        nameAddr = nameAddr \ 256
'
'        dishAddr = ChrB$(0) + dishAddr
        
        dishAddr = SetLong(nameAddr, False)
        
        nameAddr = LenB(StrConv(dishName, vbFromUnicode))
                                        
        '--- 索引文件： 拼音(6) + 地址(4) + 汉字个数(1)
        
        dishNos = dishNos + dishNo + dishAddr + ChrB$(nameAddr \ 2)
        '--- 内容文件： 汉字串
        
        dishNames = dishNames + dishName
      
            
        Next

全部

w***

回答