Cleaning up bugs

hopto-dot · Sep 10, 2020 · b674226 · b674226
1 parent 1ac79bb
commit b674226
Showing 1 changed file with 15 additions and 14 deletions.
diff --git a/Japanese Conjugation Helper/Module1.vb b/Japanese Conjugation Helper/Module1.vb
@@ -402,6 +402,10 @@ Module Module1
  HTML = Client.DownloadString(New Uri(WordURL))
  Dim AddingTemp As String
 
+ If HTML.IndexOf("No matches for") <> -1 Then
+ Console.WriteLine("Looking for similar words...")
+ End If
+
  If HTML.IndexOf("zen_bar") <> -1 And Anki = False Then
  TranslateSentence(Word)
  End If
@@ -434,6 +438,7 @@ Module Module1
  Dim WordChoice As Integer = 10000
  Dim ActualSearch2ndAppearance As String
  Dim Definition1 As String = ""
+
  If WordIndex <> 1 Then 'scraping of words and definitions -------------------------------------------------------------------------------------------
  For LoopIndex = 0 To Max - 1
  Array.Resize(FoundWords, FoundWords.Length + 1)
@@ -495,6 +500,7 @@ Module Module1
 
 
  Next 'end of multiple word scrapping ___________________________________________________________________________
+ Console.WriteLine("Finalizing...")
  Array.Resize(FoundDefinitions, FoundDefinitions.Length - 1)
  Array.Resize(FoundWords, FoundDefinitions.Length)
  Array.Resize(FoundWordLinks, FoundDefinitions.Length)
@@ -525,7 +531,7 @@ Module Module1
  Console.Clear()
  Console.WriteLine("Which definition would you like details for? Type a number, 0 to cancel.")
  Console.WriteLine()
- Console.WriteLine()
+
  Dim TotalWordsFound As Integer = 0
  For looper = 1 To FoundWords.Length
  If IsNothing(FoundWords(looper - 1)) = False Then
@@ -611,7 +617,7 @@ Module Module1
  Max = 0 'because we are in the "else" part of the if statement which means that the user inputted no number or 1
  WordChoice = 0
  End If 'end of one word scrapping and all scrapping _______________________________________________________________________________________________________________________
-
+ Console.WriteLine("Building information...")
  If WordChoice = 0 Then
  WordChoice = 1
  End If
@@ -623,8 +629,6 @@ Module Module1
  SelectedDefinition(Add - 1) = SelectedDefinition(Add - 1).Replace("&quot;", QUOTE) & Add
  Next
 
-
-
  Dim StartingHTML As Integer
  StartingHTML = HTML.IndexOf(ActualSearchWord)
  HTMLTemp = Mid(HTML, StartingHTML)
@@ -638,7 +642,7 @@ Module Module1
  End If
  Dim FullWordType As String = TypeSnip
  Dim TypeSnipEnd As Integer = TypeSnip.IndexOf(",") 'This is to check if there is more than one word type
- Console.Clear()
+
 
 
 
@@ -741,6 +745,8 @@ Module Module1
  End If
  NumberCheckT = NumberCheckT.Replace(" ", "")
 
+ Console.Clear()
+
  If NumberCheckT = NumberCheckD Then
  If Definition < DefG1 + 1 Then
  If Definition <> 0 Then
@@ -1354,7 +1360,6 @@ Module Module1
  Console.WriteLine("Copied " & QUOTE & KanjisLine & QUOTE & " to clipboard")
  Console.ReadLine()
 
-
  ElseIf LastRequest.ToLower = "anki" Or LastRequest.ToLower = "copy anki" Or Anki = True Then
  If FoundTypes.IndexOf("!") = FoundTypes.Length Then
  FoundTypes = Left(FoundTypes, FoundTypes.Length - 1)
@@ -1401,12 +1406,8 @@ Module Module1
 
  If NumberCheckT = NumberCheckD Then
 
- If Definition <> 0 Then
- AnkiCopy = vbCrLf & AnkiCopy
- End If
-
  If Definition < 10 Then
- AnkiCopy = AnkiCopy & (Left(AnkiString(Type), AnkiString(Type).Length - NumberCheckT.Length)) & vbCrLf
+ AnkiCopy = AnkiCopy & (Left(AnkiString(Type), AnkiString(Type).Length - NumberCheckT.Length)) 
  ElseIf Definition > 9 And AnkiString(Type).IndexOf("aux") <> -1 Or Definition > 9 And AnkiString(Type).IndexOf("irr") Then
  AnkiCopy = AnkiCopy & vbCrLf & (Left(AnkiString(Type), AnkiString(Type).Length - NumberCheckT.Length))
 
@@ -1421,9 +1422,9 @@ Module Module1
 
  AnkiCopy = AnkiCopy & vbCrLf
 
- AnkiCopy = vbCrLf & AnkiCopy & Definition + 1 & ". " & Left(SelectedDefinition(Definition), SelectedDefinition(Definition).Length - NumberCheckD.Length).Replace(BArea, "") & BArea
+ AnkiCopy = AnkiCopy & Definition + 1 & ". " & Left(SelectedDefinition(Definition), SelectedDefinition(Definition).Length - NumberCheckD.Length).Replace(BArea, "") & BArea
  Else
- AnkiCopy = vbCrLf & AnkiCopy & Definition + 1 & ". " & Left(SelectedDefinition(Definition), SelectedDefinition(Definition).Length - NumberCheckD.Length).Replace(BArea, "")
+ AnkiCopy = AnkiCopy & vbCrLf & Definition + 1 & ". " & Left(SelectedDefinition(Definition), SelectedDefinition(Definition).Length - NumberCheckD.Length).Replace(BArea, "")
  End If
 
  End If
@@ -1448,7 +1449,7 @@ Module Module1
 
  If BArea.IndexOf("kana") = -1 Then
  If Definition <> 0 Then
- AnkiCopy = AnkiCopy & vbCrLf
+ 'AnkiCopy = AnkiCopy & vbCrLf
  End If
  AnkiCopy = AnkiCopy & vbCrLf & Definition + 1 & ". " & Left(SelectedDefinition(Definition), SelectedDefinition(Definition).Length - NumberCheckD.Length).Replace(BArea, "") & BArea
  Else