Enhancements & Suggestions - Trandumper 4.0.1 jvandel - Wed Apr 26, 2006 7:33 pm Post subject: Trandumper 4.0.1
I am using the save wrong answers to text feature and it is not putting a space before the next question. This is causing trandumper to see all as one big question.
Is this something I am doing wrong or is it a bug.
jvandel - Sun Apr 30, 2006 3:30 am Post subject:
I have found trandumper needs a writeline put in after the loop in the subroutine that writes the file to space the questions. See the last line below.
If (Not ChkAnswer(i)) Then
tmpStr=parent.up.Subject(i)
tmpStr=Join(Split(tmpStr,"<br/>"), "")
tmpStr=Replace(tmpStr, vbCrLf & " ", vbCrLf)
If Right(tmpStr, Len(vbCrLf & vbCrLf)) = vbCrLf & vbCrLf Then tmpStr = Left(tmpStr, Len(tmpStr)-Len(vbCrLf))
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) & ". " & Trim(parent.up.Body(i,j))
Else
Exit For
End If
Next
a.WriteLine ""
a.WriteLine "Answer: " & parent.up.Ans(i)
If parent.up.randomans = 0 then
tmpStr=parent.up.Desc(i)
tmpStr=Join(Split(tmpStr,"<br/>"),"")
tmpStr=Replace(tmpStr, vbCrLf & " ", vbCrLf)
If Right(tmpStr, Len(vbCrLf & vbCrLf)) = vbCrLf & vbCrLf Then tmpStr = Left(tmpStr, Len(tmpStr)-Len(vbCrLf))
a.WriteLine tmpStr
End If
a.WriteLine ""