luke

¦^´_ 11# Hsieh


    ¦^ÂÐH¤j

    *.cbk¬O¥HASCIIÀx¦sªº¤å¦rÀÉ, , ¦]¦¹Åª¨ú®É·|Åܦ¨¶Ã½X,  
    ¦¹ÀɬO¥Ñ¦P¦Wªº*.csvÀÉ, ¸g¹L­«·s½sĶ¥[±K¦Ó¦¨,
   
    4#´£¨Ñªºµ{¦¡¶È¥¼´À´«*.cbkÀɮ׳̫á¤@¦Cªº±K½X§Ysheet1ªí©Ò¹ïÀ³ªºCÄæ­È,
    ¥H¤U¬OVB»yªk·Q§ï¦¨VBA
       installpass = Worksheets("Sheet1").Cells(i, 3).Value
       Open newcsv For Binary As #1
       flen = FileLen(newcsv)
       For j = 1 To 8
       Put #1, , PassWD(j - 1)
       Next
       Close #1

¦p¦ó´¡¤J³o­Ó»yªk?

·Ð½Ð¥ý¶i ¤j¤j«ü¾É

Hsieh

¦^´_ 10# luke
cbkÀɮ׬O¯S®íªºÀɮ׮榡¡A§Ú¥H°O¨Æ¥»¶}±Ò¥X²{¶Ã½X
¦pªG¨ä¤º®e¬O»P¦P¦WªºcsvÀɮ׬ۦP¡A´N¥HŪ¨úcsv¥N´À§Y¥i

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

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

¦^´_ 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

¦^´_ 3# luke

­n§ï¨º¨Ç¦r?
   

¤U¸ü (56.27 KB)

2012-4-22 23:24

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

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

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

GBKEE

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