アーティクル

#99 Article 1057 Posted at 1995/12/20 22:33:43 by 夢中ゆわ (MAP2717) [SAHOU.4]

Subject: Re: プログラミング作法・お題４ /1052

ＶＢです。


Sub Command1_Click ()
Const MAX = 32767
Dim A As String, M As String
Dim I As Integer, J As Integer
ReDim C(1 To MAX) As Integer, D(1 To MAX) As Integer, E(1 To MAX) As Integer
Open "TEST.TXT" For Input As #1
M = Chr$(0): J = 0
Do Until EOF(1)
 Line Input #1, A
 I = InStrB(M, A)
 If I Then
  D(I) = D(I) + 1
 Else
  I = LenB(M) + 1
  M = M + A + Chr$(0)
  J = J + 1
  C(J) = LenB(A)
  D(I) = 1
  E(J) = I
 End If
Loop
For I = 1 To J
 FORM1.Print D(E(I)); Mid$(M, E(I), C(I))
Next
'
Close #1
End Sub


ちょっとズルして楽な方法をとってしまいました(^^;)

＃ＭＡＰ２７１７　夢中ゆわ