0

ListBox 内のすべての Line Items のすべてのスペースを削除しようとしています。正規化空白関数を投入できると思っていましたが、そうではないようです。簡単に言うと、ファイルから XML フィールドの数をカウントするプログラムを作成しようとしています。すべてのフィールドを表示したいのですが、その前のスペースをすべて削除します (XML としてフォーマットされているため)。

'Imports System.IO
Public Class Form1
    Dim theFile As StreamReader
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadTheFile.Click

        'Load the File
        theFile = New StreamReader("C:\Users\Marc Wilson\Documents\XML\sampledata.xml")

        While (theFile.Peek > -1)

            ListBox1.Items.Add(theFile.ReadLine)

        End While
        theFile.Close()

        'Only get the fields
        Dim numberOfLines As Integer = ListBox1.Items.Count
        For i = 0 To numberOfLines - 1

            Dim theLineItem As String = ListBox1.Items.Item(i).ToString
            If theLineItem.Contains("<my:") And theLineItem.Contains("/>") Then
                ListBox2.Items.Add(theLineItem)
            End If
        Next   

        'Count items
        lblCount.Text = ListBox2.Items.Count.ToString

    End Sub   
End Class
4

1 に答える 1

1

これにより、先頭と末尾のスペースが削除されます

theFile.ReadLine.trim
于 2013-06-06T01:15:59.123 に答える