wshzw

请问：
从已打开的顺序文件中删除某一行（并将此空行也删除,就是将下一行提升一行），该用什么语句或方法？

wshzw

引用:

原帖由 wshzw 于 2008-8-7 12:26 发表
请问：
从已打开的顺序文件中删除某一行（并将此空行也删除,就是将下一行提升一行），该用什么语句或方法？

以附件中的文件，要去掉以“德固赛3”开头的这一行，我现在只能用以下代码： Set.rar (194 Bytes)

Set.rar (194 Bytes)
下载次数: 474

2008-8-9 23:41

Sub test()
   Dim aIni$(), i&, ii&, aTmp$()
   Open App.Path & "\Set.ini" For Input As #1
   aIni() = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbLf)
   Close #1
   
   Do While i < UBound(aIni)
      If Left(aIni(i), 4) <> "德固赛3" Then
         ReDim Preserve aTmp(ii)
         aTmp(ii) = aIni(i)
         ii = ii + 1
      End If
      i = i + 1
   Loop
   
   i = 0
   Open App.Path & "\Set.ini" For Output As #1
   Do While i < UBound(aTmp) + 1
      Print #1, aTmp(i)
      i = i + 1
   Loop
   Close #1
End Sub

这样勉强应付行数不多的小文件，行数很多的文件怎么办？

wshzw

Set.rar (194 Bytes)

Set.rar (194 Bytes)
下载次数: 437

2008-8-10 12:18

以附件中的文件，要去掉以“德固赛3”开头的这一行，我现在只能用以下代码：

Sub test()
   Dim aIni$(), i&, ii&, aTmp$()
   Open App.Path & "\Set.ini" For Input As #1
   aIni() = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbLf)
   Close #1
   
   Do While i < UBound(aIni)
      If Left(aIni(i), 4) <> "德固赛3" Then
         ReDim Preserve aTmp(ii)
         aTmp(ii) = aIni(i)
         ii = ii + 1
      End If
      i = i + 1
   Loop
   
   i = 0
   Open App.Path & "\Set.ini" For Output As #1
   Do While i < UBound(aTmp) + 1
      Print #1, aTmp(i)
      i = i + 1
   Loop
   Close #1
End Sub

这样勉强应付行数不多的小文件，行数很多的文件怎么办？

Nothing

没有简单的语法，只能自己写代码进行计算。

wshzw

谢谢回复！我可以不钻牛角尖啦。