VFP 愛用者社區

[tccvincent]

大家好

1 小弟小傳電子發票 mig 檔

=CURSORTOXML("invoice", "c:\carmat\invo.xml", 1, 512+4

產生檔案後 cus.xml 不管用 哪種軟體 瀏覽器 打開 中文部分都是亂碼

2 手動上傳給國稅局 資料內容這樣就可以嘞嗎,xml 表頭部分或內容部分不用再加上
其他資料嗎?

祈請大家不吝賜教 謝謝!!!

[CPS0204]

有沒有可能是utf8 格式問題 ?
請將你的本文內容貼到ai 問一下就可以了

[tccvincent]

按照 ai 解法

LOCAL lcXML
* 生成 XML 字串 (此時內容仍是本地編碼)
USE CUS
CURSORTOXML("CUS", "lcXML", 1, 0, 0, "1")
* 強制轉換為 UTF-8 位元組
lcXML = STRCONV(lcXML, 9)
* 寫入檔案時需確保不進行額外轉換
STRTOFILE(lcXML, "c:\output.xml")

中文仍是亂碼!!!!!!!

[CPS0204]

沒有甚麼ai 不能解決的!如果有:就是你沒有買付費的ai (例如:付費版的 gemini)

請上傳你的原始txt檔,給ai 然後問他中文為何都是亂碼

[tccvincent]

了解
謝謝您

[syntech]

一般情況,
上傳必須轉成 UTF-8 格式的文字檔
而VFP 通常只會轉成 DBCS 格式的文字檔
要經過STRCONV(x,9) 轉換
這就是AI告訴你的答案

不過,你需要用其他 "支援UTF8 編碼"的文字檔編輯器才看得懂內容
用VFP開,就是亂碼
VFP 開啟時,前面的亂碼是 BOM.
需不需要加BOM 要看上傳的網站是否要求

[CPS0204]

func put_csv_body
LPARAMETERS LCLINE1,FILENAME,IF_EOF

LOCAL LCUTF8

*lcLine = '"王小明","500字也可以...（略）"' + CHR(13)+CHR(10)
IF IF_EOF &&最後一筆不要換行
LCLINE = LCLINE1
ELSE
LCLINE = LCLINE1 + CHR(13)+CHR(10)
ENDIF
LCUTF8 = STRCONV(LCLINE, 9)

* 1=append 追加
=STRTOFILE(LCUTF8,FILENAME, 1)
RETURN .T.


以上是我生成發票明細(不是檔頭bom).csv 的函數,不是: xml
國稅要求的是 utf8 的csv 檔!不要生成 =CURSORTOXML("invoice", "c:\carmat\invo.xml", 1, 512+4)

[syntech]

問對問題,付費AI真的會正確回答
測試這麼久,還沒失望過
但問錯,答案就天馬行空了

[CPS0204]

付費AI..............good

原本我買chat gtp

後來發現google gemini 回答更快更完整
現在改買google gemini
超級好用的,以前很多不懂,ai手把手給我建議!

[CPS0204]