List to String array

mangojack said:

Hi ... Must the found .jpg files be in an array. ? you already have them listed in your ListView1 , you could just loop thru the listview.

If this does not suit you then you could write the located .jpg files in another list, I did read somewhere this is preferable over an Array

B4X:

Sub GetJPGFiles

    Dim n As Int
    Dim File1 As String
   
    Dim  lstJPGfiles As List
    lstJPGfiles.Initialize
   
    For n = 0 To FileList.Size-1
        File1  = FileList.Get(n)
   
       If File1.EndsWith(".jpg") Then
           ListView1.AddSingleLine(File1)
          lstJPGfiles.Add(File1)      
      
          'asd.Append(File1) ' asd (whatever adds file1 to the array)
         End If
     Next
     
     'Example of a fully Array that i would like to have
     'asd = Array As String("IMG-20130112-WA0004.jpg", "IMG-20130112-WA0003.jpg", "IMG-20130112-WA0002.jpg", "IMG-20130112-WA0000.jpg")

    Msgbox ("The number of jpg files is .. " & lstJPGfiles.Size,"JPG Files")

End Sub

Cheers mj

Click to expand...

Thanks for your answer, but doesnt need another list.Must to be done with a String[]

Click to expand...

Erel said:

Why?

Click to expand...

Erel said:

In that case after you have the list you can create an array and copy the items from the list to the array.

Click to expand...

Erel said:

B4X:

Dim ArrayOfFiles(lstJPGfiles.Size) As String
For i = 0 To lstJpgFiles.Size - 1
 ArrayOfFiles(i) = lstJPGFiles.Get(i)
Next

Click to expand...