取代雙引號內的字串

帖子: 2819
主題: 10
精華: 0
積分: 2875
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-6-29

2^#

發表於 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,"_"))

hcm19522

大學生 Rank: 4

帖子: 1368
主題: 4
精華: 0
積分: 1378
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-7-2

熱烈參與勳章

3^#

發表於 2015-12-5 15:54 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/362710895

ML089

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2015-12-6 10:48 | 只看該作者

=IF(LEFT(A1)&RIGHT(A1)="""""",SUBSTITUTE(A1," ","_"),A1)

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

VANESSA

中學生 Rank: 2

帖子: 100
主題: 37
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2007
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2010-8-11
最後登錄: 2024-3-12

論壇贊助勳章

5^#

發表於 2015-12-9 11:37 | 只看該作者

謝謝各位高手,但是我的案例是一組字串有多個" ",而且要第1個"要和第2個" 配成一組,第3個"和第4個"
配成一組,所以第2個"和第3個"之間的空白要維持,
附上例子
set address "Trust" "172.22.112.113/32 Apple TV" 172.22.112.113 255.255.255.255 "Tel 2245 U7A4"
要變成
set address "Trust" "172.22.112.113/32_Apple_TV" 172.22.112.113 255.255.255.255 "Tel_2245_U7A4"

帖子: 2819
主題: 10
精華: 0
積分: 2875
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-6-29

6^#

發表於 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)　

VANESSA

中學生 Rank: 2

帖子: 100
主題: 37
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2007
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2010-8-11
最後登錄: 2024-3-12

論壇贊助勳章

7^#

發表於 2015-12-10 12:59 | 只看該作者

謝謝版主,解決我的問題了
可以再請教
T = Mid(xStr, i, 1)
　　If T = """" Then N = 1 - N: K = 0
　　If N = 1 And K = 0 Then K = InStr(i + 1, xStr, """")
　　If K > 0 And T = " " Then T = "_"
　　TT = TT & T
這段的意思嗎?謝謝

帖子: 2819
主題: 10
精華: 0
積分: 2875
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-6-29

8^#

發表於 2015-12-10 13:29 | 只看該作者

回復 7# VANESSA

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

VANESSA

中學生 Rank: 2

帖子: 100
主題: 37
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2007
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2010-8-11
最後登錄: 2024-3-12

論壇贊助勳章

9^#

發表於 2015-12-10 13:32 | 只看該作者

謝謝謝謝,感激不盡

帖子: 2819
主題: 10
精華: 0
積分: 2875
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-6-29

10^#

發表於 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