iWakaNum = LCase(InputBox("最大歌数を入力(2000以下)", "歌数の指定")) + 1
For i = 0 To iWakaNum - 1
If i <> 0 Then
If iWakaNum < 100 Then
If i < 10 Then
j = "00" & i
ElseIf i >=10 And i < 100 Then
j = "0" & i
End If
ElseIf iWakaNum >= 100 And iWakaNum < 1000 Then
If i < 10 Then
j = "00" & i
ElseIf i >= 10 And i < 100 Then
j = "0" & i
ElseIf i >= 100 And i < 1000 Then
j = i
End If
ElseIf iWakaNum >= 1000 And iWakaNum <= 2000 Then
If i < 10 Then
j = "000" & i
ElseIf i >= 10 And i < 100 Then
j = "00" & i
ElseIf i >= 100 And i < 1000 Then
j = "0" & i
ElseIf i >= 1000 And i <= 2000 Then
j = i
End If
End If
sConStr = sConStr & "" & j & "" & vbCr & _
"
" & vbCr & _
"" & vbCr & _
" " & vbCr & _
"
" & vbCr
End If
Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set objFolder = fs.GetFolder(".")
sFolderName = fs.GetAbsolutePathName(".")
sBaseName = InputBox("ファイル名(拡張子を除く)は?", "ファイル名(ベース名)の入力")
sFileName = sFolderName & "\" & sBaseName & ".htm"
If fs.FileExists(sFileName) Then
Set objWakaFile = fs.OpenTextFile(sFileName, 8)
Else
Set objWakaFile = fs.CreateTextFile(sFileName)
End If
With objWakaFile
.WriteLine("")
.WriteLine("")
.WriteLine("")
.WriteLine("")
.WriteBlankLines(1)
.WriteLine("")
.WriteBlankLines(1)
.WriteLine("" & sBaseName & "")
.WriteLine("")
.WriteLine("")
.WriteBlankLines(1)
.WriteLine(" /")
.WriteLine("
[INDEX]")
.WriteLine("
")
.WriteBlankLines(1)
.WriteLine("")
.WriteBlankLines(1)
.WriteLine("")
.WriteLine("")
.WriteLine("
")
.WriteLine("( )
")
.WriteLine("※ 〔原注〕、(*入力者注)")
.WriteLine(" ")
.WriteBlankLines(1)
.WriteLine("
")
.WriteLine("")
.WriteBlankLines(1)
For k = 0 To 2
.WriteLine(" ")
Next
.WriteBlankLines(1)
.WriteLine("")
.WriteLine("
")
.WriteBlankLines(1)
.WriteLine("")
.WriteBlankLines(1)
.WriteLine("")
.WriteBlankLines(1)
.WriteLine("")
.WriteLine(sConStr)
.WriteBlankLines(2)
.WriteLine("
")
.WriteLine("")
For k = 0 To 2
.WriteLine(" ")
Next
.WriteLine("")
.WriteLine("
")
.WriteBlankLines(1)
.WriteLine("")
.WriteLine("
[INDEX]")
.WriteLine("
")
.WriteBlankLines(1)
.WriteLine("")
.WriteLine("")
End With
objWakaFile.Close