Hi All,

Would someone please help me with this problem I've been struggling with for a few days now.
I am trying to convert a file from this Upper Case:-

01m-matt-01-01 BIBLOS GENESEWS IHSOU XRISTOU UIOU DAUID UIOU ABRAAM

To this Lower Case into New Testament Greek:-

01m-matt-01-01 biblos genesews ihsou xristou uiou dauid uiou abraam
Sorry, the line is not showing correctly in HTML, it should be Greek characters

I can get it into Lower case but not change of font. This is the code that I have so far.

Private Sub Translate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Translate.Click
        oFileName = filename_woExt & ".txt"
        Dim SR As New StreamReader(FileName) 'Input File Name
        Dim SW As New StreamWriter(oFileName) 'Output File Name
        Dim strLineData As String
        Dim OldFont As Font
        OldFont = Me.Font
        'Read the contents of the input file line by line
        Do While SR.Peek <> -1
            strLineData = SR.ReadLine
            Dim NewFont As Font
            NewFont = New Font("Symbol", 10, FontStyle.Regular)
            strLineData = strLineData.ToLower 'Convert line to Lower Case
            Font = NewFont
            SW.WriteLine(strLineData, Font)
        Loop
        Font = OldFont
        SR.Close()
        SW.Close()
        'Change the 'Start' button text to 'Done'
        Translate.Text = "Done" 'For this line to work the button property 'Modifiers' must be set to 'Public'
    End Sub

Hi All,
The above code actually worked. I was always opening the output file with WordPad. If I open it with NotePad the file has been transcribed correctly into greek.

Regards to All
Eric132

Hi All,

Just a wee update on this. Once you set the font in NotePad, all .txt files thereafter are read using that font. This may explain my results.

Eric132

This question has already been answered. Start a new discussion instead.