Power Builder - Cómo puedo eliminar el último retorno de carro/sal

 
Vista:

Cómo puedo eliminar el último retorno de carro/sal

Publicado por elias (10 intervenciones) el 14/03/2007 14:11:36
hola a todos como hago para eliminar el último retorno de carro/salto de línea de un archivo de texto.

como puedo hacer para leer el contenido del archivo cuando esta en blanco y almacenarlo en una variable y luego comparar esos caracters de salto de carro y salto de linea y reemplazarlo por un espacio..y asi poder llenar el archivo.
¿Por qué los últimos dos caracteres? Bueno, en realidad, el retorno de carro/salto de línea está formado por dos caracteres separados: el retorno de carro (con un valor ASCII de 13) y el salto de línea (con un valor de ASCII de 10). Si bien tal vez nos alcanzaría con quitar solamente el carácter del salto de línea, haremos las cosas bien y eliminaremos ambos caracteres.Tomaremos los últimos dos caracteres almacenados en esa variable
buscando encontre este codigo que hace esto
pero no es en power ..

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\scripts\test.txt", ForReading)
strFile = objFile.ReadAll
objFile.Close

intLength = Len(strFile)
strEnd = Right(strFile, 2)

If strEnd = vbCrLf Then
strFile = Left(strFile, intLength - 2)
Set objFile = objFSO.OpenTextFile("C:\scripts\test.txt", ForWriting)
objFile.Write strFile
objFile.Close
End If

como haria esto ....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder