From 3a80e1916e41a634ef381310617b231787efa7d9 Mon Sep 17 00:00:00 2001
From: hopto-dot <66906618+hopto-dot@users.noreply.github.com>
Date: Sat, 19 Sep 2020 18:41:33 +0100
Subject: [PATCH] kanji info small fixes

---
 Japanese Conjugation Helper/Module1.vb | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/Japanese Conjugation Helper/Module1.vb b/Japanese Conjugation Helper/Module1.vb
index a2dd1be..f93ec70 100644
--- 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,7 +4433,8 @@ Module Module1
                 Catch
 
                 End Try
-                Console.Clear()
+                Console.WriteLine("No info for " & ActualSearchWord)
+                Console.WriteLine
                 Continue For
             End Try
 
@@ -4441,12 +4442,12 @@ Module Module1
             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