VB ¡Cómo eliminar caracteres en la primera línea de texto!

Función privada DelLine(strFile como cadena, RLine como larga, newFile como cadena, SameLine como booleano)

Dim s como cadena, n como cadena, i como larga

i = 1

'//Abrir archivo fuente

Abrir strFile para entrada como #1

Hacer hasta EOF(1)

Entrada de línea #1, s

Si RLine = i Entonces 'Si es el número de líneas especificado, haga lo siguiente

'--------------------- ----------------------------------

Si SameLine = True Entonces 'Si o no para mantener el número de líneas en el archivo fuente sin cambios (para reemplazar el contenido de esta línea con caracteres en blanco), True para mantener el número de líneas en el archivo fuente, False para eliminar directamente la línea. False elimina el contenido de este line

s = ""

n = n & s & vbCrLf 'Asigna una cadena vacía a la variable n para mantener el número de líneas en el archivo fuente

' MsgBox strFile & "Archivo, primera línea" & RLine & "Contenido de línea" & vbCrLf 'La primera línea del archivo fuente, el contenido de la primera línea. amp; vbCrLf & s & vbCrLf & "Deleted", vbInformation, "Message Alert"

End If

' s="También puedes cambiar el contenido de esta línea a lo que desees. necesita"

'--------------------------------- --------------- --- ---------------

Else 'Si no es el número de líneas especificado, asigna el contenido de s a la variable n para almacenar los datos

n = n & s & vbCrLf 'Asigna el contenido de s a n y finaliza con retorno de carro.

...

Finalizar si

i = i + 1

Bucle

Cerrar #1

' //Escribe en un archivo nuevo, sobrescribe el archivo fuente si tiene el mismo nombre

Abre un nuevo archivo para generar como resultado #2

Imprime #2, n 'Escribe los datos en n 'Escribe los datos de la variable n al nuevo archivo

Cerrar #2

Función final

'Método de llamada:

'Por ejemplo , Para eliminar la línea 5 en c:\1.txt y mantener el número total de líneas en el archivo fuente (inserte una cadena vacía para las líneas eliminadas)

DelLine "C:\1.txt", 5, "C:\2.txt", True

'Eliminar C:\1.txt y eliminar la primera línea sin conservar el número total de líneas en el archivo

DelLine "C :\1.txt", 1, "C:\1.txt", False

'Eliminar C:\1.txt y eliminar la primera línea sin conservar el número total de líneas en el archivo

' p>

DelLine "C:\1.txt", 1, "C:\1.txt", False