by Extrinsik » Sun Nov 26, 2017 10:37 am
by trixmoto » Mon Jul 21, 2014 10:57 am
by serendip1959 » Mon Jul 21, 2014 9:47 am
by trixmoto » Tue Jul 01, 2014 4:50 pm
by serendip1959 » Tue Jul 01, 2014 3:49 am
Code: Select all
Function Decode(fixhex) Dim s1,s2,s3,d1,d2,b1,b2,b3 Dim i : i = InStr(fixhex,"%") While (i > 0) s1 = Mid(fixhex,i+1,2) If IsHex(s1) Then d1 = HexToDec(s1) s1 = Left(fixhex,i-1) s2 = Mid(fixhex,i+4,2) If (Mid(fixhex,i+3,1) = "%") And (IsHex(s2)) Then d2 = HexToDec(s2) b1 = DecToBin(d1) b2 = DecToBin(d2) If (Left(b1,3) = "110") And (Left(b2,2) = "10") Then b3 = Mid(b1,4)&Mid(b2,3) s2 = Chrw(BinToDec(b3)) s3 = Mid(fixhex,i+6) Else s2 = Chrw(d1) s3 = Mid(fixhex,i+3) End If Else s2 = Chr(d1) s3 = Mid(fixhex,i+3) End If fixhex = s1&s2&s3 End If i = InStr(i+1,fixhex,"%") Wend Decode=Replace(fixhex,"'","'") End Function
by trixmoto » Sun Jun 29, 2014 5:15 pm
by serendip1959 » Sun Jun 29, 2014 12:43 pm
Dim objRE : Set objRE = New RegExp objre.Pattern="<string>([a-zA-Z\n\r\.\\0-99)\W])*<\/string>"
If InStr(str,"<string>") > 0 And Not objRE.Test(str) Then 'string value that has breaks in it Do Until objRE.Test(str) str = str & txt.ReadLine 'add next line until string terminated correctly with closing tag Loop End if
by trixmoto » Mon May 19, 2014 6:44 pm
by BeShakey » Mon May 12, 2014 2:24 am
by trixmoto » Sun Sep 29, 2013 4:23 pm
by Tyko » Mon Sep 23, 2013 4:57 pm
by trixmoto » Sun Sep 01, 2013 3:29 pm
by bdb484 » Tue Aug 27, 2013 12:27 am
by lukesed » Fri Feb 08, 2013 4:42 am
by pioniergeist » Thu Feb 23, 2012 10:52 am
Top
Powered by phpBB® Forum Software © phpBB Limited
Theme based on Absolution by PlanetStyles