VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

APPEND FROM FileName TYPE CSV 問題

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
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
文章: 2157


第 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
文章: 4211
來自: Taipei,Taiwan

第 4 樓

發表發表於: 星期一 七月 31, 2017 4:46 pm    文章主題: 引言回覆

也可以先把csv中的引號轉成全形,
轉進來之後再轉回半形.

或者轉成其他不常用的全形符號,

----
可以的話,真的不要再用csv,
改用xml比較簡單

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
kalok



註冊時間: 2010-08-26
文章: 284


第 5 樓

發表發表於: 星期三 八月 02, 2017 9:50 am    文章主題: 引言回覆

不知怎的, garfield兄的程式跑起來總有些問題. 用xml應該比csv好
回頂端
檢視會員個人資料 發送私人訊息
garfield
Site Admin


註冊時間: 2003-01-30
文章: 2157


第 6 樓

發表發表於: 星期三 八月 02, 2017 11:06 am    文章主題: 引言回覆

excel資料如果有null 是有可能造成欄位對不齊的狀況
_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
kalok



註冊時間: 2010-08-26
文章: 284


第 7 樓

發表發表於: 星期四 八月 03, 2017 7:38 am    文章主題: 引言回覆

我的CSV有些欄位會是空白的
回頂端
檢視會員個人資料 發送私人訊息
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 8 樓

發表發表於: 星期四 八月 03, 2017 10:21 am    文章主題: 引言回覆

相對於 cell.value ,
我個人偏向用 cell.text 再轉回正確型態,
避免 excel 太過自動,value 值亂七八糟的.

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
Watermelon



註冊時間: 2005-01-22
文章: 197


第 9 樓

發表發表於: 星期二 八月 08, 2017 9:26 am    文章主題: 引言回覆

COPY to D:\客戶資料.csv type csv
請問用上述方法將一個TEXT的欄位複製到CSV檔,欄位值為1/2在CSV檔都會變成1月2日請要如何處理?
請問一定加引號再轉或有其他較方便之方法?
回頂端
檢視會員個人資料 發送私人訊息
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 10 樓

發表發表於: 星期二 八月 08, 2017 10:11 am    文章主題: 引言回覆

第一次聽到 1/2 => 1月2日

這通常是匯入端的問題吧.

也可以讓 1/2 => 0.5 呀! (黑人問號)

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
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
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 雅虎訊息通 MSN Messenger
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 12 樓

發表發表於: 星期二 八月 08, 2017 5:11 pm    文章主題: 引言回覆

阿,
不就先 FILETOSTR 讀進來,
再把某些字元替換掉,
再STRTOFILE,
最後再 APPEND FROM 匯進來.


---
4樓就是在說這個.

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
kalok



註冊時間: 2010-08-26
文章: 284


第 13 樓

發表發表於: 星期一 三月 05, 2018 7:13 am    文章主題: 引言回覆

試一試
回頂端
檢視會員個人資料 發送私人訊息
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作