gem tekst + skift linie

Do you want to save \"gem\" it in a shoe box or what?
Your question needs to be more precise!

terry

Du er nødt til at have en eller anden form for \"lager\" til din tekst - eks. en databse....

angående at gemme en tekst, kan du kigge på et link som
http://www.vb-helper.com/HowTo/savetext.zip
altså noget i stil med:

Open file_name For Output As #1
    For i = Text1.LBound To Text1.UBound
        Write #1, Text1.Text
    Next i
Close 1

commondialog bruger du ikke til at gemme med, du bruger den til at få brugeren til at fortælle dig hvor filen skal ligge, og hvad navn filen skal have :-) er lidt rusten i commondialog, så håber en anden kommer forbi og svarer den del...

jeg forstår ikke hvad du mener en textbox med mellemrum i? uddyb gerne :-)

Der er også en fint eksempel på at gemme en tekst i en tekst fil på dette link:
http://www.vbworld.com/files/openstatement/index2.html du har ihvertfald ikke spor brug for en database :-)

Argh, hvorfor skrev jeg dog det fis med LBound og UBound, det forvirrer bare, kig på det her istedet:

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

jeg ved godt at common dialog box ikke er til at gemme med, men jeg ved ikke hvad man skal skrive for at brugeren, kan vælge hvor han vil gemme sin fil.
og med hensyn til mellemrum i en textbox, ved jeg ikke hvordan man laver mere end en linie med komandoen:
text1.text = \"hej dette er linje et\"
hvad skriver man for at få noget til at stå på anden linje ?

oki, jeg sætter mig til at rode lidt med common dialog :-) imellem tiden kan du fornøje dig med
text1.text =\"linie 1\" & chr$(10] & chr$(13) & \"linie 2\"

Den \"rå\" version udne filter og errorhandler er:

CommonDialog1.ShowSave
MsgBox \"du har valgt du vil gemme din fil som \" & CommonDialog1.filename

mere info på
http://freespace.virgin.net/s.cowan/vbhowto/how_to/vb_controls/common_dialog.html

PS i det eksempel ovenfor med linieskift er det selvfølgelig ikke ] men )

Hej du gør således:

Private Sub mnuGem_som_Click()
If text1.text = \"\" Then
MsgBox (\"Der er ingen data, som kan gemmes\")
Exit Sub
End If
\' Set CancelError is True
  CommonDialog1.CancelError = True
  On Error GoTo ErrHandler
  \' Set flags
  CommonDialog1.Flags = cdlOFNOverwritePrompt
  \' Set filters
  CommonDialog1.Filter = \"All Files (*.*)|*.*|Text Files\" & _
  \"(*.txt)|*.txt|Batch Files (*.bat)|*.bat\"
  \' Specify default filter
  CommonDialog1.FilterIndex = 2
  \' Display the Open dialog box
  CommonDialog1.DialogTitle = \"Gem som\"
  CommonDialog1.ShowSave
  \' Display name of selected file
  Data = CommonDialog1.FileName
  Open Data For Output As #1
  Print #1, text1.text
  close #1
end sub

Hej

Der manglede lige lidt kode til errhandler. hele koden kommer her:

Private Sub mnuGem_som_Click()
If text1.text = \"\" Then
MsgBox (\"Der er ingen data, som kan gemmes\")
Exit Sub
End If
\' Set CancelError is True
  CommonDialog1.CancelError = True
  On Error GoTo ErrHandler
  \' Set flags
  CommonDialog1.Flags = cdlOFNOverwritePrompt
  \' Set filters
  CommonDialog1.Filter = \"All Files (*.*)|*.*|Text Files\" & _
  \"(*.txt)|*.txt|Batch Files (*.bat)|*.bat\"
  \' Specify default filter
  CommonDialog1.FilterIndex = 2
  \' Display the Open dialog box
  CommonDialog1.DialogTitle = \"Gem som\"
  CommonDialog1.ShowSave
  \' Display name of selected file
  Data = CommonDialog1.FileName
  Open Data For Output As #1
  Print #1, text1.text
  close #1
  exit sub
ErrHandler:
  \'User pressed the Cancel button
end Sub

det med linjeskift er noget tricky stads, kig på
http://www.eksperten.dk/spm/52528 - du skal af en eller anden grund bruge vbCrLf istedetfor chr$(10] & chr$(13) - beklager jeg misinformerede dig - håber jeg kan tilgives?

er der noget særligt som er galt med mit svar? der svar som du har accepteret ligner jo forbløffende meget det jeg skrev kl 13/09 2001 17:41:30 hvor linket er inklusiv errorhandler?

ja sorry, men jeg vil have have koden direkte ind et link.
hvis man kunne have delt pointene havde du også fået nogen :)
men desværre :(

pyt, det er ikke points jeg er ude efter :-) jeg vil bare gerne vide om der var noget galt så jeg ikke kom til at sige det samme sludder en anden gang.