j=1
k=1
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.Workbooks.Add
strs="RavIkiranC"
objExcel.Cells(1, 1).Value = "CapitalLetters"
objExcel.Cells(1, 2).Value = "smallLetters"
for i=1 to len(strs)
strcar=mid(strs,i,1)
if asc(strcar)>=65 and asc(strcar)<=91 then
j=j+1
objExcel.Cells(j, 1).Value = strcar
Else
k=k+1
objExcel.Cells(k, 2).Value = strcar
end if
next
objExcel.ActiveWorkbook.SaveAs ("C:\test\excelvbscript.xls")
objExcel.Quit
On Thu, Aug 4, 2016 at 9:58 PM, pradeep <[email protected]>
wrote:
> VB Script to separate upper & small Letters from a string and
>
> store in excel
>
> --
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>
> ---
> You received this message because you are subscribed to the Google Groups
> "QTP - HP Quick Test Professional - Automated Software Testing" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to [email protected].
> For more options, visit https://groups.google.com/d/optout.
>
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
