如何删除excel vba中字符串中的第一个逗号
如何删除excel vba中字符串中的第一个逗号
提问于 2013-11-13 19:54:43
回答 3
Stack Overflow用户
回答已采纳
发布于 2013-11-13 20:29:31
以这种方式尝试使用Regexp：
Sub foo()
Dim TXT As String
TXT = """foo, bar"" baz, test, blah"
Debug.Print TXT
Dim objRegExp As Object
Set objRegExp = CreateObject("vbscript.regexp")
With objRegExp
.Global = True '
.Pattern = "(""\w+)(,)(\s)(\w+"")"
Debug.Print .Replace(TXT, "$1$3$4")
End With
End Sub对于您提供的示例值，它的工作原理与预期一样，但可能需要通过更改.Pattern来对更复杂的文本进行额外的调整。
如果您想将此解决方案用作函数而不是使用以下代码，请编辑：
Function RemoveCommaInQuotation(TXT As String)
Dim objRegExp As Object
Set objRegExp = CreateObject("vbscript.regexp")
With objRegExp
.Global = True
.Pattern = "(""\w+)(,)(\s)(\w+"")"
RemoveCommaInQuotation = .Replace(TXT, "$1$3$4")
End With
End FunctionStack Overflow用户
发布于 2013-11-13 20:50:32
呃。还有另一种方法
Public Function foobar(yourStr As String) As String
Dim parts() As String
parts = Split(yourStr, Chr(34))
parts(1) = Replace(parts(1), ",", "")
foobar = Join(parts, Chr(34))
End FunctionStack Overflow用户
发布于 2013-11-13 20:35:28
对奇数双引号进行一些错误检查：
Function myremove(mystr As String) As String
Dim sep As String
sep = """"
Dim strspl() As String
strspl = Split(mystr, sep, -1, vbBinaryCompare)
Dim imin As Integer, imax As Integer, nstr As Integer, istr As Integer
imin = LBound(strspl)
imax = UBound(strspl)
nstr = imax - imin
If ((nstr Mod 2) <> 0) Then
myremove = "Odd number of double quotes"
Exit Function
End If
For istr = imin + 1 To imax Step 2
strspl(istr) = Replace(strspl(istr), ",", "")
Next istr
myremove = Join(strspl(), """")
End Function页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/19963082
复制相关文章
相似问题
腾讯云开发者
