Find Total, Used and Free Memory on SdCard

[rtesluk]

Sep 27 2011

Hi

With Adroid Level 8 emulator I could use this code

p.Shell("df", Array As String("sdcard"), sb, Null)

to obtain the total, used and free memory on SdCard.

But with Level 9 or higher it (the code) crashes.

I did a adb -e shell df (in DOS) on both a Level 8 and a Level 9 emulator.

I have attached the results of these shell commands for your pursual and you can see that the outputs (the format) are quite different.

Is there any way that I can parse the output of Level 9 higher and get the same information as I can with Level 8?

The information with Level 9 and higher has the current status of the memory on the SdCard but in a different format.

Ray Tesluk :sign0163:

 

[Erel]

You can check the SDK version with Phone.SDKVersion and then parse the df output based on the version.

 

[rtesluk]

A Solution

Sep 28 2011
04:50 Hours

Erel, I took your advice and created this solution (The botton code where p.SdkVersion > 8. Thank you. :sign0188:

Sub CheckSDCard(type_ As String)
Dim p As Phone
Dim sb As StringBuilder
Dim splitLine() As String
Dim splitLine1() As String
Dim splitLine2() As String
Dim s1 As String

   ' Initialize stringbuilder
   sb.Initialize

   ' get memory info of sd card
   p.Shell("df", Array As String("sdcard"), sb, Null)  ' free space

   If p.SdkVersion <= 8 Then 
      Try 
         'split memory info lines
         splitLine=Regex.Split(",",sb.ToString)
         If type_="total" Then
            splitLine1=Regex.Split("K",splitLine(0))
            s1=splitline1(0)
            s1=s1.Replace("sdcard: ","")
            splitline1(0)=s1
            'Log(splitline1(0))
         Else If type_="used" Then
            splitLine1=Regex.Split("K",splitLine(1))
            'Log(splitline1(0))
         Else If type_="available" Then
            splitLine1=Regex.Split("K",splitLine(2))
            'Log(splitline1(0))
         End If
      Catch
         Msgbox(LastException,"FreeSdCard p.Shell SdkVer <= 8")
      End Try
      Return splitline1(0).Trim
   Else
      Try 
         'split memory info lines
         splitLine = Regex.Split("/t",sb.ToString)
         splitLine1 = Regex.Split("sdcard",splitLine(0))
         splitLine2 = Regex.Split("[ ]+",splitLine1(1).Trim)
         Select Case type_
            Case "total"
               Return splitLine2(0).Trim
            Case "used"
               Return splitLine2(1).Trim
            Case "available"
               Return splitLine2(2).Trim
            Case Else
               Return splitLine2(3).Trim
         End Select
      Catch
         Msgbox(LastException,"FreeSdCard p.Shell SdkVer > 8")
      End Try
   End If
End Sub

 

[Erel]

Thank you for sharing your solution. I've added [ code ] [ /code ] tags (without spaces) to make it easier to read.

 

[rtesluk]

What are

 [\code] where do you put them[/b]

[quote="Erel, post: 66122"]Thank you for sharing your solution. I've added [ code ] [ /code ] tags (without spaces) to make it easier to read.[/QUOTE]

I would like to know how you do this tagging for future reference - it certainly is easier to read for the viewers - Ray :):)

 

[rtesluk]

I would like to know how you do this tagging for future reference - it certainly is easier to read for the viewers - Ray

Oh, I see what you did to my response.

my lines of code etc.

[\Code]

Thanks again Erel:sign0188:

 

[XverhelstX]

Or you can also use the OS Library.

dim OS as OperatingSystem
OS.Initialize("OS")
Msgbox(OS.AvailableExternalMemorySize, "Available External Memory Size")
Msgbox(OS.AvailableInternalMemorySize, "Available Internal Memory Size")

http://www.b4x.com/forum/additional-libraries-official-updates/11267-os-library.html

XverhelstX

 

[rtesluk]

Another Great Library

Or you can also use the OS Library.

dim OS as OperatingSystem
OS.Initialize("OS")
Msgbox(OS.AvailableExternalMemorySize, "Available External Memory Size")
Msgbox(OS.AvailableInternalMemorySize, "Available Internal Memory Size")

http://www.b4x.com/forum/additional-libraries-official-updates/11267-os-library.html

XverhelstX

Oct 3 2011

Boy! Oh Boy! Where do all of these cool libraries come from!

Thank you XverhelstX :sign0098: