5

我有以下字符串，我希望从中提取部分：

<FONT COLOR="GREEN">201 KAR 2:340.</FONT>

在这种特殊情况下，我希望提取数字 201,2 和 340，稍后我将使用它们连接形成另一个字符串：

http://www.lrc.state.ky.us/kar/201/002/340reg.htm

我有一个解决方案，但它不容易阅读，而且看起来相当笨重。它涉及使用中间功能。这里是：

intTitle = CInt(Mid(strFontTag, 
                    InStr(strFontTag, ">") + 1, 
                    (InStr(strFontTag, "KAR") - InStr(strFontTag, ">")) 
                           - 3))

我想知道是否有更好的方法来完成这项任务。我意识到我可以创建一些描述性的变量名称，比如 intPosOfEndOfOpeningFontTag 来描述第一个 InStr 函数的作用，但我仍然觉得它很笨拙。

我应该使用某种拆分函数、正则表达式，还是我还没有遇到过的更优雅的方式？多年来我一直以这种方式操纵字符串，我只是觉得必须有更好的方法。谢谢。

4

4 回答 4

1

班上

Imports System
Imports System.IO
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Xml
Imports System.Xml.Linq
Imports System.Linq

Public Class clsTester
    'methods
    Public Sub New()
    End Sub

    Public Function GetTitleUsingRegEx(ByVal fpath$) As XElement
        'use this function if your input string is not a well-formed
        Dim result As New XElement(<result/>)
        Try
            Dim q = Regex.Matches(File.ReadAllText(fpath), Me.titPattern1, RegexOptions.None)
            For Each mt As Match In q
                Dim t As New XElement(<title/>)
                t.Add(New XAttribute("name", mt.Groups("name").Value))
                t.Add(New XAttribute("num1", mt.Groups("id_1").Value))
                t.Add(New XAttribute("num2", mt.Groups("id_2").Value))
                t.Add(New XAttribute("num3", mt.Groups("id_3").Value))
                t.Add(mt.Value)
                result.Add(t)
            Next mt
            Return result
        Catch ex As Exception
            result.Add(<error><%= ex.ToString %></error>)
            Return result
        End Try
    End Function

    Public Function GetTitleUsingXDocument(ByVal fpath$) As XElement
        'use this function if your input string is well-formed
        Dim result As New XElement(<result/>)
        Try
            Dim q = XElement.Load(fpath).Descendants().Where(Function(c) Regex.IsMatch(c.Name.LocalName, "(?is)^font$")).Where(Function(c) Regex.IsMatch(c.Value, Me.titPattern2, RegexOptions.None))
            For Each nd As XElement In q
                Dim s = Regex.Match(nd.Value, Me.titPattern2, RegexOptions.None)
                Dim t As New XElement(<title/>)
                t.Add(New XAttribute("name", s.Groups("name").Value))
                t.Add(New XAttribute("num1", s.Groups("id_1").Value))
                t.Add(New XAttribute("num2", s.Groups("id_2").Value))
                t.Add(New XAttribute("num3", s.Groups("id_3").Value))
                t.Add(nd.Value)
                result.Add(t)

            Next nd
            Return result
        Catch ex As Exception
            result.Add(<error><%= ex.ToString %></error>)
            Return result
        End Try
    End Function

    'fields
    Private titPattern1$ = "(?is)(?<=<font[^<>]*>)(?<id_1>\d+)\s+(?<name>[a-z]+)\s+(?<id_2>\d+):(?<id_3>\d+)(?=\.?</font>)"
    Private titPattern2$ = "(?is)^(?<id_1>\d+)\s+(?<name>[a-z]+)\s+(?<id_2>\d+):(?<id_3>\d+)\.?$"
End Class

用途

Sub Main()
        Dim y = New clsTester().GetTitleUsingRegEx("C:\test.htm")
        If y.<error>.Count = 0 Then
            Console.WriteLine(String.Format("Result from GetTitleUsingRegEx:{0}{1}", vbCrLf, y.ToString))
        Else
            Console.WriteLine(y...<error>.First().Value)
        End If

        Console.WriteLine("")
        Dim z = New clsTester().GetTitleUsingXDocument("C:\test.htm")

        If z.<error>.Count = 0 Then
            Console.WriteLine(String.Format("Result from GetTitleUsingXDocument:{0}{1}", vbCrLf, z.ToString))
        Else
            Console.WriteLine(z...<error>.First().Value)
        End If
        Console.ReadLine()
    End Sub

希望这可以帮助。

于 2012-06-30T06:49:01.680 回答
1 
<FONT[^>]*>[^\d]*(\d+)[^\d]*(\d+):(\d+)[^\d]*</FONT>
于 2012-06-29T20:04:15.003 回答
1

正则表达式模式：<FONT[^>]*>.*?(\d+).*?(\d+).*?(\d+).*?<\/FONT>

于 2012-06-29T19:58:21.200 回答
0

我认为@Jean-François Corbett 是对的。

将其隐藏在函数中，永不回头

将您的代码更改为：

intTitle = GetCodesFromColorTag("<FONT COLOR="GREEN">201 KAR 2:340.</FONT>")

创建一个新函数：

Public Function GetCodesFromColorTag(FontTag as String) as Integer

    Return CInt(Mid(FontTag, InStr(FontTag, ">") + 1, 
                (InStr(FontTag, "KAR") - InStr(FontTag, ">")) 
                - 3))

End Function
于 2013-03-12T19:30:21.083 回答