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