ªð¦^¦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)

¥»©«³Ì«á¥Ñ luke ©ó 2012-4-30 19:26 ½s¿è

¦^´_ 19# Hsieh


   ÁÂÁÂ

TOP

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

¦^´_ 19# Hsieh


    ÁÂÁÂ

TOP

¦^´_ 18# luke

¹D²z¤@¼Ë¡A¥u¬O§A­n·Q«ç»ò±o¨ì¥Ø¿ýªº¦r¦ê¡A¦Û¤v¥ý°µ°µ¬Ý¡A§â¹J¨ìªº°ÝÃD¦A´£¥X°Q½×¡C
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

[attach]10686[/attach]¦^´_ 17# Hsieh

ÁÂÁÂ

TOP

¦^´_ 16# luke
  1. Sub nn()
  2. Dim A As Range, Ar(8) As Byte
  3. Set fso = CreateObject("Scripting.FileSystemObject")
  4. fd = ThisWorkbook.Path & "\"
  5. For Each A In Range("E2:E5")
  6. For i = 0 To 7
  7.   Ar(i) = Asc(Mid(A.Offset(, -2), i + 1, 1))
  8. Next
  9. fn = fd & A & "\"
  10. fs = fn & A.Offset(, -2) & "\"
  11.    If fso.FolderExists(fn) = False Then MkDir fn
  12.    If fso.FolderExists(fs) = False Then MkDir fs
  13.    fso.copyfile fd & "P01\" & A.Offset(, -3) & ".csv", fn & A.Offset(, -2) & ".csv", True
  14.    fso.copyfile fd & "P01\" & A.Offset(, -3) & ".cbk", fn & A.Offset(, -2) & ".cbk", True
  15.    Open fn & A.Offset(, -2) & ".cbk" For Binary As #1
  16.    n = FileLen(fd & "P01\" & A.Offset(, -3) & ".cbk")
  17.    Seek #1, n - 9
  18.        For j = 1 To 8
  19.          Put #1, , Ar(j - 1)
  20.        Next
  21.    Close #1
  22. Next
  23. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ luke ©ó 2012-4-30 19:29 ½s¿è

¦^´_ 15# Hsieh


·íAA-1.cbkÀɧï¦W¦¨00011112.cbkÀÉ«á(¦p"¤W¦¸µ²ªG"¸ê®Æ§¨),
©ó²Ä8¦ì¼Æ¦r«á­±¦h¤F¨â­ÓªÅ¥Õ®æ(¦pASCII½X¤p¶Â®Ø),
¬ã§P¬Obyte­pºâ¿ù»~,

½Ð°Ý¦p¦ó­×§ï­ì©l½Xµ{¦¡?
·Ð½Ð¥ý¶i ¤j¤j«ü¾É
TEST14D.rar (324.37 KB)

TOP

¦^´_ 14# 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.    fso.copyfile fd & "P01\" & A.Offset(, -3) & ".csv", fn & A.Offset(, -2) & ".csv", True
  11.    fso.copyfile fd & "P01\" & A.Offset(, -3) & ".cbk", fn & A.Offset(, -2) & ".cbk", True
  12.    Open fn & A.Offset(, -2) & ".cbk" For Binary As #1
  13.    n = FileLen(fd & "P01\" & A.Offset(, -3) & ".cbk")
  14.      For i = 1 To 8
  15.      Seek #1, n - 10 + i
  16.      Put #1, , Asc(Mid(A.Offset(, -2), i, 1))
  17.      Next
  18.    Close #1
  19. Next
  20. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 13# Hsieh


    ÁÂÁÂH¤j

     *.csv¬O­ì©l¸ê®Æ¤£»Ý§@§ï¦W, ¥u»Ý¶i¦æ*.cbk³Ì«á¤@¦C¼Æ¦r´À´«§ï¦W.

    §ï¦W«áÀɮפº®e©M¤j¤pOK, ¦ý*.cbkÀɨC­Ó¼Æ¦r«á­±¦h¤F¤A­Ó"ªÅ¥Õ"
    ¦p²Ä1±i¹Ï, ¥¿½TÀ³¬°²Ä2±i¹ÏÀ³¬°¦ì¸m­pºâ¿ù»~.

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

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

TOP

¦^´_ 12# 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.    fso.copyfile fd & "P01\" & A.Offset(, -3) & ".csv", fn & A.Offset(, -2) & ".csv", True
  11.    fso.copyfile fd & "P01\" & A.Offset(, -3) & ".cbk", fn & A.Offset(, -2) & ".cbk", True
  12.    Open fn & A.Offset(, -2) & ".csv" For Binary As #1
  13.    n = FileLen(fd & "P01\" & A.Offset(, -3) & ".csv")
  14.    Seek #1, n - 9
  15.      For i = 1 To 8
  16.      Put #1, , Asc(Mid(A.Offset(, -2), i, 1))
  17.      Next
  18.    Close #1

  19.    Open fn & A.Offset(, -2) & ".cbk" For Binary As #1
  20.    n = FileLen(fd & "P01\" & A.Offset(, -3) & ".cbk")
  21.    Seek #1, n - 9
  22.      For i = 1 To 8
  23.      Put #1, , Asc(Mid(A.Offset(, -2), i, 1))
  24.      Next
  25.    Close #1
  26. Next
  27. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD