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