|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
kalok
註冊時間: 2010-08-26 文章: 284
第 1 樓
|
發表於: 星期日 七月 30, 2017 8:31 am 文章主題: APPEND FROM FileName TYPE CSV 問題 |
|
|
使用append from filename type csv讀入一 CSV檔案時有以下雙引號問題, 由於欄位中有雙引號 [45] Merlot "Flamenco" (-gls), 以致 VFP弄錯了, 請問有方法解決嗎?
"_4VH14FVQ1","45","[45] Merlot "Flamenco" (-gls)",175 |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 2 樓
|
發表於: 星期日 七月 30, 2017 9:38 pm 文章主題: |
|
|
只能開excel來轉入table
參考: http://sandstorm36.blogspot.tw/2016/04/append-from-fails-on-memo-vfp.html
代碼: |
Create Cursor junk (familyid i, Name c(60), Description M)
Local lcFile, loExcel As Excel.Application, lnLastRow
lcFile = Getfile("csv")
If !Empty(m.lcFile)
loExcel = Createobject("excel.application")
With loExcel
.Workbooks.Open(m.lcFile)
For lnloop = 2 To .Cells(1, 1).CurrentRegion.Rows.Count
Insert Into junk (familyid, Name, Description) Values ;
(.Cells(m.lnloop,1).Value,.Cells(m.lnloop,2).Value,;
.Cells(m.lnloop,3).Value)
Next
.ActiveWorkBook.Close
.Quit
Endwith
Go Top
Browse Normal
Endif
|
_________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
kalok
註冊時間: 2010-08-26 文章: 284
第 3 樓
|
發表於: 星期一 七月 31, 2017 1:45 am 文章主題: |
|
|
謝謝, 我試試看 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4225 來自: Taipei,Taiwan
第 4 樓
|
發表於: 星期一 七月 31, 2017 4:46 pm 文章主題: |
|
|
也可以先把csv中的引號轉成全形,
轉進來之後再轉回半形.
或者轉成其他不常用的全形符號,
----
可以的話,真的不要再用csv,
改用xml比較簡單 _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
kalok
註冊時間: 2010-08-26 文章: 284
第 5 樓
|
發表於: 星期三 八月 02, 2017 9:50 am 文章主題: |
|
|
不知怎的, garfield兄的程式跑起來總有些問題. 用xml應該比csv好 |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 6 樓
|
發表於: 星期三 八月 02, 2017 11:06 am 文章主題: |
|
|
excel資料如果有null 是有可能造成欄位對不齊的狀況 _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
kalok
註冊時間: 2010-08-26 文章: 284
第 7 樓
|
發表於: 星期四 八月 03, 2017 7:38 am 文章主題: |
|
|
我的CSV有些欄位會是空白的 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4225 來自: Taipei,Taiwan
第 8 樓
|
發表於: 星期四 八月 03, 2017 10:21 am 文章主題: |
|
|
相對於 cell.value ,
我個人偏向用 cell.text 再轉回正確型態,
避免 excel 太過自動,value 值亂七八糟的. _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
Watermelon
註冊時間: 2005-01-22 文章: 202
第 9 樓
|
發表於: 星期二 八月 08, 2017 9:26 am 文章主題: |
|
|
COPY to D:\客戶資料.csv type csv
請問用上述方法將一個TEXT的欄位複製到CSV檔,欄位值為1/2在CSV檔都會變成1月2日請要如何處理?
請問一定加引號再轉或有其他較方便之方法? |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4225 來自: Taipei,Taiwan
第 10 樓
|
發表於: 星期二 八月 08, 2017 10:11 am 文章主題: |
|
|
第一次聽到 1/2 => 1月2日
這通常是匯入端的問題吧.
也可以讓 1/2 => 0.5 呀! (黑人問號) _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
goodnight
註冊時間: 2008-10-13 文章: 472 來自: 台南市
第 11 樓
|
發表於: 星期二 八月 08, 2017 1:33 pm 文章主題: |
|
|
先用記事本讀入, 然後用取代把 " 取代掉就可以了
好像可以這樣APPEND FROM mytxt.txt DELIMITED WITH "
參考資料: [url]https://msdn.microsoft.com/en-us/library/aa977271(v=vs.71).aspx[/url] _________________ 希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4225 來自: Taipei,Taiwan
第 12 樓
|
發表於: 星期二 八月 08, 2017 5:11 pm 文章主題: |
|
|
阿,
不就先 FILETOSTR 讀進來,
再把某些字元替換掉,
再STRTOFILE,
最後再 APPEND FROM 匯進來.
---
4樓就是在說這個. _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
kalok
註冊時間: 2010-08-26 文章: 284
第 13 樓
|
發表於: 星期一 三月 05, 2018 7:13 am 文章主題: |
|
|
試一試 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|