[英]Excel VBA function dealing with delimiters
我需要有关创建Excel VBA函数的帮助。
字符串变量“ mystring ”可以具有三种不同的格式。
第一个只是普通的文本字符串。 在这种情况下,不需要任何操作。 需要其他两个版本来处理标记和href链接,以便稍后生成html输出 。
Excel范例:
mystring = "This is a headline"
mystring = "<myLink href='some/link.html'</myLink> This is also a headline"
mystring = "<noLink href='#'</noLink> This is another headline"
因此,我需要确定该字符串是否包含myLink或noLink 标记,然后将根据href分配给xml href-attribute 。 对于noLink来说,只写<nolink>-tag
并让函数添加href='#'
,我相信。
如果有更好的方法来设置这些分隔符,我欢迎您提出建议。
另外,实际的标题文本是xml-tag的一部分,以后又用于mystringName xml-attribute。
对于以上示例,这些应该是生成的xml标签:
<mytag mystringName="This is a headline"/>
<mytag mystringName="This is also a headline" href="some/link.html" />
<mytag mystringName="This is another headline" href="#" />
然后,借助XSL,我可以处理不同的href属性。
我认为这可以在VBA中使用:
If mystring = "myLink" Then
xmf.writeline "<mytag mystringName=""" & mystring & """href= """ & href & """ > """
End If
我已经在网上找到了这个功能, 这很麻烦:我需要对定界符进行一些不同的编写。 "<myLink href=some/link.html>"This is also a headline
也许这是拆分片段并将它们放入数组的一个很好的起点。
Public Function GetStringFromQuotation(ByRef sText, sDelimiter As String)
'Store the position of the 1st and 2nd delimiter in the String
Dim iPositionOfFirstDelimiter As Integer, iPositionOfSecondDelimiter As Integer
'Store the length of the delimiter
Dim iLenDelimiter As Integer
'Deliver nothing if the function doesn't get a single usable parameter
'otherwise you'd get an error later on
If Len(sText) = 0 And Len(sDelimiter) = 0 Then
GetStringFromQuotation = ""
Exit Function
End If
iLenDelimiter = Len(sDelimiter)
'Find 1st occurence of delimiter
iPositionOfFirstDelimiter = InStr(sText, sDelimiter)
'Find the 2nd one, starting right behind the first one
iPositionOfSecondDelimiter = InStr(iPositionOfFirstDelimiter + iLenDelimiter, _
sText, sDelimiter)
'If there are 2 occurences
If iPositionOfFirstDelimiter > 0 And iPositionOfSecondDelimiter > 0 Then
'Take the part of the string that's right between them
GetStringFromQuotation = Mid(sText, iPositionOfFirstDelimiter + iLenDelimiter, _
iPositionOfSecondDelimiter - iPositionOfFirstDelimiter - iLenDelimiter)
Else
GetStringFromQuotation = ""
End If
End Function
希望您能帮助我使此功能(或其他功能)正常工作。
非常感谢。
如果我理解正确,则您的字符串可能包含1或3个部分。 我将使用单个定界符(一个或多个字符)来分隔这些部分,并删除单引号,如下所示:
'Using a semicolon
mystring = "This is a headline"
mystring = "myLink;some/link.html;This is also a headline"
mystring = "noLink;#;This is another headline"
您编写的函数将如下所示:
Public Function GetXML(str As String) As String
Dim mylinkPos As Integer, nolinkPos As Integer
Dim remainderString As String, nextDelimiterPos As String
Dim href As String, headline As String
mylinkPos = InStr(str, "mylink;")
nolinkPos = InStr(str, "nolink;")
If mylinkPos = 0 And nolinkPos = 0 Then
GetXML = "<mytag mystringName=""" & str & """ />"
Exit Function
End If
remainderString = Mid(str, 8)
If nolinkPos > 0 Then
headline = remainderString
href = "#"
Else
nextDelimiterPos = InStr(remainderString, ";")
href = Left(remainderString, nextDelimiterPos - 1)
headline = Mid(remainderString, nextDelimiterPos + 1)
End If
GetXML = "<mytag mystringName=""" & headline & """ href=""" & href & """ />"
End Function
当然,使用正则表达式会更加简单和优雅,您可以通过从Tools -> References
添加对Microsoft VBScript Regular Expressions 5.5
的引用来使用正则表达式。
为什么不编写包装函数来处理逻辑:
Private Function makeLink(linkText As String, Optional linkUrl As String)
Dim linkUrlText As String
If (Len(Trim(linkUrl)) > 0) Then
linkUrlText = " href=" & """" & linkUrl & """"
End If
makeLink = "<mytag mystringName=""" & linkText & """" & linkUrlText & " />"
End Function
然后,您只需按以下方式调用它:
Sub test()
Dim link1 As String
link1 = makeLink("This is a headline")
link2 = makeLink("This is also a headline", "some/link.html")
link3 = makeLink("This is another headline", "#")
End Sub
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.