har skapat en array som dels ska sparas till 2 textfiler, dessutom ska man kunna vissa hela arrayen i en textbox med 4 kol och 5 rader, och sedan söka i textfilerna, tex om man skriver 100 så ska alla artiklar som kostar upp till och med 100 visas.
jag gjorde min array så här:
Sub ArrayInit()
arrArticles(0, 0) = "Colt Peacemaker"
arrArticles(1, 0) = "Holster"
arrArticles(2, 0) = "Levis Straus Jeans"
arrArticles(3, 0) = "Saddle"
arrArticles(4, 0) = "Stetson"
arrArticles(0, 1) = "112,50"
arrArticles(1, 1) = "20,75"
arrArticles(2, 1) = "15,56"
arrArticles(3, 1) = "425,30"
arrArticles(4, 1) = "98,75"
arrArticles(0, 2) = "Water Colt"
arrArticles(1, 2) = "Holster"
arrArticles(2, 2) = "Horse"
arrArticles(3, 2) = "Saddle"
arrArticles(4, 2) = "Hat"
arrArticles(0, 3) = "15,45"
arrArticles(1, 3) = "2,65"
arrArticles(2, 3) = "28,55"
arrArticles(3, 3) = "10,40"
arrArticles(4, 3) = "4,85"

End Sub
så här vill jag att den ska visa alla mina artiklar kol 1och2 tillhör textfil1, kol 3och4 tillhör textfil2
Artikel Pris Artikel Pris
Colt Peacemaker 112,50 Water Colt 15,45
Holster 20,75 Holster 2,65
osv....

har försökt med att använda loopar för att få uppställningen men någonstans blir det galet, så finns det någon som kan visa och förklar för mig så vore jag tacksam. christina

Ett annat sätt istället för att lagra värden i en array är att du skapar en klass, Artikel, som har egenskaperna Namn och Pris. Ett objekt för varje artikel. Sedan lagrar du alla objekten i en Collection. Genom denna Collection kan du använda dig av en foreach för att loopa igenom alla artiklar och skriva ut dom. Låt oss anta att du skapar en klass Artikel
<code>
Public Class Artikel
Public Artnamn As String
Public Pris As Single

Public Sub New(namn As String,pris As Single)
Me.Artnamn = namn
Me.Pris = Pris
End Sub
End Class
</code>

sedan skapar du X antal objekt och sätter egenskaperna genom konstruktorn typ:
<code>
Dim a1 As New Artikel("Peacemaker", 112.5)
Dim a2 As New Artikel("Water Colt", 15.45)
Dim a3 As New Artikel("Holster", 20.45)
Dim a4 As New Artikel("Holster", 2.75)
</code>

lägg till objekten till en samling
<code>
Dim col As New Collection
'Om du vill separera värden från 2 filer kan du använda två Collections osv...
col.Add(a1)
col.Add(a2)
col.Add(a3)
col.Add(a4)
</code>

sedan kan du skriva ut egenskapera på följande sätt
<code>
Dim radbryt As Integer = 0

Me.textbox.Text = "Artikel" & vbTab & "Pris" & vbTab & "Artikel" & vbTab & "Pris"
For Each t As Artikel In col
If t.Pris < 100 Then 'endast om pris under 100 skall listas
If radbryt Mod 2 = 0 Then
Me.textbox.Text = Me.textbox.Text & vbcrLf & t.Artnamn & vbTab & t.Pris & vbtab
radbryt = 1
Else
Me.textbox.Text = Me.textbox.Text & t.artnamn & vbTab & t.Pris
radbryt = radbryt + 1
End If
End If
Next
</code>

formateringen kanske inte blir den snyggaste, men detta är själva principen. En textbox kanske inte är bästa alternativet för detta. kanske en richtextbox, datagrid??

Samma princip med ForEach när du skall spara till textfil.

//Fredde

tack för svaret, jag provade richtextbox och då funkade det, om jag använder den istället kan man spara ner den som txtfil?



//Christina, nybörjare

<code>
RichTextBox1.SaveFile("c:\minfil.txt", RichTextBoxStreamType.PlainText)
</code>

är ett sätt...

//Fredde

ok, tack

//christina