[VB.NET]行の先頭にhtml開始タグを削除する方法

2014年8月3日2021年9月9日

書式
1.Public Function StartsWith (value As Char) As Boolean
この文字列の先頭が value と一致する場合は true。それ以外の場合は false。
形式　変数名.Trim().StartsWith(指定文字列)
2.Public Function Substring (startIndex As Integer) As String
インスタンスから部分文字列を取得します。 部分文字列は、文字列中の指定した文字の位置で開始し、文字列の末尾まで続きます。

使用例

Module ModuleTest
    Sub Main()
        Dim strSource() As String = {"<b>AAA 111</b>", "<H2>BBB 222</H2>"}

        ' 文字列要素を表示
        Console.WriteLine("初期文字列:")
        Console.WriteLine("**********")

        For Each s In strSource
            Console.WriteLine(s)
        Next
        Console.WriteLine()

        Console.WriteLine("開始タグが削除された")
        Console.WriteLine("**********")

        ' 開始タグを削除して文字列を表示
        For Each ss In strSource
            Console.WriteLine(DelStartTags(ss))
        Next
        Console.ReadKey()

    End Sub
    'html開始タグを削除
    Private Function DelStartTags(ByVal item As String) As String

        ' 文字列の先頭が指定文字列と一致するかどうか
        If item.Trim().StartsWith("<") Then
            ' 終了タグを検索.
            Dim lastPos As Integer = item.IndexOf(">")
            If lastPos >= 0 Then
                ' タグを削除.
                item = item.Substring((lastPos + 1))

                ' 行の先頭にある複数のhtml開始タグを削除
                item = DelStartTags(item)
            End If
        End If

        Return item
    End Function
End Module

結果
初期文字列:
**********
<b>AAA 111</b>
<H2>BBB 222</H2>

開始タグが削除された
**********
AAA 111</b>
BBB 222</H2>