htaでVBSのソースを書いたらエラーを返します

解決済

質問者：makoron4324324
質問日時：2013/08/08 03:03
回答数：1件

以下のソースででエラー文が返ってきてしまいます。
エラー文が帰ってくる場所には矢印と文をつけました。
エラー文は二つ返ってきます。
VBスクリプトとhtaを組み合わせたような感じになっております。

初心者で構文もよくわかっていないのですがよろしくお願いします。

やりたい処理は親フォルダのテキストファイルから文字列を読み込み、
その結果によって初期のチェックボックスを移動させるような感じです。

フォルダのテキストファイルから文字列を読み込む処理と
初期のチェックボックスを移動させる処理を組み合わせたらエラーがでたといった感じです。

<script language="VBScript">

Option Explicit

Dim objFileSys
Dim strScriptPath
Dim strReadFile
Dim strWriteFile
Dim objReadStream
Dim objWriteStream
Dim strText
Dim str
Dim gyou(100)
Dim i
Dim data

str = Replace(window.location&"","file:///","")
str = Replace(str,"/","\")
str = Replace(str,"%20"," ")
str = Replace(str,"新しいテキストドキュメント (2).hta"," ")
str = Replace(str,"vbs.hta"," ")
str = Replace(str,"gattai.hta"," ")
str =str+"text.txt"

Set objFileSys = CreateObject("Scripting.FileSystemObject")

strReadFile = objFileSys.BuildPath(strScriptPath,str)

msgbox strReadFile

Set objReadStream = objFileSys.OpenTextFile(strReadFile, 1)

for i = 1 to 5
strText = objReadStream.ReadLine
gyou(i) = strText

NEXT

objReadStream.Close

Set objReadStream = Nothing
Set objFileSys = Nothing
</script>

<!DOCTYPE html>
<head><script>

文字が一致しません→　　　function foo(){

var a=document.getElementById("A");
var fso=new ActiveXObject("Scripting.FileSystemObject");
var data=gyou(1)
if(data=1){
document.getElementById("A").checked="checked";
}else{
document.getElementById("B").checked="checked";
}
}
</script>

型が一致しません→　　　</head><body onload="foo()">

<input id="A" type="radio" name="aaa">A
<input id="B" type="radio" name="bbb">B
</body>

</html>

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： osamuy
回答日時：2013/08/08 07:06

こうしてみるとか：

<!DOCTYPE html>
<head>
<script>
function foo(){
var a = document.getElementById( 'A' );
var fso = new ActiveXObject( 'Scripting.FileSystemObject' );
var data = gyou( 1 )
if( data = 1 ){
document.getElementById( 'A' ).checked = 'checked';
} else {
document.getElementById( 'B' ).checked = 'checked';
}
}
</script>
<script language="VBScript">
Option Explicit

Dim objFileSys
Dim strScriptPath
Dim strReadFile
Dim strWriteFile
Dim objReadStream
Dim objWriteStream
Dim strText
Dim str
Dim gyou(100)
Dim i
Dim data

str = Replace( window.location & "", "file:///", "" )
str = Replace( str, "/", "\" )
str = Replace( str, "%20"," " )
str = Replace( str, "新しいテキストドキュメント (2).hta", " " )
str = Replace( str, "vbs.hta", " " )
str = Replace( str, "gattai.hta", " " )
str = str + "text.txt"

Set objFileSys = CreateObject( "Scripting.FileSystemObject" )
strReadFile = objFileSys.BuildPath( strScriptPath, str )
msgbox strReadFile
Set objReadStream = objFileSys.OpenTextFile( strReadFile, 1 )
for i = 1 to 5
strText = objReadStream.ReadLine
gyou(i) = strText
NEXT
objReadStream.Close
Set objReadStream = Nothing
Set objFileSys = Nothing
</script>
</head><body onload="foo()">
<input id="A" type="radio" name="aaa">A
<input id="B" type="radio" name="bbb">B
</body>
</html>