Hi there,
In converting to HS3, I've managed to hit my final snag.
This particular script seems very straightforward, and that the only thing to "upgrade" it is to change the hs.stringitem function.
A quick function later, and a find/replace should fix it?
Here's the really weird part.
I add this function:
Function splititem(ByVal Str As String, ByVal strcount As Integer, Byval Separ As String) As String
Try
Dim Result() As String
result = str.Split(separ)
Return Result(strcount-1)
Catch
Return ""
End Try
End Function
everything hs.stringitem is now splititem.
Problem is that it just won't run. No errors, it doesn't even get as far as trying to execute the script, and hence I can't debug what HS thinks is wrong.
If I comment out all lines that use the function, then it will actually run, but of course will complain about everything being broken by those lines being missing....
Any ideas?
In converting to HS3, I've managed to hit my final snag.
This particular script seems very straightforward, and that the only thing to "upgrade" it is to change the hs.stringitem function.
A quick function later, and a find/replace should fix it?
Here's the really weird part.
I add this function:
Function splititem(ByVal Str As String, ByVal strcount As Integer, Byval Separ As String) As String
Try
Dim Result() As String
result = str.Split(separ)
Return Result(strcount-1)
Catch
Return ""
End Try
End Function
everything hs.stringitem is now splititem.
Problem is that it just won't run. No errors, it doesn't even get as far as trying to execute the script, and hence I can't debug what HS thinks is wrong.
If I comment out all lines that use the function, then it will actually run, but of course will complain about everything being broken by those lines being missing....
Any ideas?
Comment