Android Tutorial GUI SDK Manager for newer versions of Android tools

B4A SDK Manager will only work on Windows.

The /c is an argument to cmd.exe. It is used to run batch files.

 

V2.22 is released. The Android SDK tools will use the Java set in B4A IDE (if exists).

Android SDK doesn't yet support Java 9. Make sure that B4A is configured with Java 8.

 

Did it previously work? Can you run the source code from B4J and see where it fails?

 

Add Log(Line) in line #279:

Code:

Dim line As String = lines(index(0))
Log(line) '<-----

What is the output?

I don't think that this error is related to the change in the latest version.

 

Please revert any changes you made except of the Log(line) call and post it again.

 

Thank you.
Might be an encoding issue.

Please change ParseListResult code to:

Code:

Sub ParseListResult (StdOut As String)
   Dim lines() As String = Regex.Split2("\r\n", Regex.MULTILINE, StdOut)
   Dim index(1) As Int
   Dim CurrentMap As List
   Dim InAvailableItems As Boolean
   Do While index(0) < lines.Length
     Dim line As String = lines(index(0))
     If line.StartsWith("-------") Then
       Log(lines(index(0) - 1)) '<--- breakpoint here
       Select lines(index(0) - 1).Trim
         Case "Installed packages:"
           CurrentMap = InstalledItems
           InAvailableItems = False
         Case "Available Packages:"
           CurrentMap = AvailableItems
           InAvailableItems = True
         Case "Available Updates:"
           InAvailableItems = False
           CurrentMap = UpdateableItems
       End Select
     Else
       If line = "done" Then Exit
       If line.Length > 0 Then
         Dim c As String = line.CharAt(0)
         If c.ToUpperCase <> c Then
           Dim si As SdkItem = ParseItem(index, lines)
           If Not(InAvailableItems And IsInstalled(si, True)) Then
             If RecommendedSet.ContainsKey(si.Key) And InAvailableItems Then
               RecommendedItems.Add(si)
             Else
               CurrentMap.Add(si)
             End If
           End If
         End If
       End If
     End If
     index(0) = index(0) + 1
   Loop
End Sub

Click on F8 to let it continue step by step. Does it reach the correct case:

?

What is printed from this line:
Log(lines(index(0) - 1))

?

 

Put a breakpoint in line 280 and then click on F8:



Does it go to the correct case block?

 

I guess that it doesn't match the string with "Installed packages:" for some reason. Maybe there is a non-visible character.

You can add this code after line 279:

Code:

Dim s As String = lines(index(0) - 1)
Log("s: " & s)
Log(s.Length)
Log(s = "Installed packages:")

 

Thank you. I've released v2.23. I believe that it will fix this issue.