Italian leggere dati da un file txt

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
  Dim ScriviTxt As TextWriter
  Dim LeggiTxt As TextReader
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

      Dim btnSalva As Button     
  Dim btnLeggi As Button
 
  Dim txt1 As EditText
  Dim txt2 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("bau")
If File.ExternalWritable = False Then       
      Msgbox("Impossibile scrivere sulla card!", ".:ATTENZIONE:.")       
      Return
  Else
      Msgbox("E' possibile scrivere sulla card!", ".:ATTENZIONE:.")
  End If   
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnSalva_Click
  ScriviTxt.Initialize(File.OpenOutput(File.DirRootExternal, "miei_dati.txt", True))

 
      ScriviTxt.WriteLine(txt1.text)
  ScriviTxt.Close
End Sub
Sub btnLeggi_Click
     
  If File.Exists(File.DirRootExternal, "miei_dati.txt") = False Then
      Msgbox("Non ho trovato il file da leggere!", ".:ATTENZIONE:.")       
      Return
  End If
 
 
  LeggiTxt= File.ReadString(File.DirRootExternal, "miei_dati.txt"), "")
 
  ' txt2.Text = "Dimensioni file: " & File.Size(File.DirRootExternal, "miei_dati.txt") & " bytes." & CRLF
 

  ' Do While strLinea <> Null       
    '  txt2.Text = txt2.text   
    ' strLinea = LeggiTxt.ReadLine     
  'Loop   
  LeggiTxt.Close
End Sub

Sub btnSalva_Click
      ScriviTxt.Initialize2(File.OpenOutput(File.DirRootExternal, "miei_dati.txt", True), "UTF8")
      ScriviTxt.Write(txt1.text)
      ScriviTxt.Close
End Sub

Sub btnLeggi_Click
  If File.Exists(File.DirRootExternal, "miei_dati.txt") = False Then
      Msgbox("Non ho trovato il file da leggere!", ".:ATTENZIONE:.")   
      Return
  End If
  LeggiTxt.Initialize2(File.OpenInput(File.DirRootExternal, "miei_dati.txt"), "UTF8")
  txt2.Text = LeggiTxt.ReadAll
  LeggiTxt.Close
End Sub

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
  Dim ScriviTxt As TextWriter
  Dim LeggiTxt As TextReader
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

      Dim btnSalva As Button     
  Dim btnLeggi As Button
 
  Dim txt1 As EditText
  Dim txt2 As EditText
    Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("bau")
If File.ExternalWritable = False Then       
      Msgbox("Impossibile scrivere sulla card!", ".:ATTENZIONE:.")       
      Return
  Else
      Msgbox("E' possibile scrivere sulla card!", ".:ATTENZIONE:.")
  End If   
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnSalva_Click
    ScriviTxt.Initialize2(File.OpenOutput(File.DirRootExternal, "miei_dati.txt", True), "UTF8")
    ScriviTxt.Write(txt1.text)
      ScriviTxt.Close
End Sub
Sub btnLeggi_Click
  If File.Exists(File.DirRootExternal, "miei_dati.txt") = False Then
      Msgbox("Non ho trovato il file da leggere!", ".:ATTENZIONE:.")   
      Return
  End If
  LeggiTxt.Initialize2(File.OpenInput(File.DirRootExternal, "miei_dati.txt"), "UTF8")
  txt2.Text = LeggiTxt.ReadAll
  LeggiTxt.Close
End Sub
Sub Button1_Click
    ScriviTxt.Initialize2(File.OpenOutput(File.DirRootExternal, "miei_dati.txt", True), "UTF8")
    ScriviTxt.Write("")
          ScriviTxt.Close
End Sub

Sub Button1_Click
    VuotaFile
End Sub

Sub VuotaFile
    Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "miei_dati.txt", False)
    out.Close
End Sub

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim ScriviTxt As TextWriter
    Dim LeggiTxt As TextReader
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim btnSalva As Button
    Dim btnLeggi As Button
 
    Dim txt1 As EditText
    Dim txt2 As EditText
    Private btnVuota As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("main")
    If File.ExternalWritable = False Then
        Msgbox("Impossibile scrivere sulla card!", ".:ATTENZIONE:.")
        Return
    Else
        Msgbox("E' possibile scrivere sulla card!", ".:ATTENZIONE:.")
    End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnSalva_Click
    ScriviTxt.Initialize2(File.OpenOutput(File.DirRootExternal, "miei_dati.txt", True), "UTF8")
    ScriviTxt.Write(txt1.text)
    ScriviTxt.Close
End Sub

Sub btnLeggi_Click
    If File.Exists(File.DirRootExternal, "miei_dati.txt") = False Then
        Msgbox("Non ho trovato il file da leggere!", ".:ATTENZIONE:.")
        Return
    End If
    LeggiTxt.Initialize2(File.OpenInput(File.DirRootExternal, "miei_dati.txt"), "UTF8")
    txt2.Text = LeggiTxt.ReadAll
    LeggiTxt.Close
End Sub
 
Sub btnVuota_Click
    Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "miei_dati.txt", False)
    out.Close
End Sub

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim ScriviTxt As TextWriter
    Dim LeggiTxt As TextReader
    
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim btnSalva As Button
    Dim btnLeggi As Button
 
    Dim txt1 As EditText
    Dim txt2 As EditText
    Private btnVuota As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
'    rp.CheckAndRequest("android.permission.WRITE_SETTINGS")
    Activity.LoadLayout("main")
'    If File.ExternalWritable = False Then
'        Msgbox("Impossibile scrivere sulla card!", ".:ATTENZIONE:.")
'        Return
'    Else
'        Msgbox("E' possibile scrivere sulla card!", ".:ATTENZIONE:.")
'    End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnSalva_Click
    ScriviTxt.Initialize2(File.OpenOutput(File.GetSafeDirDefaultExternal, "miei_dati.txt", True), "UTF8")
    ScriviTxt.Write(txt1.text)
    ScriviTxt.Close
End Sub

Sub btnLeggi_Click
    If File.Exists(File.GetSafeDirDefaultExternal, "miei_dati.txt") = False Then
        Msgbox("Non ho trovato il file da leggere!", ".:ATTENZIONE:.")
        Return
    End If
    LeggiTxt.Initialize2(File.OpenInput(File.GetSafeDirDefaultExternal, "miei_dati.txt"), "UTF8")
    txt2.Text = LeggiTxt.ReadAll
    LeggiTxt.Close
End Sub
 
Sub btnVuota_Click
    Dim out As OutputStream = File.OpenOutput(File.GetSafeDirDefaultExternal, "miei_dati.txt", False)
    out.Close
End

Sub ListModelView_ItemClick (Position As Int, Value As Object)
    
    Dim List1 As List
    
    'controllo se esiste il file di testo
    If File.Exists(File.DirRootExternal, "RCHangar/ListModel.txt") Then
        'se il file esiste carico i dati dal file di testo
        List1 =File.ReadList(File.DirRootExternal, "RCHangar/ListModel.txt")
        
    End If
    
    Dim stringTemp As String = List1.Get(Position)
    
    Dim stringArray() As String = Regex.Split("\|",stringTemp)
    
    ModelName = stringArray(0)
    Component1 = stringArray(1)
    Component2 = stringArray(2)
    Component3 = stringArray(3)
    Component4 = stringArray(4)
    Component5 = stringArray(5)
    Component6 = stringArray(6)

    ModelViewPanel.Visible = True
    
End Sub

Dim ModelValidFlag As Boolean = False

If Position < 0 or Position> List1.Size - 1 Then
    Log ("Model #" & Position & "not in file / list")
else
    Dim stringTemp As String = List1.Get (Position)
    Dim stringArray () As String = Regex. Split ("|", stringTemp)

    If StringArray.Length < 7 then 'or <> 7, depending on how strict you want to be
        Log ("incomplete model line")
    else
        ModelName = stringArray (0)
        Component1 = stringArray (1)
        Component2 = stringArray (2)
        Component3 = stringArray (3)
        Component4 = stringArray (4)
        Component5 = stringArray (5)
        Component6 = stringArray (6)
        ModelValidFlag = True
    End If
End If

If ModelValidFlag Then
    'continue on our merry way :-)
    ...
End If