aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

31
Task/Remove-lines-from-a-file/VBScript/remove-lines-from-a-file.vb Normal file
View file

@ -0,0 +1,31 @@
Sub remove_lines(filepath,start,number)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set InFile = objFSO.OpenTextFile(filepath,1,False)
line_count = 1
discard_count = 1
out_txt = ""
Do Until InFile.AtEndOfStream
line = InFile.ReadLine
If line_count <> start Then
If InFile.AtEndOfStream = False Then
out_txt = out_txt & line & vbCrLf
Else
out_txt = out_txt & line
End If
line_count = line_count + 1
Else
Do Until discard_count = number
InFile.SkipLine
discard_count = discard_count + 1
Loop
line_count = line_count + 1
End If
Loop
InFile.Close
Set OutFile = objFSO.OpenTextFile(filepath,2,False)
OutFile.Write(out_txt)
OutFile.Close
Set objFSO = Nothing
End Sub
Call remove_lines("C:\Test.txt",3,4)