dotNETportal.cz

Zdravím...

potřeboval bych do níže uvedeného kódu vložit formátování textu do ANSI, který je načtený celý v textboxu, prosím o pomoc

   Private Sub pracuj_Click(sender As Object, e As EventArgs) Handles pracuj.Click
        TextBox3.Text = Replace(TextBox3.Text, "%MPF----", "")
        TextBox3.Text = Replace(TextBox3.Text, "(", "MSG(""")
        TextBox3.Text = Replace(TextBox3.Text, ")", """)")
        TextBox3.Text = Replace(TextBox3.Text, "G71 G90 G92 X0 Y0 ", "G0 G53 G90 X0 Y0 Z0 D0")
        TextBox3.Text = Replace(TextBox3.Text, "M17", "M30")
        TextBox3.Text = Replace(TextBox3.Text, "M05", "G0 G53 X0 Y0 Z0 D0 M9 M5")
        TextBox3.Text = Replace(TextBox3.Text, "G80", "MCALL")
        TextBox3.Text = Replace(TextBox3.Text, "T1", "T=""?"" ")
        TextBox3.Text = Replace(TextBox3.Text, "D1", "D1 M6")
       |

Neefektivní to určitě je ,ale nemám jazyk nastudovaný ,tohle je jediný způsob jak se mi povedlo tak nějak docílit toho co potřebuji,jsem naprostý začatečník dříve jsem to řešil přes makro ve wordu ,ale to neumí soubor uložit s koncovkou kterou potřebuji takže po přepsání textu jsem to musel ještě otevírat v notepadu a ukládat s danou koncovkou, proto jsem to zkusil udělat ve VB,což mi funguje až na to kodovani textu ,nemohl by jste mi tedy prosím poradit jak to mám převést do toho kódováni ASCII při ukládání textu z textboxu .

k´d pro uložení:

Private Sub ulozit_Click(sender As Object, e As EventArgs) Handles ulozit.Click
        SaveFileDialog1.ShowDialog()

    End Sub|

a savefiledialog:

Private Sub SaveFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
        Dim filetosaveas As String = SaveFileDialog1.FileName
        Dim objwriter As New System.IO.StreamWriter(filetosaveas)
        objwriter.Write(TextBox3.Text)
        objwriter.Close()


    End Sub|

Když se mi to povede nějak dodělat tak slibuji ,že už se do ničeho podobného pouštět nebudu :D

takto jsem to doplnil na načítání ,ale kdy to udělám na ukládání tak to nefunguje

když tam doplním to Encoding.ASCII tak se mi podtrhne objwriter.

Dim __objwriter__ As New System.IO.StreamWriter(filetosaveas, Encoding.ASCII)|

takže jsem to dal úspěšně do kupy ,až na to že kvůli tomu neefektivnímu nahrazování textu je to dost pomalé ,nicméně dělá to co má ,víc se v tom vrtat nebudu ,jsem rád že jsem to dal aspoň takhle do kupy.Samozřejmně bez Vaší pomoci bych to nedal ,za což Vám děkuji.

Mirku, napsat "kostru" aplikace trvá 10% času, dalších 40% trvá udělat to tak "aby to dělalo to, co to dělat má". Dobrá aplikace se pozná tak, že autor věnuje ještě zbývajících 50% času do toho aby aplikace fungovala efektivně a nabídla uživateli potřebný komfort. Polovina práce je vždy v detailech a drobnostech.

Když budete podle mě k vývoji přistupovat stylem "dělá to to, co to dělat má a dál se v tom vrtat nebudu", brzo narazíte (v zaměstnání, u klientů, u uživatelů...).

Asi máte na mysli kódování, více zde:

http://msdn.microsoft.com/en-us/library/...