VB里怎么把TXT文件内容提取后需要的后重新输出成文件？ - 编程论坛

xiao9862112015-05-09 23:17

我的思路是先把文件按 W 分成每段再存几个文件，然后在提取整理。但是每次提取的都是一样的，
帮我看看那有问题呀。。。。。

Dim bit7 As String '将文本全部读入
Dim str7() As String  '分割行    分割符为“回车键”
Dim cz
Dim cc
Dim bit11 As String '将文本全部读入
Dim str11() As String  '分割行    分割符为“回车键”
Dim bit12 As String '将文本全部读入
Dim str12() As String  '分割行    分割符为“回车键”
Dim str98(100, 10000) As String
Dim v As Integer
Dim vv As Integer
Dim p As Integer

'开始读文本
Open "D:\XXX.ini" For Binary As #7
        bit7 = Space(LOF(7))
       Get #7, , bit7
       Close #7
   Open "D:\X1.ini" For Output As #10
       cz = "W" '要查找的内容
       str7 = Split(bit7, vbCrLf)
      For c = 0 To UBound(str7)
        If str7(c) = cz Then cc = c + 1: Print #10, cc
      Next
        Close #10

  Open "D:\X1.ini" For Binary As #11
        bit11 = Space(LOF(11))
       Get #11, , bit11
       Close #11
     str11 = Split(bit11, vbCrLf)
           For p = 0 To UBound(str11)
            Next

   Dim jj As Integer
   Dim kk As Integer
           jj = 1
           kk = 0
      For ll = 0 To p - 2
        Open "D:\" & ll & ".ini" For Output As #11
           For w = str11(kk) To str11(kk + 1) - 2
             str98(jj, w) = str7(w)
             Print #11, str98(jj, w)
           Next
         Close #11
         If w = Val(str11(kk + 1) - 2) Then jj = jj + 1: kk = kk + 1
   ‘  在这好想就有问题，w 的值大于 str11(kk + 1) - 2 了，使得 KK 和 JJ 的值不能增加
     Next

End Sub

[ 本帖最后由 xiao986211 于 2015-5-9 23:19 编辑 ]

lianyicq2015-05-11 10:30

回复 2楼 xiao986211

我重新写了一个
自己按需要修改

程序代码：

Option Explicit
Dim Check As Boolean

Private Sub Command1_Click()
Dim Check As Boolean
Dim i As Integer
Dim LineTemp As String
Dim FirstChar As String
Dim Zover As Boolean
Dim temp() As String
Dim ZMax As Single
IniList
For i = 0 To List1.ListCount - 1
  LineTemp = List1.List(i)
  FirstChar = Mid(LineTemp, 1, 1)

  Select Case FirstChar
    Case Is = "W"
      Check = True
      Zover = False
      ZMax = 0
    Case Is = "Z"
      temp = Split(LineTemp, "-")
      If temp(1) > ZMax Then ZMax = temp(1)
    Case Else
      If Zover = False Then
         Zover = True
         Text1.Text = Text1.Text & "Z-" & ZMax & vbCrLf & LineTemp & vbCrLf

         Else
         Text1.Text = Text1.Text & LineTemp & vbCrLf
         Check = False

       End If
   End Select
Next

End Sub

Sub IniList()
Dim temp As String
Open "c:\test.ini" For Input As #1
While (Not (EOF(1)))
  Line Input #1, temp
  Select Case Mid(temp, 1, 1)
    Case Is <> "Z"
      List1.AddItem temp
    Case Is = "Z"
      If Mid(temp, 2, 1) = "-" Then List1.AddItem temp
  End Select
Wend
Close #1
End Sub