Keskustelu: Ohjelmointikysymykset: VB6: Parempi tapa textboksin sisällön tallentamiseen? *VB*

Eli tällä hetkellä käytän tälläistä koodia:

Private Sub Save1_Click()
Call SaveNow1
End Sub

Private Sub SaveNow1()
Dim texti1 As String
texti1 = Text1.Text
Open "CBTdata\data1.cbt" For Output As #1
Write #1, Replace$(Replace$(Replace(texti1, "{", ""), "}", ""), """", "")
Close #1
info.Caption = "Tallennettu 1!"
Beep
End Sub

Tuo kyllä toimii, mutta se myös lisää tiedoston alkuun ja loppuun " -merkin. Onko parempaa tapaa tallentaa tuo tekstiboksin sisältö tiedostoon, tai saako " -merkkiä karsittua tallentaessa pois? Lähes parin tunnin etsintä ei tuottanut tulosta ja omat taidot ei siihen riitä, joten kysyn täällä.

EDIT: Unohtakaa tuo. :) Nyt samantien keksinkin paremman tavan (Käyttää printtiä writen sijasta). En tiedä, mistä sen sain päähän, mutta hyvä niin. :D

Yksi melko ruma tapa hoitaa asia:

texti1 = Mid(texti1, 2, Len(texti1) - 2)

eli texti1-muuttujaan menee oma arvo joka alkaa tokasta merkistä ja lopetetaan tokavikaan

Nobo kirjoitti:

EDIT: Unohtakaa tuo. :) Nyt samantien keksinkin paremman tavan (Käyttää printtiä writen sijasta). En tiedä, mistä sen sain päähän, mutta hyvä niin. :D

Varmaan tästä:
https://www.ohjelmointiputka.net/keskustelu/10520-textboksin-sisällön-lataaminen-ja-tallentaminen-vb