Tengo problemas con los acentos, en el momento de leer los datos de un archivo de bloq de Notas (.txt)
Trabajando con una macro de Writer, esta me pide Apellido, Nombres y nacionalidad. Luego las graba en un archivo llamado SiiLog2.txt
Al momento de ejecutar la macro que lee esos archivos, los acentos no aparecen.
El tema es que abro el archivo de textos con el block de notas, y los acentos allí están.
copio acá la macro de grabar archivo y la macro de leer archivo, a ver si me pueden dar una mano.
desde ya muchas gracias
Código: Seleccionar todo
Sub GrabaArchivos2
dim DocOrg As Object
dim sRutaURL As String
dim sRutaURL2 As String
dim sRuta As String
GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
sRutaURL = ThisComponent.getURL()
sRuta = ConvertFromUrl(sRutaURL)
sRuta = DirectoryNameoutofPath(sRuta, GetPathSeparator())
sRutaURL2 = ConvertToUrl(sRuta)
sRutaURL2 = sRutaURL2 & "/SIIlog2.txt"
DocOrg = ThisComponent.CurrentController.Frame
dim sApell As String
dim sNombr As String
dim sNacio As String
dim sRegis As String
dim iLibre As Integer
sApell = InputBox("Apellidos? ")
sNombr = InputBox("Nombres?")
sNacio = InputBox("Nacionalidad?")
sRegis = "> " & sApell & "," & sNombr & "," & sNacio & "," & _
Format(Date, "ddd, dd-mmm-yy") & "," & Format(Now, "HH:mm:ss") & ",<"
iLibre = FreeFile
Open sRutaURL2 For Append As #iLibre
Print #iLibre, sRegis
Close #iLibre
End Sub
Código: Seleccionar todo
Sub LeeArchivos2
dim DocOrg As Object
dim sRutaURL As String
dim sRutaURL2 As String
dim sRuta As String
GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
sRutaURL = ThisComponent.getURL()
sRuta = ConvertFromUrl(sRutaURL)
sRuta = DirectoryNameoutofPath(sRuta, GetPathSeparator())
sRutaURL2 = ConvertToUrl(sRuta)
sRutaURL2 = sRutaURL2 & "/SIIlog2.txt"
DocOrg = ThisComponent.CurrentController.Frame
dim iLibre As Integer
' dim sApell As String
' dim sNombr As String
' dim sNacio As String
dim sRegis(100) As String
dim sCampo As String
dim sLinea As String
dim Cont1 As Byte
dim Cont2 As Byte
iLibre = Freefile : Cont1=0
Open sRutaURL2 For Input As iLibre
Do While Not eof(iLibre)
Cont1 = Cont1 + 1 : sLinea =""
For Cont2 = 1 To 7
Input #iLibre, sCampo
sLinea = sLinea & sCampo
sRegis(Cont1) = sLinea
next Cont2
Loop
Close #iLibre
For Cont2 = 1 to Cont1
MsgBox sRegis(Cont2)
Next Cont2
End Sub