½Ð°ª¤â¨ó§U.¬Ý¤@¤U,¦³¤°»ò°ÝÃD.
ìÀɮפº®e
A....
B...
C...
1...
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21
3,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21
8,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21
§Æ±æ¦b ¤§²Ä11 Ó" , " ¥[ " 0" , ¥H¤Uµ{¦¡,¶]¤£°Ê,
Sub AA()
fd = [a2]
fa = [B3]
If Dir(fa, vbDirectory) = "" Then
MkDir fa
End If
fo = [B2]
If Dir(fo, vbDirectory) = "" Then
MkDir fo
End If
fs = Dir(fd & "A*")
Do Until fs = ""
Open fo & fs For Output As #2
Open fd & fs For Input As #1
Do While Not EOF(1) ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
Line Input #1, textline ' Ū¤J¤@¦æ¸ê®Æ¨Ã±N¤§«ü©wµ¹ÅܼơC
If textline Like "1=1 *" Then textline = Join(Array(Split(textline, ",")(0), Split(textline, ",")(1), Split(textline, ",")(2), Split(textline, ",")(3), Split(textline, ",")(4), _
Split(textline, ",")(5), Split(textline, ",")(6), Split(textline, ",")(7), Split(textline, ",")(8), Split(textline, ",")(9), _
Split(textline, ",")(10), Split(textline, ",")(11), "0", Split(textline, ",")(12), Split(textline, ",")(13), Split(textline, ",")(14), _
Split(textline, ",")(15), Split(textline, ",")(16), Split(textline, ",")(17), Split(textline, ",")(18), Split(textline, ",")(19), _
"0,0,0,0", Split(textline, ",")(20), Split(textline, ",")(21)))
Loop
Close #1
Close #2
'Kill fd & fs
fs = Dir()
Loop
End Sub |