VFP 愛用者社區

[hw]

有個台南慈善組織，成員系統是用VFP 6 寫的，但已年久沒有維護。

想請問如何將 data_a.dbf 檔案中的 地址欄位 '台南縣' 全部取代成 '台南市'


PS：
這應該是很笨的一個問題，我只是純幫忙，會ECXCEL，但在VFP中的尋找取代功能，不像 EXCEL那樣簡單好用，因此請各位高手能幫忙指點一下。
謝謝！(成員系統中的電腦，有 VFP 6.0程式)

再次感謝！

[bx1166]

進入 vfp 6

有一個命令方框 如果沒有 選程式 執行
打入命令
set defa to c:\myfilelocationdirectory (dbf 所在的資烙夾名稱)
use data_a
repl all 地址欄位 with "台南市" for 地址欄位="台南縣"
use

這就可以了

[hw]

感謝 bx1166 ！
已改成功了！
想再請問一下，有沒有 EXCLUSIVE，會有差別嗎？

剛執行的：
USE d:\XX功德會\測試資料\dbf\data_a.dbf EXCLUSIVE
BROWSE LAST
repl all a_addt with "台南市善化區" for a_addt="台南縣善化鎮"

[bx1166]

exclusive 指不分享 獨占

通常排序 還有一些大量更動時 都需要excl

讀取 跟一兩筆的異動 就不需要

要看是不是單機版本的 還是多機共用資料版的

單機版的 這方面的問題 直接全開成excl 比較方便

多機版的 就要考慮有沒有人 同時存取此資料檔案

[hw]

ok，感謝說明！
以後有問題時，希望能再請教您，謝謝！

[hw]

實際操作，發現有五都更新都要改地址…
想請問：
1、如果打錯字了，如何復原？(undo，ctrl+z的功能)
2、若用excel，輸入兩欄：舊地址,新地址，可以用這兩欄來作批次更改嗎？
(這好像很難…)
感謝！

[bx1166]

可以一行一行的 用notepad寫成類似批次檔的 命名為 xxx.prg

或者 命令方框理 modi comm xxx
存檔

命令方框理 do xxx
就可以一次解決
怕出錯 先備檔一下 弄錯了 去修改 prg 存回備檔 再來一次
這就是vfp 最方便的地方

[ckp6250]

五都改址，另得注意其鄉鎮市村都要一併修改，鄉鎮市要改成區，村要改成里
以下程式可供參考

Procedure 改址程序
Lparameters vTable , vField
Wait "五都改址："+vTable Window Nowait
Update (vTable) Set &vField = Strtran(&vField,"巿","市")
Update (vTable) Set &vField = Strtran(&vField,"台","臺") Where Left(&vField,2) = "台"
Update (vTable) Set &vField = Strtran(&vField,"鄉","區") Where Left(&vField,6) $ "臺北縣,臺南縣,臺中縣,高雄縣"
Update (vTable) Set &vField = Strtran(&vField,"鎮","區") Where Left(&vField,6) $ "臺北縣,臺南縣,臺中縣,高雄縣"
Update (vTable) Set &vField = Strtran(&vField,"市","區") Where Left(&vField,6) $ "臺北縣,臺南縣,臺中縣,高雄縣"
Update (vTable) Set &vField = Strtran(&vField,"村","里") Where Left(&vField,6) $ "臺北縣,臺南縣,臺中縣,高雄縣"
Update (vTable) Set &vField = Strtran(&vField,"臺北縣","新北市") Where &vField Like "臺北縣%"
Update (vTable) Set &vField = Strtran(&vField,"臺南縣","臺南市") Where &vField Like "臺南縣%"
Update (vTable) Set &vField = Strtran(&vField,"臺中縣","臺中市") Where &vField Like "臺中縣%"
Update (vTable) Set &vField = Strtran(&vField,"高雄縣","高雄市") Where &vField Like "高雄縣%"
Update (vTable) Set &vField = Strtran(&vField,"左區區","左鎮區") Where &vField Like "臺南市%"
Update (vTable) Set &vField = Strtran(&vField,"新區區","新市區") Where &vField Like "臺南市%"
Use In (vTable)
Wait Clear
Return


除了左鎮和新市外，不知還有沒有其它要二次修改的？有的話，請幫忙提出!

[hw]

感謝 ckp6250 與 bx1166 熱心的回覆
待上班日時，我去該慈善團體試試
有這種方法，應該會非常方便！

[jerryclt]

嗯...是慈善機構,
能不收費就不收費,
咱們設計人員喝西北風也不會餓死 ^^

回正題,
如果是 replace 置換的字元打錯,
只要再執行一次正確的語法就OK了!

repl all 地址欄位 with "台中市" for 地址欄位="台南縣" <-- 打錯字
repl all 地址欄位 with "台南市" for 地址欄位="台中市" <-- 把錯的字再改一次就好