Opslaan probleem

  • Onderwerp starter Onderwerp starter GDay
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

GDay

Gebruiker
Lid geworden
30 aug 2007
Berichten
133
Hoi ik ben bezig met een programma waar je textbestanden kan inladen en VBS files kan maken

Ik heb dus een richtextbox en daar typ je dan bijv hallo dit is een voorbeeldzin
Dan sla ik die op
Dan openen ik hem en dan staat dit er

{\rtf1\ansi\ansicpg1252\deff0\deflang1043{\fonttbl{\f0\fnil\fcharset0 Microsoft Sans Serif;}}
\viewkind4\uc1\pard\f0\fs17 Hallo dit is een voorbeeld zin\par
}


Dus kan ik geen vbs files maken want dan geeft die foutmeldingen
Hoe krijg ik dat weg
 
gebruik je voor het opslaan de code die williamxxx je gaf in een andere post
zo ja dan moet je in de code een paar dingen veranderen
Code:
savefiledialog1.defaultext = ".txt"
savefiledialog1.overwriteprompt - true
savefiledialog1.title = "Opslaan"

if savefiledialog1.showdialog() = windows.forms.dialogresult.ok then

richtextbox1.savefile(savefiledialog1.filename,richtextboxstreamtype.plaintext)

end if
de richttext is veranderd in plain. nu is dat hele opmaak gedoe dat je te zien krijgt weg
 
H
{\rtf1\ansi\ansicpg1252\deff0\deflang1043{\fonttbl{\f0\fnil\fcharset0 Microsoft Sans Serif;}}
\viewkind4\uc1\pard\f0\fs17 Hallo dit is een voorbeeld zin\par
}
even een vraagje waar zie je dat?
 
Nou, het is heel simpel:


Rich text files (trf, doc, enzovoorts)
Deze formaten hebben bijvoorbeeld verschillende soorten opmaak, zoals verschillende kleuren, lijstjes, plaatjes enzovoorts. Als je dit in kladblok of iets dergelijks opent, staan er stijl-codes voor, want anders zou het nooit weten wanneer iets roodgekleurd moet zijn of juist paars. Daarzom zie je ook dit:
Code:
{\rtf1\ansi\ansicpg1252\deff0\deflang1043{\fonttbl{\f0\fnil\fcharset0 Microsoft Sans Serif;}}
\viewkind4\uc1\pard\f0\fs17 Hallo dit is een voorbeeld zin\par
}

Plain text files, files (.txt, .vbs, enzovoorts)
Dit formaat is "plain" (zonder iets) wat betekent dat er geen stijl in gebruikt word. Het zijn letterlijk alleen maar bytes die achterelkaar staan. (naja, even makkelijk gezegd dan)


Darabij zit er nog een fout in de code, hier de verbeterde:
Code:
savefiledialog1.defaultext = ".txt"
savefiledialog1.overwriteprompt = true
savefiledialog1.title = "Opslaan"
   if savefiledialog1.showdialog() = windows.forms.dialogresult.ok then
      richtextbox1.savefile(savefiledialog1.filename,richtextboxstreamtype.plaintext)
   end if
 
Laatst bewerkt:
Nou, het is heel simpel:


Rich text files (trf, doc, enzovoorts)
Deze formaten hebben bijvoorbeeld verschillende soorten opmaak, zoals verschillende kleuren, lijstjes, plaatjes enzovoorts. Als je dit in kladblok of iets dergelijks opent, staan er stijl-codes voor, want anders zou het nooit weten wanneer iets roodgekleurd moet zijn of juist paars. Daarzom zie je ook dit:
Code:
{\rtf1\ansi\ansicpg1252\deff0\deflang1043{\fonttbl{\f0\fnil\fcharset0 Microsoft Sans Serif;}}
\viewkind4\uc1\pard\f0\fs17 Hallo dit is een voorbeeld zin\par
}

Plain text files, files (.txt, .vbs, enzovoorts)
Dit formaat is "plain" (zonder iets) wat betekent dat er geen stijl in gebruikt word. Het zijn letterlijk alleen maar bytes die achterelkaar staan. (naja, even makkelijk gezegd dan)


Darabij zit er nog een fout in de code, hier de verbeterde:
Code:
savefiledialog1.defaultext = ".txt"
savefiledialog1.overwriteprompt = true
savefiledialog1.title = "Opslaan"
   if savefiledialog1.showdialog() = windows.forms.dialogresult.ok then
      richtextbox1.savefile(savefiledialog1.filename,richtextboxstreamtype.plaintext)
   end if

Bedankt !!!:thumb:
En hoe pas ik hem nu aan dat je alleen VBS & .txt kan opslaan?
 
Volgens mij moet je iets proberen met Filterindex net zo als bij het openen
 
nu kan je alleen vbs en txt opslaan
Code:
saveFileDialog1.Filter =  "Visual basic Script File (*.vbs)" | "*.vbs" | "Plain Text Files (*.txt)" | "*.txt"
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan