[µo°Ý] ±qTXTÀÉ´M§ä¯S©wªº¼Æ¦ì,µM«áÂà¼g¨ìExecl

nelson9165

±qTXTÀÉ´M§ä¯S©wªº¼Æ¦ì,¨Ò¦p¥Ñ¥ª­±¶}©l¼Æ°_¦b 33digit - 37 digit, ´M§ä30001, ·í¥G¦X±ø¥ó´NÂà¼g¨ìExecl.

TXTÀɬOOracle AP register ®æ¦¡, ·Q±qExpense nature ©â¨ú»Ý­nªº data.

thanks:)

¤U¸ü (102.79 KB)
oracle

2019-7-3 00:55

Oracle.zip (736 Bytes)

¤U¸ü¦¸¼Æ: 9

2019-7-3 00:58

­ã´£³¡ªL

·Q±o¨ì¤°»ò¼Ë®ÄªG?
¦Ü¤Ö°µ­Óexcel¼Ë¥»~~

nelson9165

¦^´_ 2# ­ã´£³¡ªL

±N¦³30001 A/C ªº Row 滙¤JExcel«á, ¶i¦æ¸ê®Æ¤À³Î.
¦]¬°¸ê®Æ¤Ó¦h,©Ò¥H¤£·Q¾ã­ÓTXTÀÉ滙¤J«á¤~¿z¿ï30001 A/C.


  Item    1 01-000-0-000-00-000-30001-000    Chilled Fresh Meiji 4.3 Deluxe Milk 1Lit               810.00    19-JUN-19     Proc
  Item    1 01-000-0-000-00-000-30001-000    Chilled Slim Milk Meiji 946ml                          162.00    19-JUN-19     Proc

®ÄªG¦p¤U               
               
Date                Description                                                          Amt
19-Jun-19        Chilled Fresh Meiji 4.3 Deluxe Milk 1Lit          810.00
19-Jun-19        Chilled Slim Milk Meiji 946ml                          162.00

­ã´£³¡ªL

Sub TEST()
Dim xFile$, Arr(1 To 6000, 1 To 3), N&, L
ActiveSheet.UsedRange.Offset(1, 0).EntireRow.Delete
xFile = ThisWorkbook.Path & "\Oracle.txt"
If Dir(xFile) = "" Then MsgBox "¤å¦rÀɤ£¦s¦b! ": Exit Sub
Open xFile For Input As #1
While Not EOF(1)
      Line Input #1, L
      If Mid(L, 32, 7) = "-30001-" Then
         N = N + 1
         Arr(N, 1) = Trim(Left(Right(L, 18), 9))
         Arr(N, 2) = Trim(Mid(L, 46, 40))
         Arr(N, 3) = Trim(Right(Trim(Left(L, Len(L) - 20)), 15))
      End If
Wend
Close #1
[A2].Resize(N, 3) = Arr
End Sub

TEST190710.rar (8.07 KB)

¤U¸ü¦¸¼Æ: 6

2019-7-10 10:38

¤å¦rÀÉ»P¥»Àɶ·¦P¤@¸ê®Æ§¨¤¤


=====================