[µo°Ý] ¦p¦ó«Ø¥ß«ü©w¸ê®Æ§¨©MÀɮ׫þ¨©§ï¦W

luke

¦U¦ì¤j¤j

sheet1ªíBÄæ¸ê®Æ¬°¤å¦rÀÉ(*.csv ©Mcbk)ªºÀÉ®×¥D¦W¦r, CÄæ¬O±ý«þ¨©©M§ó¦Wªº¦WºÙ, EÄæ¬O±ý«Ø¥ßªº¸ê®Æ§¨¦W¦r

¦p¦ó±NBÄæ¸ê®Æ©Ò¹ïÀ³ªºP01¸ê®Æ§¨¦P¦W¤å¦rÀÉ(*.csv ©Mcbk)¶i¦æ«þ¨©¨Ã§ï¦W¦¨CÄæ©Ò¹ïÀ³ªº¦WºÙ

¦A¦æ¦ÜEÄæ¦W¦r¥h«Ø¥ß·sªº¸ê®Æ§¨,
µM«á¨Ì·ÓEÄæ©Ò¹ïÀ³¸ê®Æ¥h¨£¥ß¤l¸ê®Æ§¨©M²¾Âà§ï¦W«áªºÀÉ®×

·Ð½Ð¥ý¶i ¤j¤j«ü¾É
TEST14.rar (59.44 KB)

¤U¸ü¦¸¼Æ: 5

2012-4-22 17:42

luke

¦U¦ì¤j¤j

¤p§Ì¸I¨ì¤F¤U¦C»yªk, ¦ý¤£²M·¡´y­z¤º®e

·Ð½Ð¥ý¶i  ¤j¤j«ü¾É¸Ñµª·N«ä

       Ipass = Worksheets("PASS").Cells(1, 3).Value
       Open Nplc For Binary As #1
       Seek #1, startpos
       For j = 1 To 8
        Put #1, , PassWD(j - 1)
       Next

GBKEE

¦^´_ 1# luke
«Øij§A ¥ý¬Ý¬Ý  VBA¤¤   Open ³¯­z¦¡ ªº»¡©ú

Hsieh

¦^´_ 1# luke

1. Sub nn()
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. fd = ThisWorkbook.Path & "\"
   
4. For Each a In Range("E2:E5")
   
5. fn = fd & a & "\"
   
6. fs = fn & a.Offset(, -2) & "\"
   
7.    If fso.FolderExists(fn) = False Then MkDir fn
   
8.    If fso.FolderExists(fs) = False Then MkDir fs
   
9.    fso.copyfile fd & "P01\" & a.Offset(, -3) & ".csv", fn & a.Offset(, -2) & ".csv", True
   
10.    fso.copyfile fd & "P01\" & a.Offset(, -3) & ".cbk", fn & a.Offset(, -2) & ".cbk", True
    
11. Next
    
12. End Su

½Æ»s¥N½X

luke

¦^´_ 2# GBKEE


ÁÂÁÂG¤j¦^ÂÐ

³o­Ó»yªk¬O±N¤å¦rÀÉ¥´¶}«á
²¾°Ê¦Ü¤å¦rÀɳ̫á¤@¦C
·|Åã¥Ü8­Ó¼Æ¦r

§Q¥Î«ü©wªºÀx¦s®æ(¤º¦³8­Ó¼Æ¦r)°µ´À´«
§Ysheet1ªíCÄ檺¼Æ¦r(¨£¯»¬õ¦â»¡©ú)

·Ð½Ð¥ý¶i ¤j¤j«ü¾É
TEST14A.rar (59.77 KB)

¤U¸ü¦¸¼Æ: 7

2012-4-22 22:55

luke

¦^´_ 2# Hsieh


    ÁÂÁÂH¤j

    °²¦pP01¸ê®Æ§¨©Ò¦³ªº*.cbkÀÉ°µ¤F¤@¨Ç§ïÅÜ, ³o¨Ç¤å¦rÀÉ©óÂন*.cbk«á
    ÁÙ­n¥´¶}¸Ó¤å¦rÀÉ, ±N¸ÓÀɳ̫á¤@¦Cªº8¦ì¼Æ¦r§ï¦¨CÄæ©Ò¥Ü¦WºÙ.

    ¨Ò¦p: AA-1.bak§ï¦W¬°00011112.cbk¤å¦rÀÉ«á,
              ¥²¶·¥ý¥´¶}00011112..cbk¦Ü³Ì«á¤@¦C
              ±N¥¦­Ìªº¼Æ¦r¦p00000000§ï¦¨00011112«á
               ¦A¦æÀx¦sÀÉ®×.

     ½Ð°Ý¦p¦ó­×§ï³o¨Ç¤å¦rÀÉ?

     ·Ð½Ð¥ý¶i ¤j¤j«ü¾É
      TEST14A-1.rar (58.38 KB)

¤U¸ü¦¸¼Æ: 3

2012-4-22 23:20

Hsieh

¦^´_ 3# luke

­n§ï¨º¨Ç¦r?
   

¤U¸ü (56.27 KB)

2012-4-22 23:24

luke

¦^´_ 4# Hsieh

AA-1.cbk, BB-1cbk, CC-1.cbk©MDD-1.cbkµ¥
¤å¦rÀɪº³Ì«á¤@¦C(¬ù²Ä943¦C)
Åã¥Ü¼Æ¦r¬°00000000¦@8­Ó¼Æ¦r(¦p¹Ï¤ù¼Ð¥Ü³B)
­n§ï¦¨¹ïÀ³sheet1ªíCÄæ¼Æ¦r
AA-1cbk-->00011112.cbk
BB-1.cbk-->00333333.cbk
.....

·Ð½Ð¥ý¶i ¤j¤j«ü¾É
TEST14AA.rar (67.86 KB)

¤U¸ü¦¸¼Æ: 4

2012-4-22 23:49

Hsieh

¦^´_ 5# luke

1. Sub nn()
   
2. Dim A As Range
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. fd = ThisWorkbook.Path & "\"
   
5. For Each A In Range("E2:E5")
   
6. fn = fd & A & "\"
   
7. fs = fn & A.Offset(, -2) & "\"
   
8.    If fso.FolderExists(fn) = False Then MkDir fn
   
9.    If fso.FolderExists(fs) = False Then MkDir fs
   
10.    Open fd & "P01\" & A.Offset(, -3) & ".cbk" For Input As #1
    
11.    Open fn & A.Offset(, -2) & ".csv" For Output As #2
    
12.    Open fn & A.Offset(, -2) & ".cbk" For Output As #3
    
13.    Do Until EOF(1)
    
14.    Line Input #1, mystr
    
15.    If EOF(1) = True Then '§ó§ï³Ì«á¤@¦æ¸ê®Æ
    
16.       mystr = A.Offset(, -2)
    
17.    End If
    
18.    Print #2, mystr
    
19.    Print #3, mystr
    
20.    Loop
    
21.    Close #1
    
22.    Close #2
    
23.    Close #3
    
24. Next
    
25. End Sub

½Æ»s¥N½X

luke

¦^´_ 9# Hsieh

ÁÂÁÂH¤j

­ìP01¸ê®Æ§¨©Ò¦³ªº*.cbkÀɧ󴫦¨·Q­nªºÀÉ®×(¬ù51KB-58KB)¤j¤p,,¶i¦æ­×§ï³Ì«á¤@¦C8¦ì¼Æ¦r¦¨CÄæ¨Ã§ï¦W«á, ÀÉ®×¥u³Ñ1KB,»P­ìÀɮפj¤p¬Û®t«Ü¦h, ¥X¤FÂàÀÉ°ÝÃD¡C

½Ð°Ý¦p¦ó­×§ïµ{¦¡?

·Ð½Ð¥ý¶i ¤j¤j«ü¾É
TEST14BB.rar (192.24 KB)

¤U¸ü¦¸¼Æ: 3

2012-4-23 16:48