Strings uit een textveld opslaan

[Clit13]

Beste...,

Ik heb na het invullen van een aantal variabelen een behoorlijk textveld gevuld.
In het textveld staan ook veel " (kwootjes).
Als ik het textveld bekijk staat alles er perfect in.
Maar als ik het textveld naar een bestand weg schrijf, dan staan er ineens heel veel kwootjes in.
Voorbeeldje:
In het textveld staat:
WebHtml = "\page.html";

Dan staat er in het text document wat ik aan wil maken:
WebHtml = ""\page.html"";

Hoe kan ik dit voorkomen?

Alvast bedankt!

groet,
Dave.

 

[DENNIS90]

Gebruik Chr$(34) i.p.v. quote (").

Test het als volgt:

Plaats een Button en Textbox in het Form en voer
onderstaande code in je Button.

Private Sub Command1_Click()
   Dim jouwtekst As String
   'Gebruik Chr$(34) voor een Quote.
   JouwTekst = "WebHtml = " & Chr$(34) & "\page.html" & Chr$(34)
   Text1.Text = JouwTekst
   Open "c:\htmlfile.html" For Output As #1
      Print #1, JouwTekst
      'Met Debug.Print hoeft je tenminste niet per sé in het
      'filetje te gaan kijken of de variabele JouwTekst
      'goed wordt weggeschreven.
      Debug.Print jouwtekst
   Close #1
End Sub

 

[Clit13]

Dank je!

dit kan ik helaas nu niet uitproberen omdat ik nu niet op het werk ben.
Wel kan ik vanavond even inloggen op het werknetwerk.
Dan zal ik het proberen (moet ik uiteraard wel tijd hebben...).



groet,
Dave.

 

[Clit13]

Het is gelukt!

Na een paar aanpassingen komt de code er goed uit.

Bedankt!


groet,
Dave.

 

[Clit13]

Potverdikkie!
Het is helaas NIET gelukt.

Ik had de verkeerde test gedaan.
Je kunt namelijk "gewoon" de text die gegenereerd wordt selecteren, kopieren en plakken in een txt-bestand: gaat goed.
Maar ik heb er een knop voor gemaakt ("Save"), en als ik die gebruik dan komen al die kwootjes weer tevoorschijn!

En da's niet goed.

Als je nog een oplossing hebt: graag! (of iemand anders natuurlijk).

Alvast bedankt!

groet,
Dave.

 

[Clit13]

En ja hoor: het is nu eindelijk gelukt!
Ik heb op het web gezocht naar personen die een soort Notepad hadden gemaakt.
Zij moeten immers ook text bestanden opslaan.
Een paar gevonden; sommige deden moeilijker dan andere, en bij 1 project (Coolpad) zag ik ongeveer dezelfde code staan als die van mij.
Maar die van hem werkte!

Opdracht: "Zoek de 10 verschillen".

Wat blijkt?
Ik gebruik "Write #Filenumber, txt_Output.Text", hij gebruikt: "Print #Filenumber, txt_Output.Text".

En daar zit hem het verschil.

Ik blij.

Bedankt!

groet,
Dave.