I run a website for a little known freeware app that I hasten to add I didnt write called trandumper. This excellent little utility converts any text file formatted in a certain way into a practice exam.
The problem is that if you try and use this util in ie5.5+ it will not run correctly. It works to a point and then when you press the ready to go button to start exam nothing happens whereby it should be reading contents of the text file and converting it ???
Here is the trandumper.htm file which contains the code. I would really appreciate help with this as people are always asking me why it doesnt work properly with newer variants of IE
<html>
<script Language="JavaScript">
function ShowHint() {
if (parent.up.JJ.indexOf('['+parent.up.II+']')<0)
{
parent.up.JJ=parent.up.JJ + '[' + parent.up.II + ']';
}
for (i=0;i<parent.side.myChkbx.length;i++)
{
parent.side.myChkbx(i).disabled = true;
if (parent.up.Ans(parent.up.II).indexOf(parent.up.Opti(parent.up.II, i+1))>=0)
{
parent.side.SELE(i).innerHTML='<font color=red><b>' + parent.up.Opti(parent.up.II,i+1) + '. ';
parent.side.ENGL(i).innerHTML='<font color=red><b>' + parent.up.Body(parent.up.II,i+1);
}
}
parent.side.COMM.innerHTML='<font face=Verdana color=red size=2><b>Answer: ' + parent.up.Ans(parent.up.II) + '</b></font><br><font size=2 face=Verdana color=DarkBlue>' + parent.up.Desc(parent.up.II);
}
var intHours, intMinutes, intSeconds;
intHours = 0;
intMinutes = 0;
intSeconds = 0;
function tick() {
var hours, minutes, seconds;
var nowHowers, nowMinutes, nowSeconds;
var today;
today = new Date();
nowHours = today.getHours();
nowMinutes = today.getMinutes();
nowSeconds = today.getSeconds();
intSeconds++;
if (intSeconds>=60) {
intSeconds -= 60;
intMinutes++;
}
if (intMinutes>=60) {
intMinutes -= 60;
intHours++;
}
if (intHours < 10) {
hours = "0"+intHours+":";
} else {
hours = intHours+":";
}
if (intMinutes < 10) {
minutes = "0"+intMinutes+":";
} else {
minutes = intMinutes+":";
}
if (intSeconds < 10) {
seconds = "0"+intSeconds+" ";
} else {
seconds = intSeconds+" ";
}
if (nowHours < 10) {
nowHours = "0"+nowHours;
}
if (nowMinutes < 10) {
nowMinutes = "0"+nowMinutes;
}
if (nowSeconds < 10) {
nowSeconds = "0"+nowSeconds;
}
parent.topp.Now.innerHTML = nowHours+":"+nowMinutes+":"+nowSeconds;
timeString = hours+minutes+seconds;
parent.topp.Clock.innerHTML = timeString;
window.setTimeout("tick();", 1000);
}
</script>
<script Language="VBScript">
Dim Subject(400)
Dim Body(400,12)
Dim Opti(400,12)
Dim Usr(400)
Dim Ans(400)
Dim Markk(400)
Dim Desc(400)
Dim II, MM, JJ, DISAB
Dim MAXIMI, MAXIMJ
Dim AA, LOGO, FOLDER, PAScore, WRIGHTS, WRONGS, TOTALS, answermode
Dim R(), S()
WRIGHTS=0
WRONGS=0
TOTALS=0
PAScore = 800
DISAB = ""
II=0
JJ=""
MM=0
MAXIMI=400
MAXIMJ=12
Sub window_onLoad()
If location.search = "" Then
window.open "./Trandumper.htm?index","index","width=630,height=430,top=" & (screen.height-480)/2 & ",left=" & (screen.width-640)/2 & ",directories=no , Toolbar = no, resizable = yes, menubar = no, ScrollBars = yes"
ElseIf location.search = "?index" Then
IndexFrame()
ElseIf location.search = "?hid" Then
answermode = 0
AA = "DEFAULT"
FOLDER = ""
LOGO = "<center><table border=0><tr><img id=GIF src='./images/logo.jpg'></tr></table></center><table border=0 width=90%><tr><td align=right><i><font face='verdana,arial,helvetica' size=1 color=black><b>Designed by: </font><font face='verdana,arial,helvetica' size=1 color=brown><b>Peter Pan, JT</font></tr></table>"
ElseIf location.search = "?first" Then
FirstPage()
ElseIf location.search = "?second" Then
SecondPage()
ElseIf location.search = "?review" Then
Review()
ElseIf location.search = "?frame" Then
WriteFrame()
ElseIf location.search = "?up" Then
ReadFile()
ElseIf location.search = "?topp" Then
WriteTopp()
ElseIf location.search = "?left" Then
document.write "<html><body background='./images/bg1.gif' leftmargin=0> <p> <p> <p><img id=GIF src='./images/blank.gif'></body></html>"
ElseIf location.search= "?right" Then
document.write "<html><body background='./images/bg1.gif'></body></html>"
ElseIf location.search= "?0" Then
parent.up.II=0
HomePage()
ElseIf location.search= "?1" Then
If top.hid.answermode=1 Then
parent.up.JJ = ""
For i = 1 To parent.up.MM
parent.up.JJ = parent.up.JJ & "[" & i & "]"
Next
End If
parent.left.GIF.src="./images/blank.gif"
parent.up.II = parent.up.II + 1
If InStr(parent.up.JJ, "[" & parent.up.II & "]"
> 0 Then
parent.up.DISAB = "DISABLED"
Else
parent.up.DISAB = ""
End If
If parent.up.II = 1 Then
parent.topp.Marked.disabled = False
parent.down.prev.disabled = True
parent.down.nextt.disabled = False
parent.down.answ.disabled = False
parent.down.review.disabled = False
Else
parent.down.prev.disabled = False
End If
If parent.up.II = parent.up.MM Then parent.down.nextt.disabled = True
If parent.up.Markk(parent.up.II) = 1 then
parent.topp.Marked.checked = True
Else
parent.topp.Marked.checked = False
End If
WriteSide()
ElseIf location.search= "?2" Then
parent.left.GIF.src="./images/blank.gif"
If parent.up.II > 1 Then parent.up.II = parent.up.II - 1
If InStr(parent.up.JJ, "[" & parent.up.II & "]" > 0 Then
parent.up.DISAB = "DISABLED"
Else
parent.up.DISAB = ""
End If
If parent.up.II = 1 Then parent.down.prev.disabled = True
If parent.up.II < parent.up.MM Then parent.down.nextt.disabled = False
If parent.up.Markk(parent.up.II) = 1 then
parent.topp.Marked.checked = True
Else
parent.topp.Marked.checked = False
End If
WriteSide()
ElseIf location.search= "?down" Then
WriteDown()
Else
End If
End Sub
Sub Review()
Dim intHI
Dim myII
myII = 0
parent.left.GIF.src="./images/blank.gif"
If (parent.up.MM mod 4 = 0) Then
intHI = Int(parent.up.MM / 4)
Else
intHI = Int(parent.up.MM / 4) + 1
End If
document.write "<html><body><center><table border=5 cellspacing=0 cellpadding=0><tr valign=top>"
For j = 1 To 4
document.write "<td width=120><table cellspacing=0 cellpadding=0>"
For i = 1 To intHI
myII = myII + 1
If myII > parent.up.MM Then Exit For
document.write "<tr><td align=right><nobr><button onClick=""parent.up.II=" & myII-1 & ";parent.side.location.href='Trandumper.htm?1';""><font face=Verdana style='font-size:12px'>"
document.write myII
If Len(myII) <2 Then document.write " "
document.write "(" & Left(top.hid.AA,1) & parent.up.S(myII)
If Len(parent.up.S(myII)) < 2 Then document.write " "
document.write "." & "</button>"
'==========Write Answer===========
If (parent.up.Usr(myII) <> "" and InStr(parent.up.JJ, "[" & myII & "]" > 0) Then
document.write "<td><nobr><font "
If ChkAnswer(myII) = True Then
document.write "color=blue"
Else
document.write "color=red"
End If
document.write " face=Verdana style='font-size:16px'><b>" & parent.up.Usr(myII) & "</b></font>"
Else
document.write "<td><font face=Verdana style='font-size:16px;background-color:red;'>"
If parent.up.Usr(myII) <> "" Then
document.write parent.up.Usr(myII)
Else
document.write " | </font>"
End If
End If
document.write "</tr>"
Next
document.write "</table></td>"
Next
document.write "</tr></table>"
document.write "<button onClick=""if((gotoo.value.slice(0,1).toUpperCase()>='A') && (gotoo.value.slice(0,1).toUpperCase()<='Z')) {parent.up.II=parent.up.R(gotoo.value.slice(1))-1;} else {parent.up.II=gotoo.value-1};parent.side.location.href='Trandumper.htm?1'"">Review Item</button>"
document.write "<input type=text ID=gotoo NAME=gotoo size=4 maxlength=4> "
document.write "<button onClick=""if (WRONG.value.length>0) {parent.up.SaveWrong();}"">Save Wrong To</button>"
document.write "<input type=text ID=WRONG NAME=WRONG size=15 maxlength=30 value='Z.My Wrongs.txt'>"
document.write "</body></html>"
End Sub
Sub IndexFrame()
document.write "<title>TranDumper v1.1</title><frameset framespacing=0 rows='0,*' frameborder=NO>" &_
"<frame src='./Trandumper.htm?hid' name='hid' marginwidth=0 " &_
"frameborder=NO scrolling=NO NORESIZE>" &_
"<frame src='./Trandumper.htm?first' name='main' marginwidth=0 " &_
"frameborder=NO scrolling=AUTO NORESIZE></frameset>"
End Sub
Sub FirstPage()
Dim fs, f, fc, f1, s, a, strTmp(30), isEnd
Dim PATH, i
PATH = mid(location.pathname, 2, len(location.pathname)-15)
Set fs=CreateObject("Scripting.FileSystemObject"
Set f =fs.GetFolder(PATH)
Set fc=f.SubFolders
i = 0
strPAGE = "<dd><font face='verdana,arial,helvetica' size=2 color=black><b>Please select one exam type:</b></font><p>" &_
"<center><table border=0 cellpadding=10><tr align=center>"
For Each s in fc
If UCase(right(s, 6))<> "IMAGES" Then
If i mod 5 =0 Then strPAGE = strPAGE & "</tr><tr align=center>"
i = i + 1
strTmp(i) = Right(s, Len(s) - Len(PATH))
strPAGE = strPAGE & "<td><a onClick=""VBSCript:top.hid.FOLDER='" & PATH & strTmp(i) & "\':document.location.href='./trandumper.htm?second'""><img src='./images/icon.gif' border=0><br><font face='verdana,arial,helvetica' color=brown size=2><b><i>" & strTmp(i) & "</i></b></font></a>"
End If
Next
top.document.title = "TranDumper v1.1"
document.write "<html><body background='./images/bg1.gif'>" & top.hid.LOGO & strPAGE & "</tr></table>" &_
"<center><button onClick=""VBScript:top.window.close""><font size=2 face=Arail><b> <u>E</u>xit </b></font></button></center></body></html>"
End Sub
Sub SecondPage()
Dim fs, f, fc, f1, s, a, strTmp, isEnd
Dim PATH, i
Set fs=CreateObject("Scripting.FileSystemObject"
Set f = fs.GetFolder(top.hid.FOLDER)
Set fc=f.Files
FILES=""
i = 0
For Each f1 in fc
If UCase(Right(f1.name,3)) = "TXT" or (UCase(right(f1.name,3)) = "HTM" and UCase(Right(f1.name,14)) <> "TRANDUMPER.HTM" and UCase(Right(f1.name,10))<>"README.HTM" Then
Set a = fs.OpenTextFile(top.hid.FOLDER & f1.name, 1, False)
MEMO = MEMO & "<input type=hidden name=MEMO value="""
Do While a.AtEndOfStream <> True
strTmp=Trim(join(split(a.ReadLine, Chr(9)),"")
arrTmp = Split(strTmp, "."
If UBound(arrTmp) = -1 Then
ReDim arrTmp(0)
End If
If NOT IsNumeric(arrTmp(0)) Then arrTmp(0) = 0
If arrTmp(0)> 0 and arrTmp(0) < 999 Then ' ¬O Subject
Exit Do
Else
If Len(strTmp) > 0 Then
MEMO = MEMO & " " & strTmp
Else
MEMO = MEMO & vbCrLf
End If
End If
Loop
MEMO = MEMO & """>"
a.Close
Set a = Nothing
i = i + 1
FILES = FILES & "<option value='" & f1.name & "'>" & Left(f1.name, Len(f1.name)-4)
End If
Next
MEMO = MEMO & "<input type=hidden name=MEMO value=''><input type=hidden name=MEMO value=''>"
FILES = FILES & "<option value=''> "
Set fc = Nothing
Set f = Nothing
Set fs = Nothing
top.document.title="TranDumper v1.1"
document.write "<html><body background='./images/bg1.gif'>" & top.hid.LOGO & "<font size=2 face=Verdana><dd><b>Select a <u>T</u>est: <input type=checkbox name=answermode onClick=""if (answermode.checked==true) { top.hid.answermode=1} else { top.hid.answermode=0}"">Answer Mode<br>" & MEMO &_
"<center><select name='myChoice' size=6 onClick=""if((myChoice.selectedIndex)<0) return(0);if (myChoice(myChoice.selectedIndex).value == '') star.disabled = true;if(myChoice(myChoice.selectedIndex).value != '') star.disabled = false; area.value=top.main.MEMO(myChoice.selectedIndex).value;top.hid.AA=myChoice(myChoice.selectedIndex).value"">" & FILES & "</select></center><dd><u>D</u>escription:</b></font><br><center><textarea rows=7 cols=58 name=area></textarea><br><button name=star disabled onClick=""document.location.href='Trandumper.htm?frame'""> <b><u>S</u>tart</b> </button> <button onClick=""document.location.href='Trandumper.htm?first'""> <font face=Arail><b><u>E</u>xit</font> </button></center></body></html>"
End Sub
Sub HomePage()
top.document.title="TranDumper v1.1"
document.write "<center><font color=blue size=5><b><i>" & Left(top.hid.AA, Len(top.hid.AA)-4) & "</i></b></font><p><button OnClick=""parent.up.tick();document.location.href='./Trandumper.htm?1'""><font face=Verdana><b><u>R</u>eady to Go</b></font></button></center>"
End Sub
Sub ReadFile()
Dim fs, a
Dim i, j, k, kk, strTmp, arrTmp, blnSubj, blnBody, pre
Dim PATH
For i = 1 To MAXIMI
Markk(i) = 0
Next
i = 0
j = 0
Set fs=CreateObject("Scripting.FileSystemObject"
Set a =fs.OpenTextFile(top.hid.FOLDER & top.hid.AA, 1, False)
strTmp = "a"
pre = false
Do While a.AtEndOfStream <> True
If i >= MAXIMI Then Exit Do
strBak = Trim(strTmp)
If i = 0 Then strBak = ""
strTmp = a.ReadLine
If strTmp <> "" and strBak = "" Then
strTmp = Trim(join(split(strTmp, Chr(9)),"")
strStar = ""
Do While Left(strTmp, 1) = "*"
strTmp = Trim(Right(strTmp, Len(strTmp)-1))
strStar = strStar & "*"
Loop
arrTmp = Split(strTmp, "."
If UBound(arrTmp) <=0 Then
ReDim arrTmp(1)
End If
If NOT IsNumeric(arrTmp(0)) Then arrTmp(0) = 0
If arrTmp(0)> 0 and arrTmp(0) < 999 and Len(arrTmp(1)) >4 Then i=i+1
End If
Loop
a.Close
MM = i
Randomize
ReDim R(MM), S(MM)
For i = 1 to MM
R(i) = i
Next
For i = 1 To MM
j = Int(MM*Rnd)+1
tmp = R(j)
R(j) = R(i)
R(i) = tmp
Next
For i = 1 To MM
For j = 1 To MM
If R(j) = i Then
S(i) = j
Exit For
End If
Next
Next
i = 0
j = 0
blnSubj = False
Set a =fs.OpenTextFile(top.hid.FOLDER & top.hid.AA, 1, False)
strTmp = "<BR>"
Do While a.AtEndOfStream <> True
If i >= MAXIMI Then Exit Do
strBak = strTmp
strTmp = a.ReadLine
If InStr(strTmp, "<pre>" > 0 Then pre = True
If pre=False Then
strTmp = Trim(join(split(strTmp, Chr(9)),"")
End If
If InStr(strTmp, "</pre>" > 0 Then pre = False
strStar = ""
Do While Left(strTmp, 1) = "*"
strTmp = Trim(Right(strTmp, Len(strTmp)-1))
strStar = strStar & "*"
Loop
arrTmp = Split(strTmp, "."
If UBound(arrTmp) <=0 Then
ReDim arrTmp(1)
End If
If NOT IsNumeric(arrTmp(0)) Then arrTmp(0) = 0
If (strBak = "<BR>" or strBak="" and blnSubj=False and arrTmp(0)> 0 and arrTmp(0) < 999 and Len(arrTmp(1)) >4 Then
i = i + 1
K = R(i)
j = 0
Subject(K) = strStar & Right(strTmp, Len(strTmp)-Len(arrTmp(0))-1) & vbCrLf
Ans(K) = ""
Usr(K) = ""
Desc(K) = ""
strONE = Right(Subject(K),1)
If strONE = "." or strONE = ":" or strONE = "" or strONE = "?" or strONE = "%" or (strONE >="0" and strONE <="9" Then Subject(K) = Subject(K) & "<BR>"
blnSubj = True
blnBody = False
ElseIf (Mid(strTmp, 2, 1) = "" or Mid(strTmp, 2, 1) = "." and UCase(Left(strTmp,1))>="A" Then
j = j + 1
blnSubj = False
blnBody = True
Body(K, j) = Right(strTmp, Len(strTmp) - 2)
Opti(K, j) = UCase(Left(strTmp, 1))
If UCase(Right(Body(K,j),8)) = "(ANSWER)" Then
If InStr(Ans(K), Opti(K,j))<=0 Then Ans(K)=Ans(K) & Opti(K,j)
Body(K,j) = Left(Body(K,j), Len(Body(K,j))-8)
End If
ElseIf UCase(Left(strTmp, 7)) = "ANSWER:" Then
blnSubj = False
blnBody = False
Ans(K) = UCase(Trim(Right(strTmp, Len(strTmp) - 7)))
Ans(K) = join(split(Ans(K), "AND ", ""
Ans(K) = join(split(Ans(K), ",", ""
Ans(K) = join(split(Ans(K), " ", ""
ElseIf UCase(Left(strTmp, 8)) = "ANSWER :" Then
blnSubj = False
blnBody = False
Ans(K) = UCase(Trim(Right(strTmp, Len(strTmp) - 8)))
Ans(K) = join(split(Ans(K), "AND ", ""
Ans(K) = join(split(Ans(K), ",", ""
Ans(K) = join(split(Ans(K), " ", ""
ElseIf UCase(Left(strTmp, 4)) = "ANS:" Then
blnSubj = False
blnBody = False
Ans(K) = UCase(Trim(Right(strTmp, Len(strTmp) - 4)))
Ans(K) = join(split(Ans(K), "AND ", ""
Ans(K) = join(split(Ans(K), ",", ""
Ans(K) = join(split(Ans(K), " ", ""
ElseIf UCase(Left(strTmp, 5)) = "ANS :" Then
blnSubj = False
blnBody = False
Ans(K) = UCase(Trim(Right(strTmp, Len(strTmp) - 5)))
Ans(K) = join(split(Ans(K), "AND ", ""
Ans(K) = join(split(Ans(K), ",", ""
Ans(K) = join(split(Ans(K), " ", ""
Else
If blnBody = True Then
If Len(strTmp) = 0 Then
blnBody = False
Else
Body(K,j) = Body(K,j) & " " & strTmp
If UCase(Right(Body(K,j),8)) = "(ANSWER)" Then
If InStr(Ans(K), Opti(K,j))<=0 Then Ans(K)=Ans(K) & Opti(K,j)
Body(K,j) = Left(Body(K,j), Len(Body(K,j))-8)
End If
End If
ElseIf blnSubj = True Then
If Left(strTmp, 1) = "-" and Right(Subject(K),4) <> "<BR>" Then strTmp = "<BR>" & strTmp
Subject(K) = Subject(K) & " " & strTmp & vbCrLf
strONE = Right(strTmp,1)
If strONE = "." or strONE = ":" or strONE = "" or strONE = "?" or strONE = "%" or (strONE >="0" and strONE <="9" Then Subject(K) = Subject(K) & "<BR>"
ElseIf not blnSubj and not blnBody Then
If Left(strTmp, 1) = "-" Then strTmp = "<BR>" & strTmp
strONE = Right(strTmp,1)
If strONE = "" or strONE = "." or strONE = ":" or strONE = "" or strONE = "?" or strONE = "%" or (strONE >="0" and strONE <="9" then strTmp = strTmp & "<BR>"
Desc(K) = Desc(K) & " " & strTmp & vbCrLf
End If
End If
Loop
a.Close
MM = i
'=== Begin to Sorting Option
'For i = 1 To MM
' MO = 0
' For j=1 To MAXIMJ
' If Opti(i,j) = "" Then Exit For
' MO = MO + 1
' Next
' Ans(i) = Trim(Ans(i))
' For j=1 To MO
' If Opti(i,j) = "" Then Exit For
' k = Int(MO*Rnd)+1
' tmp = Body(i,k)
' Body(i,k) = Body(i,j)
' Body(i,j) = tmp
' Ans(i) = Join(Split(Ans(i),Opti(1,j)),"Z"
' Ans(i) = Join(Split(Ans(i),Opti(i,k)),Opti(i,j))
' Ans(i) = Join(Split(Ans(i),"Z",Opti(i,k))
' Next
' NAns = ""
' For j = 1 To MO
' If (InStr(Ans(i), Opti(i,j))>0) Then NAns=NAns & Opti(i,)
' Next
' Ans(i) = NAns
'Next
End Sub
Sub WriteFrame()
FRAM = "<title>TranDumper v1.1</title><frameset framespacing=0 rows='0,20,*,50' frameborder=NO>" &_
"<frame src='./Trandumper.htm?up' name='up' marginwidth=0 " &_
"frameborder=NO scrolling=NO NORESIZE>" &_
"<frame src='./Trandumper.htm?topp' name='topp' marginwidth=0 " &_
"frameborder=NO scrolling=NO NORESIZE>" &_
"<frameset cols='36,*,15' frameborder=YES>" &_
"<frame src='./Trandumper.htm?left' name='left' frameborder=NO bordercolor=white scrolling=NO NORESIZE>" &_
"<frame src='./Trandumper.htm?0' name='side' " &_
"frameborder=YES bordercolor=black scrolling=AUTO>" &_
"<frame src='./Trandumper.htm?right' frameborder=NO bordercolor=white scrolling=NO NORESIZE></frameset>" &_
"<frame src='./Trandumper.htm?down' name='down' " &_
"marginwidth=0 frameborder=NO scrolling=NO frameborder=NO scrolling=NO NORESIZE>" &_
"</frameset>"
document.write FRAM
End Sub
Sub WriteTopp()
top.document.title="Item " & parent.up.II & " (" & Left(top.hid.AA,1) & parent.up.S(parent.up.II) & " of " & parent.up.MM & "[" & Left(top.hid.AA, Len(top.hid.AA)-4) & "]"
TOPP="<html><body background='./images/bg1.gif'><center><table border=0 width=96% cellspacing=0 cellpadding=0>" &_
"<tr><td width=150>" &_
"<font face='Verdana' style='font-size:16px'><input type=checkbox name='Marked' disabled onClick=""if (Marked.checked) parent.up.Markk(parent.up.II)=1; else parent.up.Markk(parent.up.II)=0;""> " &_
"<b><u>M</u>ark" &_
"<td><font face='Verdana' style='font-size:16px'><b>Time Now: <font color=blue><span ID=Now>00:00:00"&_
"</span></font></b></font>" &_
"<td align=right><font face='Verdana' style='font-size:16px'><b>Time Elapsed: <font color=blue><span ID=Clock>00:00:00"&_
"</span></font></b></font>" &_
"</tr></table></body></html>"
document.write TOPP
End Sub
Function WriteRadio(ByVal item1, ByVal english)
If item1 = parent.up.Usr(parent.up.II) Then
strChecked = "CHECKED"
Else
strChecked = ""
End If
WriteRadio = "<tr valign=top><td valign=top><input type=radio name=myChkbx " & strChecked & " value='" & item1 & "' " & parent.up.DISAB & " onClick=""parent.up.Usr(parent.up.II)=this.value;for(i=0;i<myChkbx.length;i++){myChkbx(i).disabled=true;} if(this.value==parent.up.Ans(parent.up.II)){ parent.up.WRIGHTS= parent.up.WRIGHTS + 1; parent.up.TOTALS = parent.up.TOTALS + Math.ceil(1000/parent.up.MM); if(parent.up.TOTALS > 1000) parent.up.TOTALS=1000; parent.down.right.innerHTML=parent.up.WRIGHTS; parent.down.total.innerHTML=parent.up.TOTALS; parent.left.GIF.src='./images/right.gif';myResult='Congratulation! ';} else { parent.up.WRONGS= parent.up.WRONGS + 1; parent.down.wrong.innerHTML=parent.up.WRONGS; parent.left.GIF.src='./images/wrong.gif';myResult='Sorry! ';} parent.side.MYRESULT.innerHTML=myResult; parent.up.ShowHint();""><font face=Verdana size=2><span ID=SELE>"
If (parent.up.DISAB<>"" and InStr(parent.up.Ans(parent.up.II), item1)>0) Then WriteRadio = WriteRadio & "<font color=red><b>"
WriteRadio = WriteRadio & item1 & ". </span><td valign=bottom><font face=Verdana size=2><span ID=ENGL>"
If (parent.up.DISAB<>"" and InStr(parent.up.Ans(parent.up.II), item1)>0) Then WriteRadio = WriteRadio & "<font color=red><b>"
WriteRadio = WriteRadio & english & "</span></tr>"
End Function
Function WriteChkbx(ByVal j, item1, ByVal english)
If InStr(parent.up.Usr(parent.up.II), item1) > 0 Then
strChecked = "CHECKED"
Else
strChecked = ""
End If
WriteChkbx = "<tr valign=top><td valign=top><input type=checkbox name=myChkbx " & strChecked & " value='" & item1 & "' " & parent.up.DISAB & " onClick=""if(myChkbx(" & j & ".checked && parent.up.Usr(parent.up.II).indexOf(myChkbx(" & j & ".value)<0){parent.up.Usr(parent.up.II) = parent.up.Usr(parent.up.II) + '" & item1 & "';} if(! myChkbx(" & j & ".checked && parent.up.Usr(parent.up.II).indexOf(myChkbx(" & j & ".value)>=0){parent.up.Usr(parent.up.II) = parent.up.Usr(parent.up.II).slice(0,parent.up.Usr(parent.up.II).indexOf('" & item1 & "')) + parent.up.Usr(parent.up.II).slice(parent.up.Usr(parent.up.II).indexOf('" & item1 & "')+1, parent.up.Usr(parent.up.II).length);} if(parent.up.Usr(parent.up.II).length==parent.up.Ans(parent.up.II).length) { parent.up.JJ=parent.up.JJ + '[' + parent.up.II + ']'; for(i=0;i<myChkbx.length;i++){myChkbx(i).disabled=true;} j=0; for(i=0;i<parent.up.Usr(parent.up.II).length;i++){ if (parent.up.Ans(parent.up.II).indexOf(parent.up.Usr(parent.up.II).slice(i,i+1))>=0){j=j+1;}} if (j==parent.up.Ans(parent.up.II).length) { parent.up.WRIGHTS= parent.up.WRIGHTS + 1; parent.up.TOTALS = parent.up.TOTALS + Math.ceil(1000/parent.up.MM); if(parent.up.TOTALS>1000)parent.up.TOTALS=1000; parent.down.right.innerHTML=parent.up.WRIGHTS; parent.down.total.innerHTML=parent.up.TOTALS; parent.left.GIF.src='./images/right.gif';myResult='Congratulation! ';} else { parent.up.WRONGS= parent.up.WRONGS + 1; parent.down.wrong.innerHTML=parent.up.WRONGS; parent.left.GIF.src='./images/wrong.gif';myResult='Sorry! ';} parent.side.MYRESULT.innerHTML=myResult; parent.up.ShowHint();}""><font face=Verdana size=2><span ID=SELE>"
If (parent.up.DISAB<>"" and InStr(parent.up.Ans(parent.up.II), item1)>0) Then WriteChkbx = WriteChkbx & "<font color=red><b>"
WriteChkbx = WriteChkbx & item1 & ". </span><td valign=bottom><font face=Verdana size=2><span ID=ENGL>"
If (parent.up.DISAB<>"" and InStr(parent.up.Ans(parent.up.II), item1)>0) Then WriteChkbx = WriteChkbx & "<font color=red><b>"
WriteChkbx = WriteChkbx & english & "</span></tr>"
End Function
Sub WriteSide()
Dim HEAD, ITEMS, ansTmp
top.document.title="Item " & parent.up.II & " (" & Left(top.hid.AA,1) & parent.up.S(parent.up.II) & " of " & parent.up.MM & " [" & Left(top.hid.AA, Len(top.hid.AA)-4) & "]"
HEAD = "<HTML><BODY BGCOLOR=white leftmargin=0 topmargin=0 rightmargin=0>" &_
"<table border=0 cellspacing=10 cellpadding=0 width=100%><tr><td width=3%><td width=97%>" &_
"<font face='Verdana' size=2>"
SUBJ = parent.up.Subject(parent.up.II)
ITEMS = ""
If Len(parent.up.Ans(parent.up.II)) > 1 Then
ansTmp = join(split(parent.up.Ans(parent.up.II), ",", ""
ansTmp = join(split(ansTmp, " ", ""
parent.down.numbers.innerHTML="Select <font color=blue>" & Len(ansTmp) & "</font> correct answers."
Else
parent.down.numbers.innerHTML="Select the best answer."
End If
For j = 1 to parent.up.MAXIMJ
If parent.up.Body(parent.up.II, j) <> "" Then
If Len(parent.up.Ans(parent.up.II)) > 1 Then
ITEMS = ITEMS & WriteChkbx(j-1, parent.up.Opti(parent.up.II,j), parent.up.Body(parent.up.II, j))
Else
ITEMS = ITEMS & WriteRadio(parent.up.Opti(parent.up.II,j), parent.up.Body(parent.up.II, j))
End If
ELSE
Exit For
End If
Next
TAIL = "<tr><td><td><font size=4 face=Verdana color=blue><b><span ID=MYRESULT></span></b></font><span ID=COMM>"
If (parent.up.DISAB <> "" Then TAIL = TAIL & "<font face=Verdana color=red size=2><b>Answer: " & parent.up.Ans(parent.up.II) & "</font><br><font size=2 face=Verdana color=DarkBlue><b>" & parent.up.Desc(parent.up.II)
TAIL = TAIL & " <br></span></tr></table></body></html><span ID=SELE></span><span ID=ENGL></span><input type=hidden name=myChkbx>"
document.write HEAD & SUBJ & "<P>" & ITEMS & TAIL
If (InStr(parent.up.JJ, "[" & parent.up.II & "]">0) Then
parent.up.ShowHint()
End If
End Sub
Sub WriteDown()
DOWN = "<html><head></head>" &_
"<BODY background='./images/bg1.gif' leftmargin=0 topmargin=0 rightmargin=0>" &_
"<table border=0 cellspacing=0 cellpadding=0><tr><td width=230><font face=Verdana style='font-size:16px'><nobr><b> <span name='numbers' ID='numbers'></span><td><font face=Verdana style='font-size:16px' color=black><b><nobr>Correct: <font color=blue><span ID='right'>0</span></font> , Incorrect: <font color=red><span ID='wrong'>0</span></font> , Your Score: <font color=blue><span ID='total'>0</span></font>/1000</tr></table>" &_
"<center><table border=0 width=96%>" &_
"<tr>" &_
"<td><font face=Verdana style='font-size:12px'><button name=nextt onClick=""parent.side.location.href='Trandumper.htm?1'"" disabled> <font style='font-size:12px'><b>" &_
"<u>N</u>ext </font></button>" &_
"<td><font face=Verdana style='font-size:12px'><button name=prev onClick=""parent.side.location.href='Trandumper.htm?2'"" disabled> <font style='font-size:12px'><b><u>P</u>revious</b> </font></button>" &_
"<td><font face=Verdana style='font-size:12px'><button name=answ onClick=""if(parent.up.JJ.indexOf('['+parent.up.II+']')<0){ parent.up.JJ=parent.up.JJ + '[' + parent.up.II + ']'; parent.up.WRONGS= parent.up.WRONGS + 1; parent.down.wrong.innerHTML=parent.up.WRONGS; } parent.up.ShowHint();"" disabled> <font style='font-size:12px'>" &_
"<b><u>A</u>nswer</b> </button>" &_
"<td><font face=Verdana style='font-size:12px'><button disabled name=review onClick=""parent.side.location.href='Trandumper.htm?review'""> <font style='font-size:12px'>" &_
"<b><u>R</u>eview</b> </button>" &_
"<td align=right><font face=Verdana style='font-size:12px'><button name=exitt onClick=""if(confirm('Are you sure to quit this exam?')){ top.hid.answermode=0;parent.location.href='Trandumper.htm?second';}""> <font style='font-size:12px'>" &_
"<b><u>E</u>xit</b> </button>" &_
"</table></body></html>"
document.write DOWN
End Sub
Function ChkAnswer(ITEM)
Dim j, i
j=0
For i=1 To Len(parent.up.Usr(ITEM))
If (InStr(parent.up.Ans(ITEM), Mid(parent.up.Usr(ITEM),i,1)) >0) Then
j=j+1
End If
Next
If (j=Len(parent.up.Ans(ITEM))) Then
ChkAnswer = True
Else
ChkAnswer = False
End If
End Function
Sub SaveWrong()
Dim fs, a, tmpStr
Dim i, j
ForAppending = 8
TristateFalse = 0
i = 0
j = 0
Set fs=CreateObject("Scripting.FileSystemObject"
If Not fs.FileExists(top.hid.FOLDER & parent.side.WRONG.value) Then
Set a = fs.CreateTextFile(top.hid.FOLDER & parent.side.WRONG.value, True)
SaveType = "Saved !"
Else
Set a = fs.OpenTextFile(top.hid.FOLDER & parent.side.WRONG.value, ForAppending,TristateFalse)
SaveType = "Appended !"
End If
For i = 1 To parent.up.MM
If (InStr(parent.up.JJ, "[" & i & "]" > 0) Then
If (Not ChkAnswer(i)) Then
tmpStr=parent.up.Subject(i)
tmpStr=Join(Split(tmpStr,"<BR>",Chr(13) & Chr(10))
a.WriteLine i & ". (" & Left(top.hid.AA,1) & parent.up.S(i) & "" & tmpStr
For j = 1 To MAXIMJ
If parent.up.Opti(i,j) <> "" Then
a.WriteLine parent.up.Opti(i,j) & ". " & parent.up.Body(i,j)
Else
Exit For
End If
Next
a.WriteLine ""
a.WriteLine "Answer: " & parent.up.Ans(i)
tmpStr=parent.up.Desc(i)
tmpStr=Join(Split(tmpStr,"<BR>",Chr(13) & Chr(10))
a.WriteLine tmpStr
a.WriteLine ""
a.WriteLine ""
End If
End If
Next
a.Close
MsgBox parent.side.WRONG.value & " has " & SaveType
End Sub
</script>
</html>
Any Qs please email me at info@trandumper.com
thx a lot
The problem is that if you try and use this util in ie5.5+ it will not run correctly. It works to a point and then when you press the ready to go button to start exam nothing happens whereby it should be reading contents of the text file and converting it ???
Here is the trandumper.htm file which contains the code. I would really appreciate help with this as people are always asking me why it doesnt work properly with newer variants of IE
<html>
<script Language="JavaScript">
function ShowHint() {
if (parent.up.JJ.indexOf('['+parent.up.II+']')<0)
{
parent.up.JJ=parent.up.JJ + '[' + parent.up.II + ']';
}
for (i=0;i<parent.side.myChkbx.length;i++)
{
parent.side.myChkbx(i).disabled = true;
if (parent.up.Ans(parent.up.II).indexOf(parent.up.Opti(parent.up.II, i+1))>=0)
{
parent.side.SELE(i).innerHTML='<font color=red><b>' + parent.up.Opti(parent.up.II,i+1) + '. ';
parent.side.ENGL(i).innerHTML='<font color=red><b>' + parent.up.Body(parent.up.II,i+1);
}
}
parent.side.COMM.innerHTML='<font face=Verdana color=red size=2><b>Answer: ' + parent.up.Ans(parent.up.II) + '</b></font><br><font size=2 face=Verdana color=DarkBlue>' + parent.up.Desc(parent.up.II);
}
var intHours, intMinutes, intSeconds;
intHours = 0;
intMinutes = 0;
intSeconds = 0;
function tick() {
var hours, minutes, seconds;
var nowHowers, nowMinutes, nowSeconds;
var today;
today = new Date();
nowHours = today.getHours();
nowMinutes = today.getMinutes();
nowSeconds = today.getSeconds();
intSeconds++;
if (intSeconds>=60) {
intSeconds -= 60;
intMinutes++;
}
if (intMinutes>=60) {
intMinutes -= 60;
intHours++;
}
if (intHours < 10) {
hours = "0"+intHours+":";
} else {
hours = intHours+":";
}
if (intMinutes < 10) {
minutes = "0"+intMinutes+":";
} else {
minutes = intMinutes+":";
}
if (intSeconds < 10) {
seconds = "0"+intSeconds+" ";
} else {
seconds = intSeconds+" ";
}
if (nowHours < 10) {
nowHours = "0"+nowHours;
}
if (nowMinutes < 10) {
nowMinutes = "0"+nowMinutes;
}
if (nowSeconds < 10) {
nowSeconds = "0"+nowSeconds;
}
parent.topp.Now.innerHTML = nowHours+":"+nowMinutes+":"+nowSeconds;
timeString = hours+minutes+seconds;
parent.topp.Clock.innerHTML = timeString;
window.setTimeout("tick();", 1000);
}
</script>
<script Language="VBScript">
Dim Subject(400)
Dim Body(400,12)
Dim Opti(400,12)
Dim Usr(400)
Dim Ans(400)
Dim Markk(400)
Dim Desc(400)
Dim II, MM, JJ, DISAB
Dim MAXIMI, MAXIMJ
Dim AA, LOGO, FOLDER, PAScore, WRIGHTS, WRONGS, TOTALS, answermode
Dim R(), S()
WRIGHTS=0
WRONGS=0
TOTALS=0
PAScore = 800
DISAB = ""
II=0
JJ=""
MM=0
MAXIMI=400
MAXIMJ=12
Sub window_onLoad()
If location.search = "" Then
window.open "./Trandumper.htm?index","index","width=630,height=430,top=" & (screen.height-480)/2 & ",left=" & (screen.width-640)/2 & ",directories=no , Toolbar = no, resizable = yes, menubar = no, ScrollBars = yes"
ElseIf location.search = "?index" Then
IndexFrame()
ElseIf location.search = "?hid" Then
answermode = 0
AA = "DEFAULT"
FOLDER = ""
LOGO = "<center><table border=0><tr><img id=GIF src='./images/logo.jpg'></tr></table></center><table border=0 width=90%><tr><td align=right><i><font face='verdana,arial,helvetica' size=1 color=black><b>Designed by: </font><font face='verdana,arial,helvetica' size=1 color=brown><b>Peter Pan, JT</font></tr></table>"
ElseIf location.search = "?first" Then
FirstPage()
ElseIf location.search = "?second" Then
SecondPage()
ElseIf location.search = "?review" Then
Review()
ElseIf location.search = "?frame" Then
WriteFrame()
ElseIf location.search = "?up" Then
ReadFile()
ElseIf location.search = "?topp" Then
WriteTopp()
ElseIf location.search = "?left" Then
document.write "<html><body background='./images/bg1.gif' leftmargin=0> <p> <p> <p><img id=GIF src='./images/blank.gif'></body></html>"
ElseIf location.search= "?right" Then
document.write "<html><body background='./images/bg1.gif'></body></html>"
ElseIf location.search= "?0" Then
parent.up.II=0
HomePage()
ElseIf location.search= "?1" Then
If top.hid.answermode=1 Then
parent.up.JJ = ""
For i = 1 To parent.up.MM
parent.up.JJ = parent.up.JJ & "[" & i & "]"
Next
End If
parent.left.GIF.src="./images/blank.gif"
parent.up.II = parent.up.II + 1
If InStr(parent.up.JJ, "[" & parent.up.II & "]"
> 0 Then parent.up.DISAB = "DISABLED"
Else
parent.up.DISAB = ""
End If
If parent.up.II = 1 Then
parent.topp.Marked.disabled = False
parent.down.prev.disabled = True
parent.down.nextt.disabled = False
parent.down.answ.disabled = False
parent.down.review.disabled = False
Else
parent.down.prev.disabled = False
End If
If parent.up.II = parent.up.MM Then parent.down.nextt.disabled = True
If parent.up.Markk(parent.up.II) = 1 then
parent.topp.Marked.checked = True
Else
parent.topp.Marked.checked = False
End If
WriteSide()
ElseIf location.search= "?2" Then
parent.left.GIF.src="./images/blank.gif"
If parent.up.II > 1 Then parent.up.II = parent.up.II - 1
If InStr(parent.up.JJ, "[" & parent.up.II & "]"
> 0 Then parent.up.DISAB = "DISABLED"
Else
parent.up.DISAB = ""
End If
If parent.up.II = 1 Then parent.down.prev.disabled = True
If parent.up.II < parent.up.MM Then parent.down.nextt.disabled = False
If parent.up.Markk(parent.up.II) = 1 then
parent.topp.Marked.checked = True
Else
parent.topp.Marked.checked = False
End If
WriteSide()
ElseIf location.search= "?down" Then
WriteDown()
Else
End If
End Sub
Sub Review()
Dim intHI
Dim myII
myII = 0
parent.left.GIF.src="./images/blank.gif"
If (parent.up.MM mod 4 = 0) Then
intHI = Int(parent.up.MM / 4)
Else
intHI = Int(parent.up.MM / 4) + 1
End If
document.write "<html><body><center><table border=5 cellspacing=0 cellpadding=0><tr valign=top>"
For j = 1 To 4
document.write "<td width=120><table cellspacing=0 cellpadding=0>"
For i = 1 To intHI
myII = myII + 1
If myII > parent.up.MM Then Exit For
document.write "<tr><td align=right><nobr><button onClick=""parent.up.II=" & myII-1 & ";parent.side.location.href='Trandumper.htm?1';""><font face=Verdana style='font-size:12px'>"
document.write myII
If Len(myII) <2 Then document.write " "
document.write "(" & Left(top.hid.AA,1) & parent.up.S(myII)
If Len(parent.up.S(myII)) < 2 Then document.write " "
document.write "
." & "</button>"'==========Write Answer===========
If (parent.up.Usr(myII) <> "" and InStr(parent.up.JJ, "[" & myII & "]"
> 0) Thendocument.write "<td><nobr><font "
If ChkAnswer(myII) = True Then
document.write "color=blue"
Else
document.write "color=red"
End If
document.write " face=Verdana style='font-size:16px'><b>" & parent.up.Usr(myII) & "</b></font>"
Else
document.write "<td><font face=Verdana style='font-size:16px;background-color:red;'>"
If parent.up.Usr(myII) <> "" Then
document.write parent.up.Usr(myII)
Else
document.write " | </font>"
End If
End If
document.write "</tr>"
Next
document.write "</table></td>"
Next
document.write "</tr></table>"
document.write "<button onClick=""if((gotoo.value.slice(0,1).toUpperCase()>='A') && (gotoo.value.slice(0,1).toUpperCase()<='Z')) {parent.up.II=parent.up.R(gotoo.value.slice(1))-1;} else {parent.up.II=gotoo.value-1};parent.side.location.href='Trandumper.htm?1'"">Review Item</button>"
document.write "<input type=text ID=gotoo NAME=gotoo size=4 maxlength=4> "
document.write "<button onClick=""if (WRONG.value.length>0) {parent.up.SaveWrong();}"">Save Wrong To</button>"
document.write "<input type=text ID=WRONG NAME=WRONG size=15 maxlength=30 value='Z.My Wrongs.txt'>"
document.write "</body></html>"
End Sub
Sub IndexFrame()
document.write "<title>TranDumper v1.1</title><frameset framespacing=0 rows='0,*' frameborder=NO>" &_
"<frame src='./Trandumper.htm?hid' name='hid' marginwidth=0 " &_
"frameborder=NO scrolling=NO NORESIZE>" &_
"<frame src='./Trandumper.htm?first' name='main' marginwidth=0 " &_
"frameborder=NO scrolling=AUTO NORESIZE></frameset>"
End Sub
Sub FirstPage()
Dim fs, f, fc, f1, s, a, strTmp(30), isEnd
Dim PATH, i
PATH = mid(location.pathname, 2, len(location.pathname)-15)
Set fs=CreateObject("Scripting.FileSystemObject"
Set f =fs.GetFolder(PATH)
Set fc=f.SubFolders
i = 0
strPAGE = "<dd><font face='verdana,arial,helvetica' size=2 color=black><b>Please select one exam type:</b></font><p>" &_
"<center><table border=0 cellpadding=10><tr align=center>"
For Each s in fc
If UCase(right(s, 6))<> "IMAGES" Then
If i mod 5 =0 Then strPAGE = strPAGE & "</tr><tr align=center>"
i = i + 1
strTmp(i) = Right(s, Len(s) - Len(PATH))
strPAGE = strPAGE & "<td><a onClick=""VBSCript:top.hid.FOLDER='" & PATH & strTmp(i) & "\':document.location.href='./trandumper.htm?second'""><img src='./images/icon.gif' border=0><br><font face='verdana,arial,helvetica' color=brown size=2><b><i>" & strTmp(i) & "</i></b></font></a>"
End If
Next
top.document.title = "TranDumper v1.1"
document.write "<html><body background='./images/bg1.gif'>" & top.hid.LOGO & strPAGE & "</tr></table>" &_
"<center><button onClick=""VBScript:top.window.close""><font size=2 face=Arail><b> <u>E</u>xit </b></font></button></center></body></html>"
End Sub
Sub SecondPage()
Dim fs, f, fc, f1, s, a, strTmp, isEnd
Dim PATH, i
Set fs=CreateObject("Scripting.FileSystemObject"
Set f = fs.GetFolder(top.hid.FOLDER)
Set fc=f.Files
FILES=""
i = 0
For Each f1 in fc
If UCase(Right(f1.name,3)) = "TXT" or (UCase(right(f1.name,3)) = "HTM" and UCase(Right(f1.name,14)) <> "TRANDUMPER.HTM" and UCase(Right(f1.name,10))<>"README.HTM"
ThenSet a = fs.OpenTextFile(top.hid.FOLDER & f1.name, 1, False)
MEMO = MEMO & "<input type=hidden name=MEMO value="""
Do While a.AtEndOfStream <> True
strTmp=Trim(join(split(a.ReadLine, Chr(9)),""
)arrTmp = Split(strTmp, "."
If UBound(arrTmp) = -1 Then
ReDim arrTmp(0)
End If
If NOT IsNumeric(arrTmp(0)) Then arrTmp(0) = 0
If arrTmp(0)> 0 and arrTmp(0) < 999 Then ' ¬O Subject
Exit Do
Else
If Len(strTmp) > 0 Then
MEMO = MEMO & " " & strTmp
Else
MEMO = MEMO & vbCrLf
End If
End If
Loop
MEMO = MEMO & """>"
a.Close
Set a = Nothing
i = i + 1
FILES = FILES & "<option value='" & f1.name & "'>" & Left(f1.name, Len(f1.name)-4)
End If
Next
MEMO = MEMO & "<input type=hidden name=MEMO value=''><input type=hidden name=MEMO value=''>"
FILES = FILES & "<option value=''> "
Set fc = Nothing
Set f = Nothing
Set fs = Nothing
top.document.title="TranDumper v1.1"
document.write "<html><body background='./images/bg1.gif'>" & top.hid.LOGO & "<font size=2 face=Verdana><dd><b>Select a <u>T</u>est: <input type=checkbox name=answermode onClick=""if (answermode.checked==true) { top.hid.answermode=1} else { top.hid.answermode=0}"">Answer Mode<br>" & MEMO &_
"<center><select name='myChoice' size=6 onClick=""if((myChoice.selectedIndex)<0) return(0);if (myChoice(myChoice.selectedIndex).value == '') star.disabled = true;if(myChoice(myChoice.selectedIndex).value != '') star.disabled = false; area.value=top.main.MEMO(myChoice.selectedIndex).value;top.hid.AA=myChoice(myChoice.selectedIndex).value"">" & FILES & "</select></center><dd><u>D</u>escription:</b></font><br><center><textarea rows=7 cols=58 name=area></textarea><br><button name=star disabled onClick=""document.location.href='Trandumper.htm?frame'""> <b><u>S</u>tart</b> </button> <button onClick=""document.location.href='Trandumper.htm?first'""> <font face=Arail><b><u>E</u>xit</font> </button></center></body></html>"
End Sub
Sub HomePage()
top.document.title="TranDumper v1.1"
document.write "<center><font color=blue size=5><b><i>" & Left(top.hid.AA, Len(top.hid.AA)-4) & "</i></b></font><p><button OnClick=""parent.up.tick();document.location.href='./Trandumper.htm?1'""><font face=Verdana><b><u>R</u>eady to Go</b></font></button></center>"
End Sub
Sub ReadFile()
Dim fs, a
Dim i, j, k, kk, strTmp, arrTmp, blnSubj, blnBody, pre
Dim PATH
For i = 1 To MAXIMI
Markk(i) = 0
Next
i = 0
j = 0
Set fs=CreateObject("Scripting.FileSystemObject"
Set a =fs.OpenTextFile(top.hid.FOLDER & top.hid.AA, 1, False)
strTmp = "a"
pre = false
Do While a.AtEndOfStream <> True
If i >= MAXIMI Then Exit Do
strBak = Trim(strTmp)
If i = 0 Then strBak = ""
strTmp = a.ReadLine
If strTmp <> "" and strBak = "" Then
strTmp = Trim(join(split(strTmp, Chr(9)),""
)strStar = ""
Do While Left(strTmp, 1) = "*"
strTmp = Trim(Right(strTmp, Len(strTmp)-1))
strStar = strStar & "*"
Loop
arrTmp = Split(strTmp, "."
If UBound(arrTmp) <=0 Then
ReDim arrTmp(1)
End If
If NOT IsNumeric(arrTmp(0)) Then arrTmp(0) = 0
If arrTmp(0)> 0 and arrTmp(0) < 999 and Len(arrTmp(1)) >4 Then i=i+1
End If
Loop
a.Close
MM = i
Randomize
ReDim R(MM), S(MM)
For i = 1 to MM
R(i) = i
Next
For i = 1 To MM
j = Int(MM*Rnd)+1
tmp = R(j)
R(j) = R(i)
R(i) = tmp
Next
For i = 1 To MM
For j = 1 To MM
If R(j) = i Then
S(i) = j
Exit For
End If
Next
Next
i = 0
j = 0
blnSubj = False
Set a =fs.OpenTextFile(top.hid.FOLDER & top.hid.AA, 1, False)
strTmp = "<BR>"
Do While a.AtEndOfStream <> True
If i >= MAXIMI Then Exit Do
strBak = strTmp
strTmp = a.ReadLine
If InStr(strTmp, "<pre>"
> 0 Then pre = TrueIf pre=False Then
strTmp = Trim(join(split(strTmp, Chr(9)),""
)End If
If InStr(strTmp, "</pre>"
> 0 Then pre = FalsestrStar = ""
Do While Left(strTmp, 1) = "*"
strTmp = Trim(Right(strTmp, Len(strTmp)-1))
strStar = strStar & "*"
Loop
arrTmp = Split(strTmp, "."
If UBound(arrTmp) <=0 Then
ReDim arrTmp(1)
End If
If NOT IsNumeric(arrTmp(0)) Then arrTmp(0) = 0
If (strBak = "<BR>" or strBak=""
and blnSubj=False and arrTmp(0)> 0 and arrTmp(0) < 999 and Len(arrTmp(1)) >4 Theni = i + 1
K = R(i)
j = 0
Subject(K) = strStar & Right(strTmp, Len(strTmp)-Len(arrTmp(0))-1) & vbCrLf
Ans(K) = ""
Usr(K) = ""
Desc(K) = ""
strONE = Right(Subject(K),1)
If strONE = "." or strONE = ":" or strONE = "" or strONE = "?" or strONE = "%" or (strONE >="0" and strONE <="9"
Then Subject(K) = Subject(K) & "<BR>"blnSubj = True
blnBody = False
ElseIf (Mid(strTmp, 2, 1) = "
" or Mid(strTmp, 2, 1) = "." and UCase(Left(strTmp,1))>="A" Thenj = j + 1
blnSubj = False
blnBody = True
Body(K, j) = Right(strTmp, Len(strTmp) - 2)
Opti(K, j) = UCase(Left(strTmp, 1))
If UCase(Right(Body(K,j),8)) = "(ANSWER)" Then
If InStr(Ans(K), Opti(K,j))<=0 Then Ans(K)=Ans(K) & Opti(K,j)
Body(K,j) = Left(Body(K,j), Len(Body(K,j))-8)
End If
ElseIf UCase(Left(strTmp, 7)) = "ANSWER:" Then
blnSubj = False
blnBody = False
Ans(K) = UCase(Trim(Right(strTmp, Len(strTmp) - 7)))
Ans(K) = join(split(Ans(K), "AND "
, ""Ans(K) = join(split(Ans(K), ","
, ""Ans(K) = join(split(Ans(K), " "
, ""ElseIf UCase(Left(strTmp, 8)) = "ANSWER :" Then
blnSubj = False
blnBody = False
Ans(K) = UCase(Trim(Right(strTmp, Len(strTmp) - 8)))
Ans(K) = join(split(Ans(K), "AND "
, ""Ans(K) = join(split(Ans(K), ","
, ""Ans(K) = join(split(Ans(K), " "
, ""ElseIf UCase(Left(strTmp, 4)) = "ANS:" Then
blnSubj = False
blnBody = False
Ans(K) = UCase(Trim(Right(strTmp, Len(strTmp) - 4)))
Ans(K) = join(split(Ans(K), "AND "
, ""Ans(K) = join(split(Ans(K), ","
, ""Ans(K) = join(split(Ans(K), " "
, ""ElseIf UCase(Left(strTmp, 5)) = "ANS :" Then
blnSubj = False
blnBody = False
Ans(K) = UCase(Trim(Right(strTmp, Len(strTmp) - 5)))
Ans(K) = join(split(Ans(K), "AND "
, ""Ans(K) = join(split(Ans(K), ","
, ""Ans(K) = join(split(Ans(K), " "
, ""Else
If blnBody = True Then
If Len(strTmp) = 0 Then
blnBody = False
Else
Body(K,j) = Body(K,j) & " " & strTmp
If UCase(Right(Body(K,j),8)) = "(ANSWER)" Then
If InStr(Ans(K), Opti(K,j))<=0 Then Ans(K)=Ans(K) & Opti(K,j)
Body(K,j) = Left(Body(K,j), Len(Body(K,j))-8)
End If
End If
ElseIf blnSubj = True Then
If Left(strTmp, 1) = "-" and Right(Subject(K),4) <> "<BR>" Then strTmp = "<BR>" & strTmp
Subject(K) = Subject(K) & " " & strTmp & vbCrLf
strONE = Right(strTmp,1)
If strONE = "." or strONE = ":" or strONE = "" or strONE = "?" or strONE = "%" or (strONE >="0" and strONE <="9"
Then Subject(K) = Subject(K) & "<BR>"ElseIf not blnSubj and not blnBody Then
If Left(strTmp, 1) = "-" Then strTmp = "<BR>" & strTmp
strONE = Right(strTmp,1)
If strONE = "" or strONE = "." or strONE = ":" or strONE = "" or strONE = "?" or strONE = "%" or (strONE >="0" and strONE <="9"
then strTmp = strTmp & "<BR>"Desc(K) = Desc(K) & " " & strTmp & vbCrLf
End If
End If
Loop
a.Close
MM = i
'=== Begin to Sorting Option
'For i = 1 To MM
' MO = 0
' For j=1 To MAXIMJ
' If Opti(i,j) = "" Then Exit For
' MO = MO + 1
' Next
' Ans(i) = Trim(Ans(i))
' For j=1 To MO
' If Opti(i,j) = "" Then Exit For
' k = Int(MO*Rnd)+1
' tmp = Body(i,k)
' Body(i,k) = Body(i,j)
' Body(i,j) = tmp
' Ans(i) = Join(Split(Ans(i),Opti(1,j)),"Z"
' Ans(i) = Join(Split(Ans(i),Opti(i,k)),Opti(i,j))
' Ans(i) = Join(Split(Ans(i),"Z"
,Opti(i,k))' Next
' NAns = ""
' For j = 1 To MO
' If (InStr(Ans(i), Opti(i,j))>0) Then NAns=NAns & Opti(i,)
' Next
' Ans(i) = NAns
'Next
End Sub
Sub WriteFrame()
FRAM = "<title>TranDumper v1.1</title><frameset framespacing=0 rows='0,20,*,50' frameborder=NO>" &_
"<frame src='./Trandumper.htm?up' name='up' marginwidth=0 " &_
"frameborder=NO scrolling=NO NORESIZE>" &_
"<frame src='./Trandumper.htm?topp' name='topp' marginwidth=0 " &_
"frameborder=NO scrolling=NO NORESIZE>" &_
"<frameset cols='36,*,15' frameborder=YES>" &_
"<frame src='./Trandumper.htm?left' name='left' frameborder=NO bordercolor=white scrolling=NO NORESIZE>" &_
"<frame src='./Trandumper.htm?0' name='side' " &_
"frameborder=YES bordercolor=black scrolling=AUTO>" &_
"<frame src='./Trandumper.htm?right' frameborder=NO bordercolor=white scrolling=NO NORESIZE></frameset>" &_
"<frame src='./Trandumper.htm?down' name='down' " &_
"marginwidth=0 frameborder=NO scrolling=NO frameborder=NO scrolling=NO NORESIZE>" &_
"</frameset>"
document.write FRAM
End Sub
Sub WriteTopp()
top.document.title="Item " & parent.up.II & " (" & Left(top.hid.AA,1) & parent.up.S(parent.up.II) & "
of " & parent.up.MM & "[" & Left(top.hid.AA, Len(top.hid.AA)-4) & "]"TOPP="<html><body background='./images/bg1.gif'><center><table border=0 width=96% cellspacing=0 cellpadding=0>" &_
"<tr><td width=150>" &_
"<font face='Verdana' style='font-size:16px'><input type=checkbox name='Marked' disabled onClick=""if (Marked.checked) parent.up.Markk(parent.up.II)=1; else parent.up.Markk(parent.up.II)=0;""> " &_
"<b><u>M</u>ark" &_
"<td><font face='Verdana' style='font-size:16px'><b>Time Now: <font color=blue><span ID=Now>00:00:00"&_
"</span></font></b></font>" &_
"<td align=right><font face='Verdana' style='font-size:16px'><b>Time Elapsed: <font color=blue><span ID=Clock>00:00:00"&_
"</span></font></b></font>" &_
"</tr></table></body></html>"
document.write TOPP
End Sub
Function WriteRadio(ByVal item1, ByVal english)
If item1 = parent.up.Usr(parent.up.II) Then
strChecked = "CHECKED"
Else
strChecked = ""
End If
WriteRadio = "<tr valign=top><td valign=top><input type=radio name=myChkbx " & strChecked & " value='" & item1 & "' " & parent.up.DISAB & " onClick=""parent.up.Usr(parent.up.II)=this.value;for(i=0;i<myChkbx.length;i++){myChkbx(i).disabled=true;} if(this.value==parent.up.Ans(parent.up.II)){ parent.up.WRIGHTS= parent.up.WRIGHTS + 1; parent.up.TOTALS = parent.up.TOTALS + Math.ceil(1000/parent.up.MM); if(parent.up.TOTALS > 1000) parent.up.TOTALS=1000; parent.down.right.innerHTML=parent.up.WRIGHTS; parent.down.total.innerHTML=parent.up.TOTALS; parent.left.GIF.src='./images/right.gif';myResult='Congratulation! ';} else { parent.up.WRONGS= parent.up.WRONGS + 1; parent.down.wrong.innerHTML=parent.up.WRONGS; parent.left.GIF.src='./images/wrong.gif';myResult='Sorry! ';} parent.side.MYRESULT.innerHTML=myResult; parent.up.ShowHint();""><font face=Verdana size=2><span ID=SELE>"
If (parent.up.DISAB<>"" and InStr(parent.up.Ans(parent.up.II), item1)>0) Then WriteRadio = WriteRadio & "<font color=red><b>"
WriteRadio = WriteRadio & item1 & ". </span><td valign=bottom><font face=Verdana size=2><span ID=ENGL>"
If (parent.up.DISAB<>"" and InStr(parent.up.Ans(parent.up.II), item1)>0) Then WriteRadio = WriteRadio & "<font color=red><b>"
WriteRadio = WriteRadio & english & "</span></tr>"
End Function
Function WriteChkbx(ByVal j, item1, ByVal english)
If InStr(parent.up.Usr(parent.up.II), item1) > 0 Then
strChecked = "CHECKED"
Else
strChecked = ""
End If
WriteChkbx = "<tr valign=top><td valign=top><input type=checkbox name=myChkbx " & strChecked & " value='" & item1 & "' " & parent.up.DISAB & " onClick=""if(myChkbx(" & j & "
.checked && parent.up.Usr(parent.up.II).indexOf(myChkbx(" & j & ".value)<0){parent.up.Usr(parent.up.II) = parent.up.Usr(parent.up.II) + '" & item1 & "';} if(! myChkbx(" & j & ".checked && parent.up.Usr(parent.up.II).indexOf(myChkbx(" & j & ".value)>=0){parent.up.Usr(parent.up.II) = parent.up.Usr(parent.up.II).slice(0,parent.up.Usr(parent.up.II).indexOf('" & item1 & "')) + parent.up.Usr(parent.up.II).slice(parent.up.Usr(parent.up.II).indexOf('" & item1 & "')+1, parent.up.Usr(parent.up.II).length);} if(parent.up.Usr(parent.up.II).length==parent.up.Ans(parent.up.II).length) { parent.up.JJ=parent.up.JJ + '[' + parent.up.II + ']'; for(i=0;i<myChkbx.length;i++){myChkbx(i).disabled=true;} j=0; for(i=0;i<parent.up.Usr(parent.up.II).length;i++){ if (parent.up.Ans(parent.up.II).indexOf(parent.up.Usr(parent.up.II).slice(i,i+1))>=0){j=j+1;}} if (j==parent.up.Ans(parent.up.II).length) { parent.up.WRIGHTS= parent.up.WRIGHTS + 1; parent.up.TOTALS = parent.up.TOTALS + Math.ceil(1000/parent.up.MM); if(parent.up.TOTALS>1000)parent.up.TOTALS=1000; parent.down.right.innerHTML=parent.up.WRIGHTS; parent.down.total.innerHTML=parent.up.TOTALS; parent.left.GIF.src='./images/right.gif';myResult='Congratulation! ';} else { parent.up.WRONGS= parent.up.WRONGS + 1; parent.down.wrong.innerHTML=parent.up.WRONGS; parent.left.GIF.src='./images/wrong.gif';myResult='Sorry! ';} parent.side.MYRESULT.innerHTML=myResult; parent.up.ShowHint();}""><font face=Verdana size=2><span ID=SELE>"If (parent.up.DISAB<>"" and InStr(parent.up.Ans(parent.up.II), item1)>0) Then WriteChkbx = WriteChkbx & "<font color=red><b>"
WriteChkbx = WriteChkbx & item1 & ". </span><td valign=bottom><font face=Verdana size=2><span ID=ENGL>"
If (parent.up.DISAB<>"" and InStr(parent.up.Ans(parent.up.II), item1)>0) Then WriteChkbx = WriteChkbx & "<font color=red><b>"
WriteChkbx = WriteChkbx & english & "</span></tr>"
End Function
Sub WriteSide()
Dim HEAD, ITEMS, ansTmp
top.document.title="Item " & parent.up.II & " (" & Left(top.hid.AA,1) & parent.up.S(parent.up.II) & "
of " & parent.up.MM & " [" & Left(top.hid.AA, Len(top.hid.AA)-4) & "]"HEAD = "<HTML><BODY BGCOLOR=white leftmargin=0 topmargin=0 rightmargin=0>" &_
"<table border=0 cellspacing=10 cellpadding=0 width=100%><tr><td width=3%><td width=97%>" &_
"<font face='Verdana' size=2>"
SUBJ = parent.up.Subject(parent.up.II)
ITEMS = ""
If Len(parent.up.Ans(parent.up.II)) > 1 Then
ansTmp = join(split(parent.up.Ans(parent.up.II), ","
, ""ansTmp = join(split(ansTmp, " "
, ""parent.down.numbers.innerHTML="Select <font color=blue>" & Len(ansTmp) & "</font> correct answers."
Else
parent.down.numbers.innerHTML="Select the best answer."
End If
For j = 1 to parent.up.MAXIMJ
If parent.up.Body(parent.up.II, j) <> "" Then
If Len(parent.up.Ans(parent.up.II)) > 1 Then
ITEMS = ITEMS & WriteChkbx(j-1, parent.up.Opti(parent.up.II,j), parent.up.Body(parent.up.II, j))
Else
ITEMS = ITEMS & WriteRadio(parent.up.Opti(parent.up.II,j), parent.up.Body(parent.up.II, j))
End If
ELSE
Exit For
End If
Next
TAIL = "<tr><td><td><font size=4 face=Verdana color=blue><b><span ID=MYRESULT></span></b></font><span ID=COMM>"
If (parent.up.DISAB <> ""
Then TAIL = TAIL & "<font face=Verdana color=red size=2><b>Answer: " & parent.up.Ans(parent.up.II) & "</font><br><font size=2 face=Verdana color=DarkBlue><b>" & parent.up.Desc(parent.up.II)TAIL = TAIL & " <br></span></tr></table></body></html><span ID=SELE></span><span ID=ENGL></span><input type=hidden name=myChkbx>"
document.write HEAD & SUBJ & "<P>" & ITEMS & TAIL
If (InStr(parent.up.JJ, "[" & parent.up.II & "]"
>0) Thenparent.up.ShowHint()
End If
End Sub
Sub WriteDown()
DOWN = "<html><head></head>" &_
"<BODY background='./images/bg1.gif' leftmargin=0 topmargin=0 rightmargin=0>" &_
"<table border=0 cellspacing=0 cellpadding=0><tr><td width=230><font face=Verdana style='font-size:16px'><nobr><b> <span name='numbers' ID='numbers'></span><td><font face=Verdana style='font-size:16px' color=black><b><nobr>Correct: <font color=blue><span ID='right'>0</span></font> , Incorrect: <font color=red><span ID='wrong'>0</span></font> , Your Score: <font color=blue><span ID='total'>0</span></font>/1000</tr></table>" &_
"<center><table border=0 width=96%>" &_
"<tr>" &_
"<td><font face=Verdana style='font-size:12px'><button name=nextt onClick=""parent.side.location.href='Trandumper.htm?1'"" disabled> <font style='font-size:12px'><b>" &_
"<u>N</u>ext </font></button>" &_
"<td><font face=Verdana style='font-size:12px'><button name=prev onClick=""parent.side.location.href='Trandumper.htm?2'"" disabled> <font style='font-size:12px'><b><u>P</u>revious</b> </font></button>" &_
"<td><font face=Verdana style='font-size:12px'><button name=answ onClick=""if(parent.up.JJ.indexOf('['+parent.up.II+']')<0){ parent.up.JJ=parent.up.JJ + '[' + parent.up.II + ']'; parent.up.WRONGS= parent.up.WRONGS + 1; parent.down.wrong.innerHTML=parent.up.WRONGS; } parent.up.ShowHint();"" disabled> <font style='font-size:12px'>" &_
"<b><u>A</u>nswer</b> </button>" &_
"<td><font face=Verdana style='font-size:12px'><button disabled name=review onClick=""parent.side.location.href='Trandumper.htm?review'""> <font style='font-size:12px'>" &_
"<b><u>R</u>eview</b> </button>" &_
"<td align=right><font face=Verdana style='font-size:12px'><button name=exitt onClick=""if(confirm('Are you sure to quit this exam?')){ top.hid.answermode=0;parent.location.href='Trandumper.htm?second';}""> <font style='font-size:12px'>" &_
"<b><u>E</u>xit</b> </button>" &_
"</table></body></html>"
document.write DOWN
End Sub
Function ChkAnswer(ITEM)
Dim j, i
j=0
For i=1 To Len(parent.up.Usr(ITEM))
If (InStr(parent.up.Ans(ITEM), Mid(parent.up.Usr(ITEM),i,1)) >0) Then
j=j+1
End If
Next
If (j=Len(parent.up.Ans(ITEM))) Then
ChkAnswer = True
Else
ChkAnswer = False
End If
End Function
Sub SaveWrong()
Dim fs, a, tmpStr
Dim i, j
ForAppending = 8
TristateFalse = 0
i = 0
j = 0
Set fs=CreateObject("Scripting.FileSystemObject"
If Not fs.FileExists(top.hid.FOLDER & parent.side.WRONG.value) Then
Set a = fs.CreateTextFile(top.hid.FOLDER & parent.side.WRONG.value, True)
SaveType = "Saved !"
Else
Set a = fs.OpenTextFile(top.hid.FOLDER & parent.side.WRONG.value, ForAppending,TristateFalse)
SaveType = "Appended !"
End If
For i = 1 To parent.up.MM
If (InStr(parent.up.JJ, "[" & i & "]"
> 0) ThenIf (Not ChkAnswer(i)) Then
tmpStr=parent.up.Subject(i)
tmpStr=Join(Split(tmpStr,"<BR>"
,Chr(13) & Chr(10))a.WriteLine i & ". (" & Left(top.hid.AA,1) & parent.up.S(i) & "
" & tmpStrFor j = 1 To MAXIMJ
If parent.up.Opti(i,j) <> "" Then
a.WriteLine parent.up.Opti(i,j) & ". " & parent.up.Body(i,j)
Else
Exit For
End If
Next
a.WriteLine ""
a.WriteLine "Answer: " & parent.up.Ans(i)
tmpStr=parent.up.Desc(i)
tmpStr=Join(Split(tmpStr,"<BR>"
,Chr(13) & Chr(10))a.WriteLine tmpStr
a.WriteLine ""
a.WriteLine ""
End If
End If
Next
a.Close
MsgBox parent.side.WRONG.value & " has " & SaveType
End Sub
</script>
</html>
Any Qs please email me at info@trandumper.com
thx a lot
