請問大神們如何在不規格字串當中抓取郵遞區號?

請問大神們如何在不規格字串當中抓取郵遞區號?
以下為範例

請款10710 黃*瑋 Tel:+886-2-7778-*** #68726 114台北市*246號7樓 ***有限公司
通知 貨到付款: 1588元 黃*瑋 098***4**9 90521台南市***田村***號
貨到付款: 1575元 黃*瑋 098***4**9 905台南市***田村***號
通知 黃*瑋 098***4**9 905台南市***田村***號
黃*瑋 098***4**9 905台南市***田村***號
黃*瑋 098***4**9 這是超商單

由於地址串都還需要另外備註其他事項還有超商的部分
所以字串都不是固定的
請問如何在這不固定字串當中抓取郵遞區號?

另外請問 有沒有大神,願意收費接單寫VBA
關於設定在每列上都有個按鈕 然後依據 收寄人資料 需判定 貨到付款 或是 直接寄
然後連接不同印表機列印,還需特定的輸出格式
謝謝
jafe wrote:
請問大神們如何在不規(恕刪)

初步看了字串的可能性,是否可從地址的第一個字都是"台",往左三個字元就是郵遞區號,另為了避免找到其他非地址的"台",可用"台"右邊第三字元來比對是否有"縣 市"來確保就是地址
上述方式的前提是要確認地址的"台"是否一定出現或是其他字元,輔以右邊字元的比對確認地址,而後以左字元確認郵遞區號抓三位或是五位

其餘根據付款方式連結不同印表機,套不同表指定印表機列印應該都不是問題
建議寫火狐瀏覽器 外掛
市場大概費用在一萬五左右
直接api link
現有網頁多按鈕 自動彙整 客戶資料出單


用vBa 沒太大意義
問題比較簡單

不是太難的工作
請找專業人士,讓他們決定並執行解決方案,不要添加非專業的限制,你的問題並不是處理字串,而很可能是存取資料庫或API,而且VBA在大部分情況都不再是合適的語言。我相信這些資料實際來自資料庫,而設計合理的資料庫很可能會獨立存儲郵遞區號。
jafe wrote:
台南市***田村***號

先把 地址 截取出來.. 再來拆 郵遞區號

地址截取出來, 也可以送去查..

先整理地址字串 符合該網站API的查詢字串規格, 有空白去空白, 後面有幾樓要砍掉, 址尾有數字沒'號'字要自動補'號'字.. 之類的

https://zip5.5432.tw/




查不出的字串, 再通知人工作業..

不要笑想 100% ...

能幫忙減輕人工7,8成, 那就很偷笑了
peter85899 wrote:
(恕刪)

謝謝大神指引
是有想過用兩個判斷式
一個是遇到縣 一個是遇到市 往前算字串
但又會有個 有縣又有市的情況 .....
peter85899 wrote:
(恕刪)


一定有規則
我看到的規則是 姓名 (空格)電話(空格)郵遞區號+地址

那就是看能不能抓第2個空格後的文字 前5碼 或3碼
jafe wrote:
請問大神們如何在不規(恕刪)



=IFERROR(MID(A1,IFS(IFERROR(SEARCH(" ?????市",A1),0),SEARCH(" ?????市",A1),IFERROR(SEARCH(" ?????縣",A1),0),SEARCH(" ?????縣",A1),IFERROR(SEARCH(" ???????市",A1),0),SEARCH(" ???????市",A1),IFERROR(SEARCH(" ???????縣",A1),0),SEARCH(" ???????縣",A1))+1,IFS(IFERROR(SEARCH(" ?????市",A1),0),3,IFERROR(SEARCH(" ?????縣",A1),0),3,IFERROR(SEARCH(" ???????市",A1),0),5,IFERROR(SEARCH(" ???????縣",A1),0),5)),"")

excel 函數 給你參考
mk2-paul wrote:
=IFERROR(MID(A1,IFS(IFERROR(SEARCH(" ?????市",A1),0),SEARCH(" ?????市",A1),IFERROR(SEARCH(" ?????縣",A1),0),SEARCH(" ?????縣",A1),IFERROR(SEARCH(" ???????市",A1),0),SEARCH(" ???????市",A1),IFERROR(SEARCH(" ???????縣",A1),0),SEARCH(" ???????縣",A1))+1,IFS(IFERROR(SEARCH(" ?????市",A1),0),3,IFERROR(SEARCH(" ?????縣",A1),0),3,IFERROR(SEARCH(" ???????市",A1),0),5,IFERROR(SEARCH(" ???????縣",A1),0),5)),"")

excel 函數 給你參考



=IFERROR(MID(A2,IF(IFERROR(SEARCH(" ?????市",A2),0),SEARCH(" ?????市",A2),IF(IFERROR(SEARCH(" ?????縣",A2),0),SEARCH(" ?????縣",A2),IF(IFERROR(SEARCH(" ???????市",A2),0),SEARCH(" ???????市",A2),IF(IFERROR(SEARCH(" ???????縣",A2),0),SEARCH(" ???????縣",A2),""))))+1,IF(IFERROR(SEARCH(" ?????市",A2),0),3,IF(IFERROR(SEARCH(" ?????縣",A2),0),3,IF(IFERROR(SEARCH(" ???????市",A2),0),5,IF(IFERROR(SEARCH(" ???????縣",A2),0),5,""))))),"")

幫你拆解為非Office2019的公式
星幻 wrote:
幫你拆解為非Office2019的公式...(恕刪)


原來IFS是2019才有的啊,用excel資歷太淺,又學了一課。
關閉廣告
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!