Javascript/VBscript: inlezen textfile
Geplaatst: 22 jan 2004, 08:41
Hallo,
Ik heb een javascriptje gemaakt dat de text uit een <textarea> inleest en er dan de nodige bewerkingen op uitvoert en een html pagina genereert met het resultaat.
Het zou gemakkelijk zijn mocht ik de textarea kunnen laten opvullen door op een button te klikken die de file erin gaat plakken.
Ik heb wat vbscript gevonden om dit te doen:
het object voor de file/open dialog:
<object name = "CommonDialog"
classid="clsid:F9043C85-F6F2-101A-A3C9-08002B2F49FB">
<param name="DialogTitle" value="Select DivXviD list...">
<PARAM NAME="CancelError" VALUE="0">
<PARAM NAME="Filter" VALUE="Text Files (*.txt)|*.txt|All Files (*.*)|*.*">
</object>
en de vb code achter de button:
<script language=VBScript>
Sub BtnBrFiles_OnClick()
CommonDialog.ShowOpen()
readFile CommonDialog.Filename
End Sub
Sub readFile(strFileName)
Dim fso, f, str, all
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(strFileName, ForReading, 0)
Do While f.AtEndOfStream <> True
str = f.Readline
all = all & str & Chr(10)
Loop
movieList.List.value = all
End Sub
</script>
Dit werkt heel mooi wanneer ik de file lokaal op mijn C schijf test, wanneer ik het echter online test dan krijg ik een error:
Error: ActiveX component can't create object: 'Scripting.FileSystemObject'
Hoe kan ik dit fixen?
thx!
Ik heb een javascriptje gemaakt dat de text uit een <textarea> inleest en er dan de nodige bewerkingen op uitvoert en een html pagina genereert met het resultaat.
Het zou gemakkelijk zijn mocht ik de textarea kunnen laten opvullen door op een button te klikken die de file erin gaat plakken.
Ik heb wat vbscript gevonden om dit te doen:
het object voor de file/open dialog:
<object name = "CommonDialog"
classid="clsid:F9043C85-F6F2-101A-A3C9-08002B2F49FB">
<param name="DialogTitle" value="Select DivXviD list...">
<PARAM NAME="CancelError" VALUE="0">
<PARAM NAME="Filter" VALUE="Text Files (*.txt)|*.txt|All Files (*.*)|*.*">
</object>
en de vb code achter de button:
<script language=VBScript>
Sub BtnBrFiles_OnClick()
CommonDialog.ShowOpen()
readFile CommonDialog.Filename
End Sub
Sub readFile(strFileName)
Dim fso, f, str, all
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(strFileName, ForReading, 0)
Do While f.AtEndOfStream <> True
str = f.Readline
all = all & str & Chr(10)
Loop
movieList.List.value = all
End Sub
</script>
Dit werkt heel mooi wanneer ik de file lokaal op mijn C schijf test, wanneer ik het echter online test dan krijg ik een error:
Error: ActiveX component can't create object: 'Scripting.FileSystemObject'
Hoe kan ik dit fixen?
thx!