Hoe kan ik in .DOC en .ODT bestanden laten openen in mijn tekstverwerker.

Status
Niet open voor verdere reacties.

youris

Gebruiker
Lid geworden
5 apr 2011
Berichten
11
Ik ben dus nog steeds bezig met mijn tekstverwerker en ben al dagen lang opzoek naar de code om .DOC en .ODT bestanden te laten openen - en het dus goed laat uitlezen, nu krijg ik een rare onleesbare tekst.

Dit is mijn gebruikte code, alvast bedankt!

Code:
    Private Sub LinkerBoxToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles LinkerBoxToolStripMenuItem1.Click
       
        Dim AllText As String = "", Lineoftext As String = ""
        OpenFileDialog1.Filter = "All Files |*.*"
        OpenFileDialog1.ShowDialog()
        If OpenFileDialog1.FileName <> "" Then

        End If
        Try
            FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
            Do Until EOF(1)
                Lineoftext = LineInput(1)
                AllText = AllText & Lineoftext & vbCrLf
            Loop
            RichTextBox1.Text = AllText
        Catch
        Finally
            FileClose(1)
        End Try
    End Sub
 
Laatst bewerkt:
Code:
RichTextBox1.LoadFile("pad", RichTextBoxStreamType.PlainText)
 
Waar plaats ik deze precies :o.
 
Laatst bewerkt door een moderator:
Dit is gewoon de code waarbij het bestand wordt geladen in de RichTextBox. ;)

Dus dan kan dit weg:

Code:
   FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
            Do Until EOF(1)
                Lineoftext = LineInput(1)
                AllText = AllText & Lineoftext & vbCrLf
            Loop
            RichTextBox1.Text = AllText
 
Daarmee opent hij niet meer, ik krijg dan wel de popup te zien, maar hij laat de bestanden niet :(.
 
Laatst bewerkt door een moderator:
Bedoel je de OpenFileDialog?

Ik bouw er wel één voor je in ;) :


Code:
 Dim open As New OpenFileDialog
        open.Title = "Titel"
        open.Filter = "Alle Bestanden (*.*)|*.*"
        If open.ShowDialog = Windows.Forms.DialogResult.OK Then
            RichTextBox1.LoadFile(open.FileName, RichTextBoxStreamType.PlainText)
        End If
 
Ja die bedoelde ik :)..

Nu werkt hij, alleen krijg nog steeds rare tekens te zien - maar ook wel de normale tekst, weet je daar iets op.

Deze dingen dus:

ÐÏࡱá, maar dan belachelijk veel.
 
Laatst bewerkt door een moderator:
Ah :P, dat komt waarschijnlijk door 'RichTextBoxStreamType.PlainText'.

Probeer dat naar 'RichTextBoxStreamType.UnicodePlainText' (of iets anders, test maar even) te veranderen. Wellicht werkt dat.

Anders kun je ook nog een StreamReader gebruiken, maar probeer eerst dit maar eens ;)
 
Laatst bewerkt door een moderator:
Hahaha, het wordt er niet beter op, kan jij chinees?:

䰍湥瑧⁥भ⸱〷䴠䜍睥捩瑨阠††㜉⸰′䝋不瑡潩慮楬整瑩ⴠठ噎ൔ刍汯椠敶桲慡㩬䠠潯摦数獲潯ₖ極癴牥潫敲敮മ䈍橩潺摮牥敨敤㩮䤠敢楺⁴湥戠桥敥獲⁴敤洠条敩漠湩攠湥搠慲歡琠⁥畫湮湥瘠牥湡敤敲污漠⁰潪杮⁥敬晥楴摪‬慮敭楬歪愠灯ㄠ‴慊楲敧氠敥瑦橩⹤ഠ䄍杮瑳湥›​†汁敬湥稠橩उउₖ敧湥瘠楲湥敤敨扢湥*​†敚晬猠慴灰湥搠牵敶整渠浥湥ठₖ敶汲来湥ମ†䬠慲档浴瑥湩敧उ阉䴠条獩档⁥敧敶档整⹮ठउഉഠഠഠഠഠഠഠഠഠഠഠഠഠഠഠഠഠ഍敐獲湯条獥阠䜠潬敲㩡䠍慡歲敬牵ⴠ*求湯൤杏湥阠††††䈠慬睵䰍湥瑧⁥ₖ††ㄠ㘮‵്敧楷档⁴ₖ†㜠⸵‵䝋不瑡潩慮楬整瑩ⴠ*噎ൔ刍汯椠敶桲慡㩬䴠敯敤⁲慶潨景灤牥潳湯*䈍橩潺摮牥敨敤㩮䈠獡獩欠湥楮⁳慶牄歡湥牔楡楮杮മഠഠഠഠഠഠഠഠഠഠഠഠഠഠഠഠഠഠഠഠഠ഍

Dat is wat ik nu zie..

En ik moet ook 2 keer het bestand aanklikken - krijg nu twee keer die showdialog te zien.
 
Laatst bewerkt door een moderator:
Oei :eek:

Heb je deze al geprobeerd:

Code:
RichTextBoxStreamType.RichNoOleObjs
        RichTextBoxStreamType.RichText
        RichTextBoxStreamType.TextTextOleObjs

Anders dit:

Code:
 Dim reader As New System.IO.StreamReader(Open.FileName)
        RichTextBox1.Text = reader.ReadToEnd
        reader.Close()
 
Laatst bewerkt door een moderator:
Bij de eerste heb ik het zelfde probleem (das zelfde als RichTextBoxStreamType.PlainText, bij de 2de krijg ik foutmeldingen).

Kan je de 2de code misschien in de hele code plaatsen, misschien dat hij dan werkt?
 
Laatst bewerkt door een moderator:
Het probleem is dat je binaire data (gezien dergelijke bestanden gewoon in een eigen bestandsformaat worden gestopt, het zijn immers niet gewoon wat tekstbestanden met een andere extensie) als tekst inleest en verwacht dat dit leesbaar zal zijn. ;)
 
JoZ1 en youris: willen jullie stoppen met dat onnodig quoten van elkaars reacties. Het is niet nodig om een reactie te quoten wanneer je direct er na een antwoord geeft.
 
Kan je de 2de code misschien in de hele code plaatsen, misschien dat hij dan werkt?

Je kan zelf natuurlijk ook even kijken. Je weet toch wat de code doet?

Maar goed ;):


Code:
Dim open As New OpenFileDialog
        open.Title = "Titel"
        open.Filter = "Alle Bestanden (*.*)|*.*"
        If open.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim reader As New System.IO.StreamReader(Open.FileName)
        RichTextBox1.Text = reader.ReadToEnd
        reader.Close()
        End If

EDIT: Sorry, Huijb :o
 
Laatst bewerkt:
Nou ik blijf die stomme tekens nog steeds houden, ik zal als ik donderdag op school ben even een leraar zoeken die verstand heeft van VB.Net ( volgens mij geen één maar ja).

Heel erg dank voor je hulp, nu kan ik tenminste wel die bestanden openen - ook al zitten er nog onnutige tekens in..
----

Sorry voor het Quoten, ik doe dat eigenlijk altijd als ik ergens op reageer :o.
 
Oeps,

Ik heb over je post heen gelezen :o.

Maar weet je dan misschien een manier om dit wel goed uit te lezen. Ben echt nog een NOOB, leer namelijk pas sinds 2 á 3 weken vb.net.
 
Ik zou gewoon mijn eigen bestandstype ontwikkelen ;) mijn programma heeft bijvoorbeeld .tnod
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan