hoe moet je een progaama ....

[erten]

hallo mensen,

ik ben al even aan het programmeren met Visual Basic maar
ik wil een programma maken waar mee je tekst in word (of kladblok)
kunt zetten bv.

naam:
(in dit textbox schrijf je u naam en die komt dan te staan in word )

ik ben al even gaan zoeken hoe je het moet doen maar ik vind het niet
kan iemand mij helpen?

 

[MartinJM]

Bedoel je dat je een tekstbestand of een word bestand op wilt slaan met de inhoud uit een textbox of richtextbox?

Of begrijp ik je nu verkeerd??

MartinJM


PS: Welkom op helpmij.nl!

 

[erten]

ja,

sorry voor de onduidelijk heid

 

[MartinJM]

Om op te slaan:

        'Vanuit een richtextbox naar een .doc:
        RichTextBox1.SaveFile("PathToFile.doc")

        'Of naar een tekstbestand:
        Dim Stream As New IO.FileStream("PathToFile.txt", IO.FileMode.Create)
        Dim writer As New IO.StreamWriter(Stream)
        writer.Write(RichTextBox1.Text)
        writer.Close()
        Stream.Close()

        'Of vanuit een textbox naar een .txt:
        Dim Stream As New IO.FileStream("PathToFile.txt", IO.FileMode.Create)
        Dim writer As New IO.StreamWriter(Stream)
        writer.Write(TextBox1.Text)
        writer.Close()
        Stream.Close()

En om te kijken of een map wel bestaat:

        'In textbox1 staat de plaats waar het naartoe moet met de naam van het bestand en de extensie.
        Dim map() As String = TextBox1.Text.Replace("/", "\").Split("\")
        Dim map1 As String = Nothing

        For teller As Integer = 0 To map.Count - 2 Step 1
            map1 &= map(teller)
        Next

        If IO.Directory.Exists(map1) Then
            'opslaan
        Else
            'fout weergeven
        End If

Ik heb alleen de eerste code zelf ook geprobeerd, dus in de 2e kunnen nog fouten zitten.

Succes! MartinJM:thumb:

 

[erten]

bedankt,

alles werkt prima
alleen ik vind de plaats niet waar het
word bestand is opgeslaan

 

[MartinJM]

Die moet je zelf kiezen... Die moet je in plaats van dit hebben staan: "PathToFile" Daarin moet dan ook de naam staan.

 

[erten]

bedankt :d

:thumb: