indlæsning af komma sep fil

jeg kan bruge split men den fungere ikke optimalt

For i = LBound(aPackage) To UBound(aPackage)
            x = Replace(aPackage(i), Chr(9), ",")
            x = Split(x, ",", -1, vbTextCompare)   
            'her kommer x til at se sådan ud : navn,værdi,,,false,,,,tru,,,,
            'det ønskede er så at f bliver  f = navn

        Next

med det virker ikke :(

Prøv det her. Tror der er ged i dit array. Du kan altid læse værdierne ind i de variabler du har lyst til. Jeg har sat en if for at fjerne de tomme værdier, men den kan du fjerne.
sæt en knap og en list på din form og prøv ;-)

Option Explicit

Private Sub Command1_Click()

Dim tekstsplitarray() As String
Dim i As Integer
Dim mintekst As String

mintekst = "navn,værdi,true,false,true,,,,false,,,,,,false"
tekstsplitarray = Split(mintekst, ",", -1, vbTextCompare)
 
  For i = 0 To UBound(tekstsplitarray)
    If tekstsplitarray(i) <> "" Then
      List1.AddItem tekstsplitarray(i)
    End If
  Next
       
End Sub

Når du skriver :
x = Split(x, ",", -1, vbTextCompare) 
Så går det galt. Det du splitter skal være en string og det du splitter den over i, altså de forskellige værdier, skal være et array.

Så kan du istedet for skrive
F = tekstsplitarray(0)
G = tekstsplitarray(1)

sådan kan det gøres

Dim x As Variant
For i = LBound(aPackage) To UBound(aPackage)
      x = Split(aPackage, ",", -1, vbTextCompare)
      Debug.Print x(0)    'print navnet
Next


Bemærk a X skal være en variant og efter splittet vil X være som et array hvor x(0) er navn, x(1) er værdi osv.

Dim x As Variant
For i = LBound(aPackage) To UBound(aPackage)
      x = Split(aPackage(i), ",", -1, vbTextCompare)
      Debug.Print x(0)    'print navnet
Next

jamen hvad er det jeg gøre galt i første sætning...

Se http://www.eksperten.dk/spm/714445

rynke10 og bak kunne i ikke sende et svar ind

bak, virker det?
Det du skal splitte skal være en string, et array er jo allerede opdelt. Det du splitter det op i er et array, så kan du tildele værdien af din F G o.s.v. fra de forskellige pladser i arrayet.

Yes, Det virker :-)

Hvis man kun ønsker at F bliver omdannet så:

F = Split(F, ",", -1, vbTextCompare)(0)

svar:-)

Jeg var ikke klar over at man kunne bruge split på et array, det giver nemlig fejl hos mig ;-)

Jeg betragter det ikke som et array men som en streng.

Du skriver:

For i = LBound(aPackage) To UBound(aPackage)
      x = Split(aPackage, ",", -1, vbTextCompare)

Når du bruger LBound på aPackage, så må det da være et array?

Du skal se på eksempel nr 2. 1 var en fejlafskrivning af neeo's.
Jeg går ud fra at han læser hele textfilen ind i et array (package) linie for linie som tekststrenge. Hver af disse tekststrenge ønsker han så bagefter at splitte ved kommaerne.


Dim x As Variant
'package som et array af stekstrenge, altså hver linie for sig.
For i = LBound(aPackage) To UBound(aPackage)
      'tag hver enkelt streng og split den.
      x = Split(aPackage(i), ",", -1, vbTextCompare)
      'uddrag 1 og 6 del af x, hvor x er en variantarray
      Debug.Print x(0), x(6)    'print navnet
Next

Så er jeg mere med ;-)
Undskyld forvirringen

Det er helt iorden :-)

tak for hjælpen :)