summaryrefslogtreecommitdiff
path: root/cleopatre/devkit/tests/validation/scripts/misc/set_1-X.vbs
diff options
context:
space:
mode:
Diffstat (limited to 'cleopatre/devkit/tests/validation/scripts/misc/set_1-X.vbs')
-rw-r--r--cleopatre/devkit/tests/validation/scripts/misc/set_1-X.vbs63
1 files changed, 63 insertions, 0 deletions
diff --git a/cleopatre/devkit/tests/validation/scripts/misc/set_1-X.vbs b/cleopatre/devkit/tests/validation/scripts/misc/set_1-X.vbs
new file mode 100644
index 0000000000..4dec0fad52
--- /dev/null
+++ b/cleopatre/devkit/tests/validation/scripts/misc/set_1-X.vbs
@@ -0,0 +1,63 @@
+Dim array
+Dim line
+
+Set objFSO = CreateObject( "Scripting.FileSystemObject")
+
+Set args = WScript.Arguments
+
+objFSO.CopyFile args.Item(0), args.Item(0) & "_tmp", TRUE
+
+Set fRead = objFSO.OpenTextFile(args.Item(0) & "_tmp", 1)
+
+Set fWrite = objFSO.OpenTextFile(args.Item(0), 2, true)
+
+Do Until fRead.AtEndOfStream
+
+ line = fRead.ReadLine
+
+ array = Split(line, "=")
+
+ If array(0) = "Topology" Then
+
+ line = array(0) & "=1"
+
+ End If
+
+ If array(0) = "[12Many]" Then
+
+ fWrite.WriteLine array(0)
+
+ line = fRead.ReadLine
+
+ fWrite.WriteLine line
+
+ fWrite.WriteLine "Pairs= " & args.Item(1)
+
+ For i = 1 To args.Item(1)
+
+ If i < 6 Then
+
+ fWrite.WriteLine i & "=000000000,00000000" & i
+
+ Else
+
+ fWrite.WriteLine i & "=000000000,00000100" & (i - 6)
+
+ End If
+
+ Next
+
+ Exit Do
+
+ End If
+
+ fWrite.WriteLine line
+
+Loop
+
+fRead.Close
+
+Set fileToDelete = objFSO.GetFile(args.Item(0) & "_tmp")
+
+fileToDelete.Delete
+