引言: 我還沒下載來玩不過看了文後有一些小建議 1,2 將地址以 Keyword 分段，就如 縣市路 為不轉之Keyword 鄰段巷 為換的字串 換與不換便可以整段為準而不必只要之前貼著的數字為準，亦不會像第二個方法限死在某不轉之 Keyword 之便所有之前的都不轉 若最後的 Keyword 後還有文字，是獨立一段可預設轉或不轉 這點我有想過, 以縣市路為keyword 但在設計恐十分難寫 在台灣為 縣市區鎮村埔里鄰路街段弄巷號樓 路有二~五字(如五福四路, 六合路, 三路, 一般都不換, 但要判斷路到底有多長 不是拿把尺量就可以, 如何才能判斷這個地址的路長度為多少是個難點! 而且每一筆的地址建立都沒有標準, 我會做這個東西是因為接了一個只是要轉 地址成為統一格式的案子, 看了他們提供的3000萬筆地址我才暈了頭! 不知 justmade兄有何高見!? 3 另建立一對照 TStringList 十=10 百=100 千=1000 萬=10000 用之前的數字要乘以StringList.Values[TheChar] 如三十八 之前找出了三 ->3, StringList.Values['十'] 是 10 --> 3 * 10 = 30 再加後面的 八-> 8 = 38 是比較煩，而且十萬以上不好攪，所以只是供參考一下。 這個在寫時, 我也有想過, 不過考慮在轉換的效能, 我不敢寫 因為取出三還必須由電腦以loop判斷三轉3, 如果一百零三那更困難!

引言:

引言: 我還沒下載來玩不過看了文後有一些小建議 1,2 將地址以 Keyword 分段，就如 縣市路 為不轉之Keyword 鄰段巷 為換的字串 換與不換便可以整段為準而不必只要之前貼著的數字為準，亦不會像第二個方法限死在某不轉之 Keyword 之便所有之前的都不轉 若最後的 Keyword 後還有文字，是獨立一段可預設轉或不轉 這點我有想過, 以縣市路為keyword 但在設計恐十分難寫 在台灣為 縣市區鎮村埔里鄰路街段弄巷號樓 路有二~五字(如五福四路, 六合路, 三路, 一般都不換, 但要判斷路到底有多長 不是拿把尺量就可以, 如何才能判斷這個地址的路長度為多少是個難點! 而且每一筆的地址建立都沒有標準, 我會做這個東西是因為接了一個只是要轉 地址成為統一格式的案子, 看了他們提供的3000萬筆地址我才暈了頭! 不知 justmade兄有何高見!? 3 另建立一對照 TStringList 十=10 百=100 千=1000 萬=10000 用之前的數字要乘以StringList.Values[TheChar] 如三十八 之前找出了三 ->3, StringList.Values['十'] 是 10 --> 3 * 10 = 30 再加後面的 八-> 8 = 38 是比較煩，而且十萬以上不好攪，所以只是供參考一下。 這個在寫時, 我也有想過, 不過考慮在轉換的效能, 我不敢寫 因為取出三還必須由電腦以loop判斷三轉3, 如果一百零三那更困難!

引言: 最好是自己寫... 不要用StringReplace... 用那個速度會很慢.. 自己隨便寫應該都比他快很多吧@@..用pos 不要用TStringList

引言:

引言: 最好是自己寫... 不要用StringReplace... 用那個速度會很慢.. 自己隨便寫應該都比他快很多吧@@..用pos 不要用TStringList

嗯! 不知 aip999 是否有更好的想法, 可否提供一二, 謝謝!

引言: 用while跑字串長度 如過字串中都是中文字就 i:=1; while(i128) then begin//是中文字 //這邊寫轉換 if (str[i] str[i 1]='一') ... inc(i); end else begin//是英文字還是數字還是... end; inc(i); end; 要是只是轉０１２３４５６７８９ i:=1; r:=''; while(i#162)and((str[i 1]>#174)and(str[i 1]<#185)) then begin r:=r char((byte(str[i 1])-127)); end; end;

for j= 0 to oldpattern.count-1 do begin
  if (str[i] str[i 1]=oldpattern[j]) then begin
    ...轉換
    break;
   end;
end;
3.我必須有replaceall 功能, 如果用此法勢必增語法判斷的複雜度及時間
4.我測試StringReplace()最基本的方法轉換
oldparttern有０..９,Ｏ..九,－,之,樓,Ｆ,ｆ,．
有兩個欄位要轉換
轉換10萬筆一共花了72秒(p4 2.4g)
用我上傳的方法一共花了45秒, 3000萬足足省了2.25小時
不過電腦有個特性會越轉越慢, 我測到的基數每150萬的速度約下降3%    以上提供給你參考

引言:

引言: 用while跑字串長度 如過字串中都是中文字就 i:=1; while(i128) then begin//是中文字 //這邊寫轉換 if (str[i] str[i 1]='一') ... inc(i); end else begin//是英文字還是數字還是... end; inc(i); end; 要是只是轉０１２３４５６７８９ i:=1; r:=''; while(i#162)and((str[i 1]>#174)and(str[i 1]<#185)) then begin r:=r char((byte(str[i 1])-127)); end; end;

謝謝 aip999的說明, 這也是一個好方法, 不過我有一點的疑問 if (str[i] str[i 1]='一') ... 這個判斷式有幾個問題 1.if 的效能並不好, 所以如果大量使用if 會降低整個轉換效率, 筆數少的 話看不太出來, 筆數達到一定水準之上, 每一筆多耽0.001秒, 3000萬筆就多耗 3萬秒=8.3小時 2.由於轉換的字串項目(oldpattern)是未定, 對於 if 無法掌握, 除非再加上一 個loop

for j= 0 to oldpattern.count-1 do begin
  if (str[i] str[i 1]=oldpattern[j]) then begin
    ...轉換
    break;
   end;
end;
3.我必須有replaceall 功能, 如果用此法勢必增語法判斷的複雜度及時間
4.我測試StringReplace()最基本的方法轉換
oldparttern有０..９,Ｏ..九,－,之,樓,Ｆ,ｆ,．
有兩個欄位要轉換
轉換10萬筆一共花了72秒(p4 2.4g)
用我上傳的方法一共花了45秒, 3000萬足足省了2.25小時
不過電腦有個特性會越轉越慢, 我測到的基數每150萬的速度約下降3%    以上提供給你參考