Subscript out of range
Hej.Nu troede jeg lige jeg havde den, men så kommer der en fejl: "Subscript out of range".
Er der nogen der kan se hvad der skulle være galt?
------------------------------------
tmp = ReadFileText("c:\test.txt")
tmp1 = ReadFileText("c:\overskrifter.txt")
tmpArr = Split(tmp, vbCrLf, , vbTextCompare)
tmpArr1 = Split(tmp1, vbCrLf, , vbTextCompare)
i = getArrLength(tmpArr) + 1
Open "c:\info.htm" For Output As #1
Print #1, "<html>" & _
"<head>" & _
"<title>Meddelelser</title>" & _
"</head>" & _
"<body bgcolor='#CCCCCC'>" & _
"<div align='center'>" & _
"<p> </p>" & _
"<p>De seneste 10 meddelelser:</p>" & _
"<table width='26%' height='495' border='0'><tr>" & _
"<td><a href='\\server1\intranet\minet\meddelelser\"; tmpArr(i - 2); ".htm'>"; tmpArr1(tmpArr(i - 2)); "</a></td></tr><tr>" & _
"<td><a href='\\server1\intranet\minet\meddelelser\"; tmpArr(i - 3); ".htm'>"; tmpArr1(tmpArr(i - 3)); "</a></td></tr><tr>" & _
"<td><a href='\\server1\intranet\minet\meddelelser\"; tmpArr(i - 4); ".htm'>"; tmpArr1(tmpArr(i - 4)); "</a></td></tr><tr>" & _
"<td><a href='\\server1\intranet\minet\meddelelser\"; tmpArr(i - 5); ".htm'>"; tmpArr1(tmpArr(i - 5)); "</a></td></tr><tr>" & _
"<td><a href='\\server1\intranet\minet\meddelelser\"; tmpArr(i - 6); ".htm'>"; tmpArr1(tmpArr(i - 6)); "</a></td></tr><tr>" & _
"<td><a href='\\server1\intranet\minet\meddelelser\"; tmpArr(i - 7); ".htm'>"; tmpArr1(tmpArr(i - 7)); "</a></td></tr><tr>" & _
"<td><a href='\\server1\intranet\minet\meddelelser\"; tmpArr(i - 8); ".htm'>"; tmpArr1(tmpArr(i - 8)); "</a></td></tr><tr>" & _
"<td><a href='\\server1\intranet\minet\meddelelser\"; tmpArr(i - 9); ".htm'>"; tmpArr1(tmpArr(i - 9)); "</a></td></tr><tr>" & _
"<td><a href='\\server1\intranet\minet\meddelelser\"; tmpArr(i - 10); ".htm'>"; tmpArr1(tmpArr(i - 10)); "</a></td></tr><tr>" & _
"<td><a href='\\server1\intranet\minet\meddelelser\"; tmpArr(i - 11); ".htm'>"; tmpArr1(tmpArr(i - 11)); "</a></td></tr></table>" & _
"<p> </p></div></body></html>"
Close #1
---------------------------------------
der er Dim'et hvad der skal dimmes!
Jeg håber I ved hvad det betyder!
Klaaes
