justearth

asked on

# VBS Script not completing loop

Hello, the first script below works. It creates text files.

I have modified slightly. The range of numbers is now different (starts with 0) and and also I no longer need the padding zero (single digit numbers can stay that way):

This only outputs one file with no number insertion. I made the number for padding = 5 hoping it would effectively skip this unnecessary step. I don't know how to set it up with out it.

Please advise,

Thanks,

JE

```
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Repeats the same sequence for the numbers 75 through 407
For i = 75 to 407
'Adds a leading zero if the counter is a 2-digit number
If Len(i) = 2 Then
intNum = "0" & i
Else
intNum = i
End If
'Defines the new file name
strNewFile = "c1dsf_" & intNum & ".dsf"
'Creates the new file and adds text, including the counter
Set objNewFile = objFSO.CreateTextFile(strNewFile, ForWriting)
objNewFile.WriteLine "0"
objNewFile.WriteLine "4"
objNewFile.WriteLine "hwyc1_" & intNum & "_fp"
objNewFile.WriteLine "0.2000"
objNewFile.WriteLine "rdc1_" & intNum & "_fp"
objNewFile.WriteLine "0.2000"
objNewFile.WriteLine "slopec1_" & intNum & "_fp"
objNewFile.WriteLine "0.4000"
objNewFile.WriteLine "urbanc1_" & intNum & "_fp"
objNewFile.WriteLine "0.2000"
objNewFile.Close
Next
```

I have modified slightly. The range of numbers is now different (starts with 0) and and also I no longer need the padding zero (single digit numbers can stay that way):

```
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Repeats the same sequence for the numbers 75 through 407
For i = 0 to 114
'Adds a leading zero if the counter is a 2-digit number
If Len(i) = 5 Then
intNum = "0" & i
Else
intNum = i
End If
'Defines the new file name
strNewFile = "c1dsf_" & intNum & ".dsf"
'Creates the new file and adds text, including the counter
Set objNewFile = objFSO.CreateTextFile(strNewFile, ForWriting)
objNewFile.WriteLine "0"
objNewFile.WriteLine "4"
objNewFile.WriteLine "hwy_" & intNum & "_c1p"
objNewFile.WriteLine "0.2000"
objNewFile.WriteLine "road_" & intNum & "_c1p"
objNewFile.WriteLine "0.2000"
objNewFile.WriteLine "slope_" & intNum & "c1p"
objNewFile.WriteLine "0.4000"
objNewFile.WriteLine "urban_" & intNum & "_c1p"
objNewFile.WriteLine "0.2000"
objNewFile.Close
Next
```

This only outputs one file with no number insertion. I made the number for padding = 5 hoping it would effectively skip this unnecessary step. I don't know how to set it up with out it.

Please advise,

Thanks,

JE

ASKER CERTIFIED SOLUTION

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

SOLUTION

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

ASKER