Dett gäller spara och hämta: Jag håller på att bygga ett program där man skall kunna välja olika månader i en combobox ex Januari. Då skall all information i mitt program kunna hämta information ifrån filen som rör Januari månad. Det skall samtidigt kunna spara all information om man klickar på spara på en knapp som rör Januari månad.I mitt program tillhör listboxar samt textboxar.

Hur gör jag för att skriva en sådan kod?

separat exempel för Listboxar kommer efter

-------EXEMPEL ETT-------
1. Form + 2 st Command knappar + En combobox + En Text ruta
2. Multiline = true på textboxen
3. Klistra in koden nedanför

Dim FileName, strBuff, strText As String
Private Sub Command1_Click()
On Error GoTo Slut:
FileName = Combo1.Text + ".txt"
If FileName = "Månad" Then Exit Sub

Open FileName For Output As #1
Print #1, Text1.Text
Close #1

Slut:
End Sub

Private Sub Command2_Click()
On Error GoTo Slut:

FileName = Combo1.Text + ".txt"
If FileName = "Månad" Then Exit Sub

Open FileName For Input As #1
Do Until EOF(1)
Input #1, strBuff
strText = strText + strBuff & vbCrLf
Loop
Close #1
Text1.Text = strText

Slut:
End Sub

Private Sub Form_Load()
Combo1.Text = "Månad"
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
Combo1.AddItem "9"
Combo1.AddItem "10"
Combo1.AddItem "11"
Combo1.AddItem "12"


End Sub

-------EXEMPEL TVÅ-------
1. Form + 2 st Command knappar + En listbox
2. Klistra in koden nedanför

Private Sub Command2_Click()
Dim strList As String
Open "hejsan.txt" For Output As #1
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
strList = strList & List1.Text & vbCrLf
Next i
Print #1, strList
Close #1
End Sub


Private Sub Command1_Click()
Dim strBuff As String
List1.Clear
Open "hejsan.txt" For Input As #1
Do While Not EOF(1)
Input #1, strBuff
List1.AddItem (strBuff)
Loop
Close #1
End Sub

Nu är det bara att kombinera exemplen efter dina önsemål. Lycka till.
//Jesper