用VB處理定長文本的導入

用VB編寫將帶分割符的文本導入數據庫可能是最經常用到的方式，但是導入定長的文本就不是像前者那樣簡單了（個人觀點）。因為這里需要處理一個技術問題，就是在VB中所有的字符都是按照Unicode進行運算的，所以一個字節的英文字符、數字和兩個字節的漢字在VB中都是兩個字節。那么在我將一行文本ReadLine讀到一個字符串中后，如果從某位至某位是單雙字節混合的字符串，那就沒有辦法用Mid、Left這類函數確定這個串的長度。因此一直沒有找到好的方法處理，讓我郁悶了久久。

最后我只能使用API來處理，調用了CopyMemory進行字符串Copy，因為這個函數是可以按字節操作的。在使用中感覺效果還是可以的，下面我就將這個API又包了一層函數。

'''''''''''''''''''''''''Api聲明'''''''''''''''''''''''''
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

'按字節返回字符串的函數
Private Function GetByteString(ByVal strInput As String, ByVal intLen As Integer) As String
    Dim strRtn As String
    strRtn = Space$(intLen)
    Call CopyMemory(ByVal strRtn, ByVal strInput, intLen)
    GetByteString = strRtn
End Function

'以下是讀取文件和拆分字符串的處理
    Dim fsoReadFile As FileSystemObject               'FSO Object
    Dim flFile As File                                'File Object
    Dim tsTxt As TextStream
    '打開文本文件
    Set fsoReadFile = New FileSystemObject
    Set flFile = fsoReadFile.GetFile(strFileName)
    Set tsTxt = flFile.OpenAsTextStream(ForReading)
    Do While Not tsTxt.AtEndOfStream
        strTMP = tsTxt.ReadLine
        '讀取前十個字節的字符
        strInsert(0) = GetByteString(strTMP, 10)
        '將原字符串縮短
        strTMP = Right(strTMP, Len(strTMP) - Len(strInsert(0)))
        ·
        ·
        ·
        ·
        ·
        ·
        ·
        ·
        '分別按長度截取，以此類推
    Loop
    tsTxt.Close
    Set fsoReadFile = Nothing

這是我能夠想到的解決方法，希望有好方法的朋友能夠指正（40Star@163.com）！