請看看我的問題。"F) GND G) FL240)"我的控制元件中有以下字串。
我正在嘗試使用以下代碼決議“F)”和“G)”之間以及“G)”和“)”之間的字串
If Left(s, 2) = "F)" Then
'Task - Filled ItemF with value "GND" or other values between "F)" and "G)"
ItemF = Mid(s, InStr(s, "F)") 3, Len(s) - InStr(s, "G)"))
'或者
'ItemF = Mid(s, InStr(s, "F)") 3, Len(s) - Len(Right(s, InStr(s, "G)"))))
'Task - Filled ItemG with value "FL240" or other values between "G)" and ")"
ItemG = Mid(s, InStr(s, "G)") 3, Len(s) - InStr(s, "G)")) - how I can exclude last ")"
End If
請您解釋一下，如何在“F)”和“G)”之間以及“G)”和“)”之間分離和決議值
uj5u.com熱心網友回復：
使用Split：
FirstValue = Split(Split(s, "F) ")(1), " G)")(0)
SecondValue = Split(Split(s, "G) ")(1), ")")(0)
uj5u.com熱心網友回復：
使用這個功能——
Public Function fParseXML(sTag01 As String, sTag02 As String, sToParse As String) As String
Dim pStart As Integer
Dim pLen As Integer
If InStr(1, sToParse, sTag01) Then
pStart = InStr(1, sToParse, sTag01) Len(sTag01)
pLen = InStr(1, sToParse, sTag02) - pStart
fParseXML = Mid(sToParse, pStart, pLen)
Exit Function
Else
fParseXML = "Not found" & "**" & sTag01 & "**" & Mid(sToParse, 1, 100)
Exit Function
End If
End Function
使用 F) 和 G) 作為標簽。
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/380630.html