返回列表 上一主題 發帖

取代雙引號內的字串

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-7-17 
1# 跳轉到 »
發表於 2015-12-4 16:13 | 顯示全部帖子
本帖最後由 准提部林 於 2015-12-4 16:14 編輯

一個字串中有幾組雙引號？
也許最好多提供些例子！

先以一組雙引號為例:
=LOOKUP("龥",IF({1,0},A1&"",REPLACE(A1,FIND(" ",A1,SEARCH("""* *""",A1)),1,"_")))
或
=IF(ISERR(SEARCH("""* *""",A1)),A1&"",REPLACE(A1,FIND(" ",A1,SEARCH("""* *""",A1)),1,"_"))

TOP

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-7-17 
2#
發表於 2015-12-9 17:27 | 顯示全部帖子
本帖最後由 准提部林 於 2015-12-10 13:27 編輯

雙引號組數有多組, 文字字元數不固定, 可考慮自訂函數：
Function Replace_Space(xStr$) As String
Dim i%, N%, K%, T$, TT$
For i = 1 To Len(xStr)
　　T = Mid(xStr, i, 1)
　　'＿逐一取出字串的字元　
　　If T = """" Then N = 1 - N:  K = 0　
　　'＿T若為雙引號，Ｎ值轉換成１或０＿當N=0，1-0=1＿當N=1，1-1=0＿Ｋ歸零　
　　If N = 1 And K = 0 Then K = InStr(i + 1, xStr, """")
　　'＿當N=1，表示是每對雙引號的〔第１個〕，再去檢查其後是否有另一個雙引號可配對，若有，則Ｋ＞０　　
　　If K > 0 And T = " " Then T = "_"　
　　'＿當Ｋ＞０，表示〔空白格〕仍在雙引號範圍中，取代為"_"，直至再遇到下一個雙引號為結束，Ｎ及Ｋ返回０　
　　TT = TT & T
Next i
Replace_Space = TT
End Function


公式：=Replace_Space(A1)　

TOP

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-7-17 
3#
發表於 2015-12-10 13:29 | 顯示全部帖子
回復 7# VANESSA


樓上已加入註解，邏輯很簡單，但須花些時間去理解！

TOP

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-7-17 
4#
發表於 2015-12-10 16:39 | 顯示全部帖子
If N = 1 And K = 0 Then K = InStr(i + 1, xStr, """")

改成如下，可提示雙引號無配對：
If N = 1 And K = 0 Then
　　K = InStr(i + 1, xStr, """")
　　If K = 0 Then TT = "雙引號無法配對, 請檢查!": Exit For
End If

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題