mirror of
https://github.com/arehnman/yttrium-virtio-gpu.git
synced 2026-10-31 02:05:04 +00:00
67 lines
1.1 KiB
Plaintext
67 lines
1.1 KiB
Plaintext
CONST ForReading = 1
|
|
CONST ForWriting = 2
|
|
|
|
Dim objFSObject, strLineBuffer
|
|
|
|
' Lines 4-5: Assign input file to variable
|
|
|
|
Dim strInputFile, strOutputFile
|
|
|
|
strInputFile = Wscript.Arguments(0)
|
|
|
|
' 0 - is empty, 1 - non-empty line
|
|
|
|
LineIsEmpty = 1
|
|
Dense = 0
|
|
|
|
' Lines 6-7: Set up File System object and read input file
|
|
|
|
Set objFSOObject = CreateObject("Scripting.FileSystemObject")
|
|
|
|
Set objCurrentFile = objFSOObject.OpenTextFile(strInputFile, ForReading)
|
|
|
|
' Processing Loop - Store non-blank lines in temporary buffer
|
|
|
|
Do Until objCurrentFile.AtEndOfStream
|
|
|
|
tempLine = objCurrentFile.Readline
|
|
|
|
tempLine = Trim(tempLIne)
|
|
|
|
If (InStr(1, tempLine,";<Dense>") = 1) Then
|
|
Dense = 1
|
|
tempLine = ""
|
|
End If
|
|
|
|
If (InStr(1, tempLine,";<Sparse>") = 1) Then
|
|
Dense = 0
|
|
tempLine = ""
|
|
End If
|
|
|
|
|
|
If Len(tempLine) > 0 Or (LineIsEmpty = 0 And Dense = 0) Then
|
|
|
|
strLineBuffer = strLineBuffer & tempLine & " " & vbCrLf
|
|
|
|
LineIsEmpty = (Len(tempLine) = 0)
|
|
|
|
End If
|
|
|
|
Loop
|
|
|
|
' Write buffer to input file
|
|
|
|
objCurrentFile.Close
|
|
|
|
' Set objCurrentFile = objFSOObject.CreateTextFile(strOutputFile, ForWriting)
|
|
|
|
' objCurrentFile.Write strLineBuffer
|
|
|
|
' Console.Write strLineBuffer
|
|
|
|
WScript.Echo strLineBuffer
|
|
|
|
|
|
|
|
|