Hola encontre este codigo que modifica un archivo .txt :
Sub prueba()
Dim intFich As Integer, lngNúmReg As Long, strCad As String * 1, n As Long
intFich = FreeFile(0)
Open "C:\Users\ran\Desktop\VALIDACION DOCUMENTACION\FILE_CGP.cgp" For Random As intFich Len = 1 'Sustituir por la ruta completa del fichero
For lngNúmReg = 1 To LOF(intFich)
Get intFich, lngNúmReg, strCad
If strCad = "," Then
LSet strCad = "-"
Put intFich, lngNúmReg, strCad
End If
Next lngNúmReg
Close intFich
End Sub
La funcion busca una , y lo reemplaza por ; ...necesito modificarlo para que busque en efecto una , pero lo remplace por 20 espacios en blanco, ya intente colocando en esta parte:
If strCad = "," Then
LSet strCad = " "
pero solo toma el primer espacio, es decir, reemplaza las comas solo por 1 espacio... alguien puede ayudarme??????
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola encontre este codigo que modifica un archivo .txt :
Sub prueba()
Dim intFich As Integer, lngNúmReg As Long, strCad As String * 1, n As Long
intFich = FreeFile(0)
Open "C:\Users\ran\Desktop\VALIDACION DOCUMENTACION\FILE_CGP.cgp" For Random As intFich Len = 1 'Sustituir por la ruta completa del fichero
For lngNúmReg = 1 To LOF(intFich)
Get intFich, lngNúmReg, strCad
If strCad = "," Then
LSet strCad = "-"
Put intFich, lngNúmReg, strCad
End If
Next lngNúmReg
Close intFich
End Sub
La funcion busca una , y lo reemplaza por ; ...necesito modificarlo para que busque en efecto una , pero lo remplace por 20 espacios en blanco, ya intente colocando en esta parte:
If strCad = "," Then
LSet strCad = " "
pero solo toma el primer espacio, es decir, reemplaza las comas solo por 1 espacio... alguien puede ayudarme??????