討論區快速選單
知識庫快速選單
政府補助!學嵌入式+物聯網 網路投保旅行平安險
[ 回上頁 ] [ 討論區發言規則 ]
COBOL=>請問如何將地址中的路或街後全換成X
更改我的閱讀文章字型大小
作者 : hamu(姆姆)
[ 貼文 2 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/5/8 下午 03:35:22
您好:
     IBM AS400 COBOL
     請問如何將地址中的路或街後全換成X
     EX: 台北市中山區中山北路二段1號
  ANS: 台北市中山區中山北路XXXX
  原想用INSPECT 但發現只能接受1BYTES...
  請教各位,有什麼好方式∼解決此問題呢?
作者 : kjfang(南極仙翁)
[ 貼文 9 | 人氣 2775 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/8/8 下午 02:18:59
想了好久,終於找到我當初的ID & PassWord 進來了。

我沒用過AS400
不過這個問題在 COBOL 應該不太難
把資料放到一維陣列(OCCURS)裡面
用一個 FOR 回圈逐一讀取
抓到 "路" 或 "街" 之後就通通轉換為 "X"
這樣應該就可以了!!
作者 : cobolman(COBOL)
[ 貼文 19 | 人氣 5 | 評價 30 | 評價/貼文 1.58 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人hamu註記此篇回應為最佳解答 2013/10/3 下午 03:43:55
用INSPECT REPLACING...
中文字是兩個Bytes..用陣列會很難判斷.
作者 : knifour(小毛)
[ 貼文 102 | 人氣 894 | 評價 390 | 評價/貼文 3.82 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人hamu註記此篇回應為最佳解答 2013/10/29 下午 02:40:21
請參考以下程式
變數說明:
FLAG:未找到路或街之前,其值為 "N" ,找到以後,其值為 "Y"
II:計數器
CUS-AD1:儲存地址的變數
TEMP:儲存目前要比對的字串

MOVE "N" TO FLAG.
PERFORM VARYING II FROM 1 BY 1 UNTIL II > 40
  IF FLAG NOT = "Y" THEN
    IF II < 40 THEN
     MOVE CUS-AD1(II:2) TO TEMP
     IF TEMP = "路" OR TEMP = "街" THEN
     MOVE "Y" TO FLAG
     ADD 1 TO II
     END-IF
    END-IF
  ELSE
    MOVE "X" TO CUS-AD1(II:1)
  END-IF
END-PERFORM.
DISPLAY CUS-AD1.
 板主 : Cheryl
 > COBOL - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - COBOL - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
COBOL
1 wen 500 
2 小毛 310 
3 阿強 300 
4 ysl561 120 
5 bobkids 120 
6 zhaoxf 100 
7 chen 80 
8 ozzy 50 
9 WDCHIANG 50 
10 50 
COBOL
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.046875