VFP 愛用者社區

sthuang66 · 註冊時間: 2014-04-27 文章: 173 第 1 樓

請教各位高手??
朋友幫我寫了程式將健保卡基本資料讀出寫入 DATA.TXT檔案
檔案內容如下
A1234567890690923M丁大大
我發現這個字串後面有空白值!!因為我用LEN測出值是40 上面文字應該是24

當我A=FILETOSTR("DATA.TXT")
?LEN(ALLTRIM(A))怎麼都去不掉空白值是40

我僅附上我的DATA.TXT供測試

考倒我了

lygcw9603 · 註冊時間: 2011-12-25 文章: 129 第 2 樓

運行下面的代碼，就知道尾部的字符是什麼了
CLEAR
lcStr = FILETOSTR("D:\data.txt")
FOR ln = 1 TO LENC(lcStr)
? ln, SUBSTRC(lcStr, ln, 1), ASC(SUBSTRC(lcStr, ln, 1))
ENDFOR
? LEFT(lcStr, 18 ), CHR(42050), CHR(42090)

小賴 · 註冊時間: 2004-12-27 文章: 472 第 3 樓

多出的是ASCII 13, 10, 32三種非列印字元(控制字元)

DelStr = CHR(13) + CHR(10) + CHR(32)
A = FILETOSTR("DATA.TXT")
A = CHRTRAN(A, DelStr, "")
? LEN(ALLTRIM(A))
24

sthuang66 · 註冊時間: 2014-04-27 文章: 173 第 4 樓

謝謝兩位高手的提點!!搞定了!!

foxy · 發表於: 星期五五月 31, 2024 8:54 am 文章主題:

小賴 · 註冊時間: 2004-12-27 文章: 472 第 6 樓

CHRTRAN(Str1, "XYZ", "ABC")
將字串 Str1 中的字元
X 改為 A
Y 改為 B
Z 改為 C
第二個參數與第三個參數有對應關系

CHRTRAN(Str1, "XYZU", "A@")

X 改為 A
Y 改為 @
Z 改為 ""
U 改為 ""

對應不到的就是改成 "" (刪除 ZU)

CHRTRAN(Str1, "XYZ", "")
X, Y, Z 都改為 ""
(Str1 中凡有 X, Y, Z字元階刪除)