从文本文件中读取？

TimSpangler · 发表于 2006-7-19 11:15:48

好的，我回来了（仍然在玩习惯它）
我有一个关于从文本文件中读取的问题。
我有一个文本文件，其中包含如下行：
A-ANNO-DIMS;见证/延伸线、尺寸终止符、尺寸文本;连续;35;7;1;层创建器;
（所有一行没有换行）
我也有这个代码

Public Sub ReadFile()
Dim LayerLine As String
  
  Open "C:\Acad ToolBOX\Layer Creator\Layer Files\Architectural.lyr" For Input As #1    'Open file for input
  Do While Not EOF(1)                           'Loop until end of file
    Input #1, LayerLine           'Read data into two variables
    Debug.Print LayerLine       'Print data to the Immediate window
  Loop
  Close #1                                                'Close file
End Sub

问题是，当我运行它时，它在逗号上很糟糕，我怎么能把它弄到
a.读行作为一行
b.读行并在分号处分开？
- 这将是最好的选择，然后我可以为每个变量设置变量（列出数组吗？
无论如何，这是来自我编写的layercreator程序，我可能会尝试将其移植到vba。
断续器

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

hendie · 发表于 2006-7-19 11:44:08

时间不多，所以我希望我做对了...我使用这样的东西....

copy

Public Sub ReadMyFile()
    Dim inputfile As String
        inputfile = "C:\myfile.txt"
    Dim DataFile As Integer
        DataFile = FreeFile
    Dim Dataline As String
   
    Open inputfile For Input As #DataFile
        While Not EOF(DataFile)
            Line Input #DataFile, Dataline
                ' now you've got the line so do your stuff here
        Wend
    Close #DataFile
end sub

您可能希望查看 replace 方法，将行中的逗号替换为分号，反之亦然。然后，您可以使用split函数从您的行返回一个数组
，这将用逗号替换分号

copy

replace(dataline,";",",",,,vbBinaryCompare)

，然后使用该分隔符将您的行拆分为数组

copy

dim LineArray as variant
LineArray =Split(dataline,",",,vbBinaryCompare)

Bryco · 发表于 2006-7-20 01:15:13

这里有一种方法，将每一行传递给一个函数代码4]

从文本文件中读取？

发表回复

精选推荐