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