Skriv til Tekstfil

Open App.Path & "\\transauktioner.txt" For Output As #1
    Print #1, "Indbetalt: " & SaldoInd & " d." & Now()
print #1, Temp
Close #1

//>Rune

strStreng = ""
For i = 0 To UBound(MyArray)
  strStreng = strStreng & MyArray(i) & vbCrLf
Next

Open App.Path & "\\transauktioner.txt" For Output As #1
    Print #1, strStreng
print #1, Temp
Close #1

//>Rune

Rune >> Det er vist ikke det jeg efterspørger ;-)

Du må først lave en procedure, der sorterer dit array ordentligt. For at du kan det, kræver det, at du ved hvilke pladser der skal stå hvor. Dkal første halvdel af arrayet parres med anden havldel - det ser sådan ud, men vil spørge først, så jeg ikke bruger tid på at lave en forkert løsning til dig :o)

PS: En supernem måde at løse det på (forudsat at myarray indeholder et lige antal poster)


HalvStørrelse = Ubound(MyArray+1) / 2

Open App.Path & "\transauktioner.txt" For Output As #1

For i = 0 To  HalvStørrelse - 1
  Temp= myArray(i)
  Temp = Temp & "  " &  myArray(halvstørrelse + i)
  print #1, Temp
Next

Close #1

Sorry - der skal stå:

  HalvStørrelse = (Ubound(MyArray)+1) / 2

martin_moth >> Når jeg køre eksemplet vil jeg kune få det sidste værdier ud:

F.eks.

MyArray = Split("1, 2, 3, 4, Peter, Anders, Jon, Bo")
   
    HalvStorrelse = (UBound(MyArray) + 1) / 2

    For i = 0 To HalvStorrelse - 1
       
        Temp = MyArray(i)
        Temp = Temp & "  " & MyArray(HalvStorrelse + i)
       
    Next
    MsgBox Temp

Vil resultere i at Temp = 4, bo

...og det er måske fordi at der skal stå:

Temp = Temp & MyArray(i)

istedet for:

Temp = MyArray(i)

:-)

Men hvad så hvis tilfældet er at MyArray Både nummer navn og postnummer.

F.eks.

MyArray = Split("1, 2, 3, 4, Peter, Anders, Jon, Bo, PostNr1, PostNr2, PostNr3, PostNr4")

Kan der laves noget generelt så koden kan håndtere flere forskellige antal værdier ?

Det er fordi du har lavet om på min løsning - jeg skriver Temp til filen for hvert loop. Du skal IKKE ændrer til Temp = Temp & MyArray(i), men bare bruge min koden som den står

martin_moth >> Det er korrekt... men det løser ikke problemet hvis man tilføjer flere værdisæt... f.eks. postnumre eller byer for hvert enkelt navn ???

Hvad med at lave et ordentligt array, hvor tingene ikke står hulter til bulter? Fx. ved brug af brugerdefinerede typer

Men "JA", du kan sagtens ændrer det. Min kode deler jo et array op i 2, og skriver første halvdel parret med anden halvdel, præcis som du spørger om.

Om du deler det op i 2 halvdele, 3 trediedele eller 27 syvogtyvendedele er ligemeget - det er bare at ændre lidt i loopet - du han evt. lægge koden i en procedure, og så kalde proceduren med en parameter, der angiver, hvor mande dele arrayet skal deles om i :o)

PS: Brug "," som delimiter i din split-funktion, så slipper du for alle de kommaer (med mindre du gerne vil have dem med :o)

Yes Martin_Moth - mange tak for hjælpen :-)

Alternativt løsning:

Du har et array med X slagt felter (fx. navn, by og postnummer, dvs. X=3)
Lad os sige at arrayet indeholder Y poster (fx. Y=12, dvs. 4 navne, 4 postnumre og 4 byer)

Du opretter X nye arrays med størrelsen Y/X
Du læser de første X poster ind i det første nya array, de næste X poster ind i den næste nye array osv. Herfeter kan du skrive dem til en fil

Print #1, subarray1(i) & subarray2(i) & subarray3(i)
for i = 0 til X-1, naturligvis

Alt dette kan proppes ind i en p´rocedurer, der modtager MyArray og X som parameter, så du kan kalde proceduren ved
  X=3
  MinProcedure (myArray(), X)
:o)

Hvad med at prøve
Open "C:\txtfil.txt" for output as #1
for x = 0 to whatewer number
print#1,myarray(x)
next
close #1

Det løser jo ikke problemet hans problem...
I øvrigt har han vist fået svar :o)