kanji info small fixes

hopto-dot · Sep 19, 2020 · 3a80e19 · 3a80e19
1 parent 6065a6c
commit 3a80e19
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/Japanese Conjugation Helper/Module1.vb b/Japanese Conjugation Helper/Module1.vb
@@ -4402,7 +4402,7 @@ Module Module1
  Console.Clear()
  Const QUOTE = """"
  Console.WriteLine("Enter a string of kanji.")
- Dim KanjisString As String = Console.ReadLine
+ Dim KanjisString As String = Console.ReadLine.Trim.Replace(" ", "")
 
  Console.Clear()
  Console.WriteLine("Kanji Information for 「" & WanaKana.StripOkurigana(KanjisString) & "」")
@@ -4433,20 +4433,21 @@ Module Module1
  Catch
 
  End Try
- Console.Clear()
+ Console.WriteLine("No info for " & ActualSearchWord)
+ Console.WriteLine
  Continue For
  End Try
 
  Dim KanjiInfo As String = ""
  Try
  KanjiInfo = RetrieveClassRange(WordHTML, "<span class=" & QUOTE & "character literal japanese_gothic", "</aside>", "KanjiInfo")
  Catch
- Console.Clear()
+ 'Console.Clear()
  Continue For
  End Try
 
  If KanjiInfo = "" Then
- Console.Clear()
+ 'Console.Clear()
  Continue For
  End If
 
@@ -4479,7 +4480,7 @@ Module Module1
  Loop
  Array.Resize(KanjiGroup, KanjiGroup.Length - 1)
  Catch
- Console.Clear()
+ 'Console.Clear()
  End Try
 
  Dim ActualInfo(KanjiGroup.Length - 1, 3) 'X = Kanji (group), Y = Info type.
@@ -4627,6 +4628,7 @@ Module Module1
  Next
  Console.WriteLine("Done!")
  Console.ReadLine()
+ Main()
  End Sub