VFP 愛用者社區

MyFox · 註冊時間: 2008-03-04 文章: 13 第 1 樓

今天找很久只找到 Delimiter WithWITH Character ','

可以去掉我cursor的然後COPY TO CSV會出現的欄位抬頭，

但是我想要拿掉"ABCD","1234" 雙引號變成 ABCD,1234

請問要如何做到><?

syntech · 發表於: 星期一六月 23, 2008 4:05 pm 文章主題:

CHRTRAN( ) /CHRTRANC( )

你準備"寧可錯殺一百,不可放過一人"?

MyFox · 註冊時間: 2008-03-04 文章: 13 第 3 樓

syntech · 發表於: 星期二六月 24, 2008 10:31 am 文章主題:

加油~~

215001 · 註冊時間: 2003-06-11 文章: 393 第 5 樓

大概這樣子吧

copy to test.csv .....
str=FileToStr("test.csv") && 讀入字串.以便處理
str=StrTran(str,chr(34),'') && 開始轉換, 注意是 2 個單引號
strtofile(str,"test.csv") && 回存檔案

Watermelon · 註冊時間: 2005-01-22 文章: 204 第 6 樓

copy to c:\aaa.csv sdf 這樣好像是OK!

syntech · 發表於: 星期三十一月 12, 2025 12:34 am 文章主題:

最近問 copilot 的
"你是一個 VISUAL FOXPRO 9 的程式設計師, 你要撰寫一個函式輸入參數為 VFP CURSOR 輸出為符合RFC 4180規範的 CSV 文件並符合以下要求 1.第一行為欄位名稱" :

syntech · 發表於: 星期三十一月 12, 2025 12:54 am 文章主題:

另外有些會要求 UTF-8 編碼
有些會要求檔頭加入BOM識別是 UTF-8
大概這樣做就可以

CPS0204 · 註冊時間: 2014-08-24 文章: 483 第 9 樓

chat gpt 回答:

可以！在 VFP 9 要「拿掉 CSV 的雙引號」有幾種做法，依你需求嚴格度選一招：

#1 產出時就盡量不要加引號
如果你現在用的是 `COPY TO ... TYPE CSV`，它會很愛加雙引號。改成 **一般分隔檔**會少很多引號（只有遇到真的需要時才加）：

```xbase
* 字元集請換成你要的(950=繁中、1252=西歐…)
COPY TO out.txt TYPE DELIMITED WITH ',' WITH CHARACTERSET 950
```

> 注意：這仍可能在欄位含逗號、換行、引號時自動加上雙引號（為了維持 CSV 規範）。如果你「完全不要任何雙引號」，看 #2 或 #3。

#2 先用現有方式輸出，再整檔移除引號（簡單粗暴）

```xbase
lcIn = "out.csv"
lcOut = "out_noquote.csv"

STRTOFILE( ;
STRTRAN(FILETOSTR(lcIn), '"', ''), ;
lcOut )
```

> 風險：若資料本身含逗號/換行，去掉引號後，**欄位會錯位**。只有在你確定每個欄位都不會出現逗號、換行、雙引號時才安全。

#3 自訂輸出（最保險、可完全控制不產生引號）
自己寫檔並把可能壞格式的字元處理掉（例如把逗號換成空白或其他符號），確保**永不輸出雙引號**：

```xbase
* 範例：將資料表 curData 輸出成無雙引號、逗號分隔檔
* 將逗號(,)與雙引號(")移除，避免破壞結構
LOCAL lnH, lcFile, lcLine
lcFile = "out_clean.csv"
lnH = FCREATE(lcFile)
IF lnH < 0
MESSAGEBOX("無法建立輸出檔")
RETURN
ENDIF

* (可選) 寫表頭
lcLine = "ColA,ColB,ColC"
=FPUTS(lnH, lcLine)

SELECT curData
SCAN
* 轉字串 + 清理
lcA = CHRTRAN(TRANSFORM(curData.ColA), ',"', ' ') && 把逗號與雙引號變空白
lcB = CHRTRAN(TRANSFORM(curData.ColB), ',"', ' ')
lcC = CHRTRAN(TRANSFORM(curData.ColC), ',"', ' ')

* 若還可能有 CR/LF，順便去掉：
lcA = CHRTRAN(lcA, CHR(13)+CHR(10), " ")
lcB = CHRTRAN(lcB, CHR(13)+CHR(10), " ")
lcC = CHRTRAN(lcC, CHR(13)+CHR(10), " ")

lcLine = ALLTRIM(lcA) + "," + ALLTRIM(lcB) + "," + ALLTRIM(lcC)
=FPUTS(lnH, lcLine)
ENDSCAN
=FCLOSE(lnH)
```

> 好處：完全不會有雙引號；壞處：你要自己決定「遇到逗號/換行/引號」怎麼處理（直接刪除、改成空白、或改成其他分隔符號如 `|`）。
> 變體：乾脆用「TAB 分隔」更穩（多數 Excel 也能開）：把上面逗號改成 `CHR(9)`，同時改掉清理策略。

---

## 快速建議

* **要給 Excel/別的系統吃，又怕壞格式**：用 #1（DELIMITED），讓 VFP 在必要時自動加引號，最省事也最安全。
* **你 100% 確定資料裡沒有逗號/換行**：用 #2 最快。
* **你要 0 個雙引號，且可接受改寫內容**：用 #3 自訂輸出（或改成 TAB/管線分隔）。

如果你貼一下你現在的 `COPY TO` 指令、欄位大致型態（有沒有逗號/換行），我可以直接幫你改成最合適的一行（或給你客製版的 #3 範例）。

syntech · 發表於: 星期三十一月 12, 2025 8:59 pm 文章主題:

"符合RFC 4180規範的 CSV 文件"

"越精確的問題,會得到越精確的答案"
這就是目前使用AI的最佳方式
這也是我們這些老頭比菜鳥更佔優勢的原因