ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°ª¤â¨ó§U.¬Ý¤@¤U,¦³¤°»ò°ÝÃD(­n¦b²Ä11 , ¥[0)

½Ð°ª¤â¨ó§U.¬Ý¤@¤U,¦³¤°»ò°ÝÃD(­n¦b²Ä11 , ¥[0)

½Ð°ª¤â¨ó§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

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2010-7-16 23:09): ¥»½×¾Â¬O¥H°Q½×¬°¨ú¦V,¦³µª®×¥i¥H´£¥X¨Ó¨Ñ¤j®a°Ñ¦Ò

·d©w.. THS ..

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD