split()
token=wpLJXBWvloRJFKWY7UhAWSAJT4fHOW4dzLniQSkYRuTtvrq7rbugLvc%2f8FI%3d
chart=dLmvQiUSZQwaFHcfu1seUlOjAoKNfqEJyTF%2bRvkgv3mpHJynG3P5S1VjjTpPwMSJPLfDNTLbE0i8vdDU
Dim WordArray,WordArray1 WordArray=Split(TheUrl,"?") WordArray=Split(WordArray(1),"&") 'Get two parameter expression WordArray1 = Split(WordArray(0),"=") token = WordArray1(1) WordArray1 = Split(WordArray(1),"=") chart = WordArray1(1)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)