VBA基础入门（41）转换的思维

    接着上期说，如何把文本数据抽出到Excel，接下来在抽出数据的时候，可以对抽出的数据加以处理，细化。就好比目标是画一颗大树，上期就好比画上树干，本期就相当于给他添上绿叶。

    由于想截取的字符串并不是固定位置开始的，所以显然Mid这个函数不适合，Split函数正好符合，但是有一个问题，中间的空格并不是固定的位数，有2个，3个，4个等等。那么能不能把这些空格变成统一的位数呢？可以用Replace函数做个循环，依次把两个空格变成一个，最终会每个项目的间距都会变成一个，但是循环又有些麻烦。

    用Trim函数！但是不是普通的Trim，因为Trim只会去掉两边所有的空格，是Excel内部函数Trim，用Application.WorksheetFunction.Trim来调用，这个Application.WorksheetFunction还可以调用其他的Excel函数，以后再来分享。

Sub Test0419_1()Dim FSO As New FileSystemObjectDim F As TextStreamDim Row1 As IntegerDim src As StringDim srcTrim As StringDim Col1 As IntegerRow1 = 1Set F = FSO.OpenTextFile("D:\Test.txt")Do Until F.AtEndOfLine    src = F.ReadLine    srcTrim = Application.WorksheetFunction.Trim(src)    For Col1 = 0 To UBound(Split(srcTrim, " "))        Sheets("ReadFile").Cells(Row1, Col1 + 1) = _        "'" & Split(srcTrim, " ")(Col1)    Next    Row1 = Row1 + 1LoopF.CloseEnd Sub