Question

vb中将文件中的数据按行读入数组将数组中的数据按行写入文件（可以是txt的）

用vb写一段代码能够实现的功能是读入文件中的数据 读到数组里 之后（经过了修改）再将数组中的数据写回文件里

Answer 1

Private Function ReadFile(FileName As String) As String() ‘读取文件 Dim M() As String ReDim M(1) Dim FileNum As Integer FileNum = FreeFile Open FileName For Input As #FileNum Line Input #FileNum, M(UBound(M)) While Not EOF(FileNum) ReDim Preserve M(UBound(M) + 1) Line Input #FileNum, M(UBound(M)) Wend Close #FileNum ReadFile=M End Sub Private Sub WriteFile(FileName As String,M() As String) '写入文件 Dim i Dim FileNum As Integer FileNum = FreeFile Open FileName For Output As #FileNum For Each i In M Print #FileNum, i Next Close #FileNum End Sub