VFP ·R¥ÎªÌªÀ°Ï ­º­¶ VFP ·R¥ÎªÌªÀ°Ï
¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
 
 ±`¨£°ÝÃD±`¨£°ÝÃD   ·j´M·j´M   ·|­û¦Cªí·|­û¦Cªí   ·|­û¸s²Õ·|­û¸s²Õ   ·|­ûµù¥U·|­ûµù¥U 
 ­Ó¤H¸ê®Æ­Ó¤H¸ê®Æ   µn¤JÀˬd±zªº¨p¤H°T®§µn¤JÀˬd±zªº¨p¤H°T®§   µn¤Jµn¤J

csv to dbf

 
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD  
µoªí¤H ¤º®e
aforangel



µù¥U®É¶¡: 2010-05-24
¤å³¹: 117


²Ä 1 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤Q¤ë 22, 2020 6:14 pm    ¤å³¹¥DÃD: csv to dbf ¤Þ¨¥¦^ÂÐ

CSV¦³40¸U­Ó¬ö¿ý, ¤j¬ù15­ÓÄæ¦ì
¦p¦ó¥i¥H¥¿½T¤S§Ö³t¦a¶×¤JDBF
¸Õ¹L¶×¤J¥X²{¶Ã½X, ¤é´Á¶×¤J«á¤SÅܦ¨ªÅ¥Õµ¥.....
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
syntech



µù¥U®É¶¡: 2003-05-16
¤å³¹: 4211
¨Ó¦Û: Taipei,Taiwan

²Ä 2 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤Q¤ë 22, 2020 8:50 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¥i¯à§AªºCSVÀɲV¨ì¤£¹ïªºªF¦è,
¨Ò¦p,´«¦æ°O¸¹,«DBIG5½s½X¤å¦r,¥X²{¦h¾lªº³r¸¹¤§Ãþªº,

¤]³\§A­n¥ý¸g¹L¤@­Ó¾ã²zªº¦æ¬°,¤~¯à¶×¶i¨Ó

_________________
¦pªG¤½¥q¦³¤U¦C§xÂZ:
1. §ä¤£¨ì«K©y,§Ö³t,²©öªº ¥Í²£±Æµ{³nÅé
2. ¤£ª¾¹D¦p¦ó§Ö³t±Æ©w ±ÄÁÊ­p¹º
3. ¦¨¥»§ì¤£·Ç,¦Û¤vºâ¤ñ³nÅéºâ¦³¥Î
4. ·Q¾Ç²ß¨t²Î³W¹º,·Q§ä¨t²Î¬[ºcªºÅU°Ý

½ÐÁpµ¸§Ú­Ì,¤]³\§Ú­ÌÀ°±o¤W¦£
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó AIM Address
aforangel



µù¥U®É¶¡: 2010-05-24
¤å³¹: 117


²Ä 3 ¼Ó

µoªíµoªí©ó: ¬P´Á¤­ ¤Q¤ë 23, 2020 11:38 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¥N½X:

select(uSDbf2)
  zap
  xx=GETOBJECT("","Excel.Application")
  sh=xx.application
  sh.Workbooks.Open(alltrim(.text1.value))
  for k=1 to 1
    mname= sh.Sheets(k).Name
    sh2=sh.activesheet
    sh.ActiveCell.SpecialCells(11).Select
    jj=sh.ActiveCell.row()
    for i=2 to jj
      m_date=alltrim(sh2.Cells(1,'A').value)
      m_shopid=alltrim(sh2.Cells(1,'B').value)
      m_set_no=sh2.Cells(i,'E').value
      do case
   case vartype(m_set_no) == "C"
          m_set_no = alltrim(m_set_no)
   case vartype(m_set_no) == "N"
          m_set_no = alltrim(str(m_set_no,30))
      endcase
      if !empty(m_set_no)
        m_date=sh2.Cells(i,'A').value
   do case
          case vartype(m_date) == "T"
       m_date = ctod(dtoc(m_date))
     case vartype(m_date) == "D"
     case vartype(m_date) == "C"
       m_date = ctod(m_date)
          case vartype(m_date) == "N"
       m_date = DATE(1899,12,30)+m_date
     otherwise
       m_date = ctod("  /  /  ")
   endcase
   m_shopid=sh2.Cells(i,'B').value
   do case
            case vartype(m_shopid) == "C"
          m_shopid = alltrim(m_shopid)
            case vartype(m_shopid) == "N"
               m_shopid = alltrim(str(m_shopid))
   endcase
   m_shop=alltrim(sh2.Cells(i,'C').value)
   m_invoice=alltrim(sh2.Cells(i,'D').value)
   m_set_desc=alltrim(sh2.Cells(i,'F').value)
   m_typec_acc=sh2.Cells(i,'G').value
   do case
          case vartype(m_typec_acc) == "C"
             m_typec_acc = alltrim(m_typec_acc)
          case vartype(m_typec_acc) == "N"
        m_typec_acc = alltrim(str(m_typec_acc,30))
   endcase                     
   m_type_acc=alltrim(sh2.Cells(i,'H').value)
   m_skuno=sh2.Cells(i,'I').value
   do case
           case vartype(m_skuno) == "C"
              m_skuno = alltrim(m_skuno)
           case vartype(m_skuno) == "N"
         m_skuno = alltrim(str(m_skuno,40))
        endcase
   m_item_desc=alltrim(sh2.Cells(i,'J').value)
   m_qty=sh2.Cells(i,'K').value
   if vartype(m_qty) <> "N"
          m_qty = 0
        endif
   m_net_amt=sh2.Cells(i,'L').value
   if vartype(m_net_amt) <> "N"
          m_net_amt = 0
   endif
   m_org_amt=sh2.Cells(i,'M').value
   if vartype(m_org_amt) <> "N"
          m_org_amt = 0
   endif
   append blank
   replace date with m_date, shopid with m_shopid
        replace shop with m_shop, invoice with m_invoice
        replace set_no with m_set_no, set_desc with m_set_desc
        replace type_acc with m_type_acc, skuno with m_skuno
        replace item_desc with m_item_desc, qty with m_qty
        replace net_amt with m_net_amt, org_amt with m_org_amt
        replace typec_acc with m_typec_acc
      endif
    next i
  next k
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
aforangel



µù¥U®É¶¡: 2010-05-24
¤å³¹: 117


²Ä 4 ¼Ó

µoªíµoªí©ó: ¬P´Á¤­ ¤Q¤ë 23, 2020 11:41 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

ÂI¸Ñ·|©Ò¦³ÁY±Æ³£®ø¥¢¤F, ¦nÃø¬Ý....

§Ú¥Î³oÄø¤èªk, 40¸U­ÓRECORD­n¤j¬ù¤@¤p®ÉŪ¤JDBF, ¦³¨S¦³¤°»ò¤èªk¥i¥H¥N´À...­n¼g¤J¤@­ÓTEMP.DBF
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
CPS0204



µù¥U®É¶¡: 2014-08-24
¤å³¹: 441


²Ä 5 ¼Ó

µoªíµoªí©ó: ¬P´Á¤­ ¤Q¤ë 23, 2020 2:05 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

sele your_dbf
append from c:\temp\a1.csv type csv

°O±o³o¼Ë´N¥i¥H¤F
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
lygcw9603



µù¥U®É¶¡: 2011-12-25
¤å³¹: 126


²Ä 6 ¼Ó

µoªíµoªí©ó: ¬P´Á¤­ ¤Q¤ë 23, 2020 2:19 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¥ý¾Ç°ò¦¡A¦A¾Ç½sµ{¡A³o¼Ë¤Ö¨«Ås¸ô¡C
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
syntech



µù¥U®É¶¡: 2003-05-16
¤å³¹: 4211
¨Ó¦Û: Taipei,Taiwan

²Ä 7 ¼Ó

µoªíµoªí©ó: ¬P´Á¤­ ¤Q¤ë 23, 2020 2:34 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

CPS0204 ¼g¨ì:
sele your_dbf
append from c:\temp\a1.csv type csv

°O±o³o¼Ë´N¥i¥H¤F



+1
°£«D¦³¯S§Oªº°ÝÃD

¤£µM´N¬O¥Î odbc ªº¤è¦¡¶×¤J,
¥Î excel ole ¤@¦æ¤@¦æ¤è¦¡¶×¤J¬O³ÌºCªº

¦pªG§A´N¬O³ßÅw³o¼Ë¥Î,
¤£­n¥Î cell.value,
¥Î cell.text ¦Û¤vÂà®æ¦¡.

_________________
¦pªG¤½¥q¦³¤U¦C§xÂZ:
1. §ä¤£¨ì«K©y,§Ö³t,²©öªº ¥Í²£±Æµ{³nÅé
2. ¤£ª¾¹D¦p¦ó§Ö³t±Æ©w ±ÄÁÊ­p¹º
3. ¦¨¥»§ì¤£·Ç,¦Û¤vºâ¤ñ³nÅéºâ¦³¥Î
4. ·Q¾Ç²ß¨t²Î³W¹º,·Q§ä¨t²Î¬[ºcªºÅU°Ý

½ÐÁpµ¸§Ú­Ì,¤]³\§Ú­ÌÀ°±o¤W¦£
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó AIM Address
garfield
Site Admin


µù¥U®É¶¡: 2003-01-30
¤å³¹: 2157


²Ä 8 ¼Ó

µoªíµoªí©ó: ¬P´Á¤­ ¤Q¤ë 23, 2020 3:55 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

§A¦b3¼Ó¶K¤å¤w¸gÀ°§A¥[¤W¤@¨Ç"¼ÐÅÒ"¤Î¤£¥´¤Ä"Ãö³¬³o½g¤å³¹ªºªí±¡²Å¸¹¥\¯à", §A¥i¥H­×§ï¶K¤å¬Ý¤@¤U.

§A¥i¥H¥Î³oºØ¤è¦¡¸Õ¬Ý¬Ý AppendFromExcel
­ì²z¬O³z¹Lodbc ¶}±ÒexcelÀÉ, ¥Îselect SQL»yªk¨ú¥X¸ê®Æ
https://github.com/hbcdev/cims/blob/master/Progs/appendxlsx.prg

_________________
§Q¥Î>>·j´M<<ªº¥\¯à·|¤ñ°ÝªºÁÙ­n§Ö±o¨ìµª®×.
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó
aforangel



µù¥U®É¶¡: 2010-05-24
¤å³¹: 117


²Ä 9 ¼Ó

µoªíµoªí©ó: ¬P´Á¤» ¤Q¤ë 24, 2020 1:10 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

[quote="CPS0204"]sele your_dbf
append from c:\temp\a1.csv type csv

°O±o³o¼Ë´N¥i¥H¤F[/quote]

·PÁ¤j¤j´£¿ô, ¨ä¹ê¤@¶}©l§Ú³£¦³¥ÎAPPEND FROM CSV COMMAND
§Ú¬Oª½±µ¥ÎPOS¨t²Î³y¥X¨ÓªºCSVÀɶפJ, ¶×¤J«áDBF¥X¤@°ï¶Ã½X, §Ú¥H¬°³o¼Ë¶×¤J·|¦³°ÝÃD, ¤~¦Û¤v¼gCOMMAND³v¦æŪ¤J, ©Ò¥HŪ¤J®É¶¡¤Óªø,

¤µ±ß¦A¸Õ, ¥ý¥ÎEXCEL¶}POSªºCSVÀÉ, ¤°»ò¤]¤£§ï´N¦A¥t¦s¤@­ÓCSVÀÉ¥h¶×¤J, ´N¦¨¥\¤F, ©Ò¦³¶Ã½X¤£¨£¤F, 40¸U­ÓRECORDŪ¤J®É¥Ñ1¤p®ÉÅܦ¨1¤ÀÄÁ.....¤Ó¿³¾Ä¤F
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
aforangel



µù¥U®É¶¡: 2010-05-24
¤å³¹: 117


²Ä 10 ¼Ó

µoªíµoªí©ó: ¬P´Á¤» ¤Q¤ë 24, 2020 1:09 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¤µ¦­¤S¥X·N¥~¤F, ¬Q±ß¦b®a¤¤¸Õ, ©Ò¦³Äæ¦ìªº¥¿½TŪ¤J, ¤µ¦­¦b¤½¥q¦A¸Õ, ¤é´ÁÄæ¦ìúÀ¤J¤£¨ì, ©ú©úCSVÀɤé´Á¥¿±`, ¦ý¶×¤J¨ìDBF BROWSE¥X¨Ó¬Ý¤é´Á³£ÅܪťÕ, ½Ð°Ý¤j¤jª¾¬O¤°»ò­ì¦]¶Ü?
.
.
.
.
¤w¸Ñ¨M !!
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
±q¤§«eªº¤å³¹¶}©lÅã¥Ü:   
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï ©Ò¦³ªº®É¶¡§¡¬° ¥x¥_®É¶¡ (GMT + 8 ¤p®É)
²Ä1­¶(¦@1­¶)

 
«e©¹:  
±z µLªk ¦b³o­Óª©­±µoªí¤å³¹
±z µLªk ¦b³o­Óª©­±¦^ÂФ峹
±z µLªk ¦b³o­Óª©­±½s¿è¤å³¹
±z µLªk ¦b³o­Óª©­±§R°£¤å³¹
±z µLªk ¦b³o­Óª©­±¶i¦æ§ë²¼
±z µLªk ¦b³o­Óª©­±ªþ¥[ÀÉ®×
±z µLªk ¦b³o­Óª©­±¤U¸üÀÉ®×


Powered by phpBB © 2001, 2005 phpBB Group
¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@