|
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¸ü.
|
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
aforangel
µù¥U®É¶¡: 2010-05-24 ¤å³¹: 117
²Ä 1 ¼Ó
|
µ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Åܦ¨ªÅ¥Õµ¥..... |
|
¦^³»ºÝ |
|
|
syntech
µù¥U®É¶¡: 2003-05-16 ¤å³¹: 4214 ¨Ó¦Û: Taipei,Taiwan
²Ä 2 ¼Ó
|
µ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¸¹¤§Ãþªº,
¤]³\§An¥ý¸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¦£ |
|
¦^³»ºÝ |
|
|
aforangel
µù¥U®É¶¡: 2010-05-24 ¤å³¹: 117
²Ä 3 ¼Ó
|
µ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
|
|
|
¦^³»ºÝ |
|
|
aforangel
µù¥U®É¶¡: 2010-05-24 ¤å³¹: 117
²Ä 4 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤Q¤ë 23, 2020 11:41 am ¤å³¹¥DÃD: |
|
|
ÂI¸Ñ·|©Ò¦³ÁY±Æ³£®ø¥¢¤F, ¦nÃø¬Ý....
§Ú¥Î³oÄø¤èªk, 40¸UÓRECORDn¤j¬ù¤@¤p®ÉŪ¤JDBF, ¦³¨S¦³¤°»ò¤èªk¥i¥H¥N´À...n¼g¤J¤@ÓTEMP.DBF |
|
¦^³»ºÝ |
|
|
CPS0204
µù¥U®É¶¡: 2014-08-24 ¤å³¹: 441
²Ä 5 ¼Ó
|
µ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 |
|
¦^³»ºÝ |
|
|
lygcw9603
µù¥U®É¶¡: 2011-12-25 ¤å³¹: 129
²Ä 6 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤Q¤ë 23, 2020 2:19 pm ¤å³¹¥DÃD: |
|
|
¥ý¾Ç°ò¦¡A¦A¾Ç½sµ{¡A³o¼Ë¤Ö¨«Ås¸ô¡C |
|
¦^³»ºÝ |
|
|
syntech
µù¥U®É¶¡: 2003-05-16 ¤å³¹: 4214 ¨Ó¦Û: Taipei,Taiwan
²Ä 7 ¼Ó
|
µ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¦£ |
|
¦^³»ºÝ |
|
|
garfield Site Admin
µù¥U®É¶¡: 2003-01-30 ¤å³¹: 2158
²Ä 8 ¼Ó
|
µ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¨ìµª®×. |
|
¦^³»ºÝ |
|
|
aforangel
µù¥U®É¶¡: 2010-05-24 ¤å³¹: 117
²Ä 9 ¼Ó
|
µ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 |
|
¦^³»ºÝ |
|
|
aforangel
µù¥U®É¶¡: 2010-05-24 ¤å³¹: 117
²Ä 10 ¼Ó
|
µ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 !! |
|
¦^³»ºÝ |
|
|
|
|
±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§@
|