txt naar txt kopieren

[wouter37]

Hallo ik wil een stuk tekst plaatsen in source.txt daar heb ik de onderstaande code voor gebruikt. nu werkt het prima alleen de 315-2 DP wil ik vervangen door een stuk tekst met daanin " en dat gaat fout kan ik daarvoor ook een *.txt gebruiken
bijvoorbeeld: Logtekst1 = "c:\plcsource\3152.txt" Dat nu de tekst die in 3152.txt staat wordt gekopieerd naar source.txt.


Private Sub Knop15_Click()

Dim LogFileName As String
Dim Logtekst1 As String

If Me.selectievakje3152 = True Then


LogFileName = "c:\plcsource\hardware.txt"
Logtekst1 = "315-2 DP"

ElseIf Me.selectievakje315 = True Then


LogFileName = "c:\plcsource\hardware.txt"
Logtekst1 = "315"

ElseIf Me.selectievakje314 = True Then


LogFileName = "c:\plcsource\hardware.txt"
Logtekst1 = "314"
End If

Open LogFileName For Append As #1
Print #1, Logtekst1
Close #1

End Sub

[Exterazzo]

De " kun je vervangen door Chr(34)

[Verwijderd]

lijkt me dat je eerst de inhoud van het txtbetandje uit moet lezen voordat je die toekent aan een var. Nu komt namelijk (correct me if i'm wrong) datgene dat je tussen "..." hebt staan in de variabele.

Weet niet meer precies hoe dat gaat, bestanden uitlezen, maar volgensmij was het iets met fopen of zo....

[danslo]

Hmm.. Hoort meer in P&W thuis.

Dit is VB als ik het zo bekijk?

[SH007]

Dit hoort niet in Software Algemeen maar in Programming & Webscripting.
Voor zover ik kan beoordelen voldoet dit topic niet aan de richtlijnen die in Programming & Webscripting gelden (Welkom in P&W: FAQ en Beleid *updated: 14-04*) daarom move ik dit topic niet.
Mocht je een nieuw topic in Programming & Webscripting willen openen, lees dan eerst dit: Welkom in P&W: FAQ en Beleid *updated: 14-04*