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

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

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

¦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)

»yªk¤º®e¨D¸Ñ

¥»©«³Ì«á¥Ñ luke ©ó 2012-4-27 07:10 ½s¿è

¦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

TOP

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

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

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

TOP

¦^´_ 3# luke

­n§ï¨º¨Ç¦r?
   
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD