@Echo OFF
 
Set "OldTextFile=Archivo.txt"
Set "NewTextFile=Nuevo Archivo.txt"
 
(
 FOR /F "Usebackq Delims=" %%@ IN ("%OldTextFile%") DO (
	 Set "str=%%@"
	 Call Set "str=%%str:~1,-1%%"
	 Call Echo %%str%%
 )
)> "%NewTextFile%"
 
Pause&Exit

Set FSO = CreateObject("Scripting.FileSystemObject")
 
Set OldTextFile = FSO.OpenTextFile(".\Archivo.txt", 1) 
Set NewTextFile = FSO.CreateTextFile(".\Nuevo Archivo.txt", 2) 
 
TextContent = Split(OldTextFile.ReadAll(), vbCrLf)
 
For Each Item In TextContent
 
	If Not Item = "" Then
		NewTextFile.write(Mid(Item, 2, (Len(Item)-2)))
		NewTextFile.write(vbCrLf)
	End If
 
Next
 
OldTextFile.Close
NewTextFile.Close