XXXJDT - プログラム倉庫

Private Sub Command1_Click()
    Dim files As String
    Dim a1 As String
    Dim bun As String
    Dim p1 As Integer
    Dim p2 As Integer
    Dim x(1 To 500) As Integer
    Dim n As Integer
    Dim creditnumber As Integer
    Dim y(1 To 500) As Integer
    Dim credit(1 To 500) As String
    Dim op(1 To 500) As String
    Dim m1 As Integer
    Dim m2 As Integer
    Dim m3 As Integer
    Dim m As Integer
    Dim d As String
    
    m = 0
    
     For m1 = 13 To 19
      
      
      If m1 = 13 Then m3 = 35
       If m1 = 14 Then m3 = 42
        If m1 = 15 Then m3 = 30
        If m1 = 16 Then m3 = 35
       If m1 = 17 Then m3 = 31
        If m1 = 18 Then m3 = 31
         If m1 = 19 Then m3 = 10
      
      For m2 = 1 To m3
      
      
     files = "c:/work/data/"
d = CStr(100 * m1 + 1)
files = files + d
     files = files + ".txt"
  Debug.Print files
  
bun = ""

Open files For Input As #1
Do Until EOF(1)
Input #1, a1
bun = bun + a1
Loop
Close #1
      

p1 = InStr(bun, "(")

x(1) = p1


n = 1
p = 0
Do While p < 50
p1 = InStr(p1 + 1, bun, "（")
If p1 < 1 Then p = 100
If p1 > 1 Then n = n + 1
If p1 > 1 Then x(n) = p1
Loop

creditnumber = n

For n = 1 To creditnumber
y(n) = InStr(x(n), bun, "）")
Next

Debug.Print creditnumber

For n = 1 To creditnumber
credit(n) = Mid(bun, x(n) + 1, y(n) - x(n) - 1)
Debug.Print credit(n)
Next

For n = 1 To creditnumber - 1
p = x(n + 1) - y(n) - 1
If p < 0 Then p = 0
op(n) = Mid(bun, y(n) + 1, p)
Next

m = m + 1
files = "c:/work/vb/gdata/"
d = CStr(m)
files = files + d
files = files + ".txt"

Open files For Output As #3
For n = 1 To creditnumber - 1
Write #3, n, credit(n), op(n)
Next
Close #3

Next
Next


End Sub