如何檢查字符串中的行是否由空格分隔？

Question

我正在構建一個程序，通過掃描其書名頁並使用OCR來獲取本書的出版商...因爲出版商總是處於標題頁的底部，所以我認爲由空間分隔的檢測線是解決方案，但我不知道如何測試。這裏是我的代碼：

Dim builder As New StringBuilder() 
Dim reader As New StringReader(txtOCR.Text) 
Dim iCounter As Integer = 0 
While True 
    Dim line As String = reader.ReadLine() 
    If line Is Nothing Then Exit While 

    'i want to put the condition here 

End While 
txtPublisher.Text = builder.ToString() 

Answer 1

你的意思是空行嗎？然後，你可以這樣做：

Dim bEmpty As Boolean 

然後在循環中：

If line.Trim().Length = 0 Then 
    bEmpty = True 
Else 
    If bEmpty Then 
     '... 
    End If 

    bEmpty = False 
End If 

Answer 2

爲什麼不能做到以下幾點：從底部走，直到你找到的第一個非空行（不知道OCR是如何工作的......也許最底部的行總是非空的，在這種情況下這是多餘的）。在下一步中，直到第一個空行。中間的文字是出版商。

你不需要StringReader爲：

Dim lines As String() = txtOCR.Text.Split(Environment.NewLine) 
Dim bottom As Integer = lines.Length - 1 

' Find bottom-most non-empty line. 
Do While String.IsNullOrWhitespace(lines(bottom)) 
    bottom -= 1 
Loop 

' Find empty line above that 
Dim top As Integer = bottom - 1 

Do Until String.IsNullOrWhitespace(lines(top)) 
    top -= 1 
Loop 

Dim publisherSubset As New String(bottom - top)() 
Array.Copy(lines, top + 1, publisherSubset, 0, bottom - top) 
Dim publisher As String = String.Join(Environment.NewLine, publisherSubset) 

但說實話，我不認爲這是一個特別好的辦法。它不靈活，不能很好地處理意外的格式。我會使用正則表達式來描述發佈者字符串（及其上下文）的外觀。也許這還不夠，你必須考慮描述整個頁面來推斷哪些位是發佈者。

Answer 3

假設發佈者總是在最後一行，並且總是出現在空行之後。那麼下面可能是？

Dim Lines as New List(Of String) 
    Dim currentLine as String = "" 
    Dim previousLine as String = "" 

    Using reader As StreamReader = New StreamReader(txtOCR.Txt) 
    currentLine = reader.ReadLine 
    If String.IsNullOrWhiteSpace(previousLine) then lines.Add(currentLine) 
    previousLine = currentLine 
    End Using 

    txtPublisher.Text = lines.LastOrDefault() 

要忽略，如果以前的行是空/空：

Dim Lines as New List(Of String) 
Using reader As StreamReader = New StreamReader(txtOCR.Txt) 
lines.Add(reader.ReadLine) 
End Using 

txtPublisher.Text = lines.LastOrDefault()