返回列表 上一主題 發帖

[發問] 請問如何用正規表示，將特殊字元視為字串的一部分？

ychuang
　暱稱: 祈為黃文子

中學生Rank: 2

帖子
8 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2013 
閱讀權限
20 
性別
男 
註冊時間
2017-6-6 
最後登錄
2018-8-27 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2017-7-11 08:44 | 只看該作者

[發問] 請問如何用正規表示，將特殊字元視為字串的一部分？

例如：I don't know.中
做搜尋比較時，將 don't 視為一個字串，而非 don 和 t 兩個字串。
收藏 分享

carloslin0316

帖子
12 
主題
1 
精華
0 
積分
50 
點名
0  
作業系統
Windows 
軟體版本
Xp 
閱讀權限
20 
註冊時間
2017-12-26 
最後登錄
2019-5-21 
3#
發表於 2017-12-27 23:57 | 只看該作者
回復 1# ychuang

Public Sub instr_()
    Dim str1 As String
    str1 = "don't"

    For Row = 1 To 10
        For col = 1 To 10
            If (InStr(1, Cells(Row, col), str1)) Then
                Range(Cells(Row, col), Cells(Row, col)).Select
            End If
        Next
    Next

End Sub

TOP

ychuang
　暱稱: 祈為黃文子

中學生Rank: 2

帖子
8 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2013 
閱讀權限
20 
性別
男 
註冊時間
2017-6-6 
最後登錄
2018-8-27 
2#
發表於 2017-8-11 20:52 | 只看該作者
研究很久, 用regular expresion似乎無法達到全面的功能(應是自己太弱了), 最後用以下方法達成。
1. 把要處理的欄位設定為字串格式 .Column("A").NumberFormatLocal = "@"
2. 清句子的頭尾空白後, 再用空白拆字 Split(Trim(sSentence(i)), " ")
3. 對所有的字組用 Replace(sTempWord(j), "特殊字元", "") 疊代清掉

這樣終於能定位出像a-doting, advis’d, all-the-world, aren’t
但還是有個無解的問題
以 ' 開頭的字會被視為字串的前引符號.....(Excel的宿命嗎?)

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題