currently I have a ancient VB6 procedure that open text file as follow
Public Function ApriFile(sFile As String, iCanale As Integer) As Boolean
On Error GoTo ApriFileErr
ApriFile = False
NumberError = 0
sErrore = ""
Close #iCanale
'Apertura archivio di input
Open sFile For Input As #iCanale
ApriFile = True
Exit Function
ApriFileErr:
ApriFile = False
'Errore nell'apertura del file
If Err.Number <> 0 Then
NumberError = Err.Number
sErrore = Err.Description
End If
End Function
How can use the UTF8 charset?
I need to open the file, read line by line using the UTF-8 charset and then write on another file always with the same charset.
See Question&Answers more detail:
os 与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…