At gemme mine ting

prøv og tag et kik på denne kode:
http://hjem.get2net.dk/sjh/eksperten/299869/TypeData.zip

det er ikke nogle database-file men en text-file.

hmmm... du kunne vel ikke pinde det lidt ud for mig?? jeg er lidt ny i det her...

så bliver det først en gang i eftermidag - skal på arbejde. :)

arj.... pis og lort... jeg sidder på arbejde og skal have lavet det her program færdigt.... LORT...

hvad er det ud ikke forstår??

hvordan jeg via min command1 gemmer det jeg har skrevet i mine textboxe, jeg har fået den til at ligge det over i en fil...

du gemmer det som er i:
Public DataRec As TYPE_FILE_HEAD

'Type Data Infomation
Private Type TYPE_FILE_DATA
'Her kan der indsætte flere efter behov.
'eks:
'      strNavn As String * 20
'      intÅr As Integer
'      datDato As Date

      bytData1() As Byte
      bytData2() As Byte
      bytData3() As Byte
      bytData4() As Byte
      bytData5() As Byte
End Type

'Type File Version
Private Type TYPE_FILE_VERSION
    dwMajor As Long
    dwMinor As Long
    dwRevision As Long
End Type

'Header Infomation af datafile
Private Type TYPE_FILE_HEAD
      bzType(0 To 3) As Byte      'DAT + ASC Char(10)
      Version As TYPE_FILE_VERSION 'Version af datafile
      ArrData() As TYPE_FILE_DATA  'Data infomation
End Type


  'Gemmer DataRec
  Open strPath For Binary Access Write As #intFree
    Put #intFree, 1, DataRec
  Close #intFree

så bruger du:

ReDim Preserve DataRec.ArrData(lCount)

til at lave et nyt index

hmmm jah det fatter jeg jo ikke meget af...

men du kan lige se min command1 code


Private Sub Command1_Click()
Dim FilNummer As Integer
  FilNummer = FreeFile
  Open "C:\Resultater.txt" For Output As #FilNummer
  Print #FilNummer, Text1.Text
  Print #FilNummer, Text2.Text
  Print #FilNummer, Text3.Text, Text4.Text
  Print #FilNummer, Text5.Text
  Print #FilNummer, Text6.Text; " år"
  Print #FilNummer, Text7.Text
  Print #FilNummer, "---------------Svar---------------"

  If Option1 = True Then
  Print #FilNummer, "Rigtigt svar"
  End If
 
  If Option2 = True Then
  Print #FilNummer, "Forkert svar"
  End If
 
  If Option3 = True Then
  Print #FilNummer, "Rigtigt svar"
  End If
 
  If Option4 = True Then
  Print #FilNummer, "Forkert svar"
  End If
 
  If Option5 = True Then
  Print #FilNummer, "Rigtigt svar"
  End If
 
  If Option6 = True Then
  Print #FilNummer, "Forkert svar"
  End If
 
  If Option7 = True Then
  Print #FilNummer, "Forkert svar"
  End If
 
  If Option8 = True Then
  Print #FilNummer, "Rigtigt svar"
  End If
 
  If Option9 = True Then
  Print #FilNummer, "Rigtigt svar"
  End If
 
  If Option10 = True Then
  Print #FilNummer, "Forkert svar"
  End If
 
  Print #FilNummer, "----------Ønsker Info om:---------"
 
  If Check1 = Checked Then
  Print #FilNummer, "Teknisk Designer"
  End If

  If Check2 = Checked Then
  Print #FilNummer, "IT-Supporter"
  End If
 
  If Check3 = Checked Then
  Print #FilNummer, "Datafagtekniker"
  End If
 
  If Check4 = Checked Then
  Print #FilNummer, "Kommunications-elektriker"
  End If
 
  If Check5 = Checked Then
  Print #FilNummer, "Telefagtekniker"
  End If
 
  If Text1 = "" Then
  MsgBox "Du skal huske at skrive dit navn"
  End If
 
  If Text2 = "" Then
  MsgBox "Du skal huske at skrive din adresse"
  End If
 
  If Text3 = "" Then
  MsgBox "Du skal huske at skrive dit postnummer"
  End If
 
  If Text4 = "" Then
  MsgBox "Du skal huske at skrive hvilken by du bor i"
  End If
 
  If Text5 = "" Then
  MsgBox "Du skal huske at skrive din e-mail"
  End If
 
  If Text6 = "" Then
  MsgBox "Du skal huske at skrive din alder"
  End If
 
  If Text7 = "" Then
  MsgBox "Du skal huske at skrive dit telefonnummer"
  End If

så lav det med append

Private Sub Command1_Click()
Dim FilNummer As Integer
  FilNummer = FreeFile
  Open "C:\test.txt" For Append As #FilNummer
    Print #FilNummer, "Tilføj"
  Close #FilNummer
End Sub

fatter ikke en skid...

har fattet lidt...

hvorfor skriver du det her?
Print #FilNummer, "Tilføj"
 
altså hvorfor skriver du tilføj?

'Åbner din file
Open "C:\test.txt" For Append As #FilNummer

'Tilføjer i din file
Print #FilNummer, "Tilføj1"

'Tilføjer i din file
Print #FilNummer, "Tilføj2"

'Tilføjer i din file
Print #FilNummer, "Tilføj3"

'Lukker din file
Close #FilNummer

OKEY!

Nu har jeg vist fattet noget!

tak for det

jeg kunne også skrive:

Print #FilNummer, Text7.Text

selv tak.