https://wiki.plecko.hr/ 2026-04-15T10:55:43+00:00 https://wiki.plecko.hr/ https://wiki.plecko.hr/lib/tpl/bootstrap3/images/favicon.ico text/html 2019-10-31T09:05:00+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.plecko.hr/doku.php?id=development:vbs:random_string&rev=1572509100&do=diff VBScript: Random string Function RndStr( ByVal intLen ) Dim tmp Dim intRnd Const constCHARS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!#%&/()=?*+'\<>;:_,.-" Randomize intRnd=Len(constCHARS)+1 For i = 1 to intLen do until intRnd<Len(constCHARS)+1 and intRnd>0 intRnd = int(Rnd*100) loop tmp = tmp & Mid( constCHARS, intRnd ,1 ) intRnd=Len(constCHARS)+1 Next RndStr = tmp End Function text/html 2019-10-31T09:05:00+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.plecko.hr/doku.php?id=development:vbs:sr_enc&rev=1572509100&do=diff VisualBasic .net streamreader encoding Reading text files that don't have default encoding (your system default) can be a pain. Here is how you do it - with full list of encodings Dim SR As System.IO.StreamReader = New StreamReader("in.txt", Encoding.GetEncoding("ibm852")) Dim strtmp As String While Not SR.EndOfStream strtmp = SR.ReadLine() 'Do something with this line End While SR.Close() SR.Dispose() SR = Nothing text/html 2019-10-31T09:05:00+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.plecko.hr/doku.php?id=development:vbs:start&rev=1572509100&do=diff VBS * VBScript: Random string * VisualBasic .net streamreader encoding