'Fetch the Data from Excel using ADODB class 

Set MyObj = createobject("adodb.connection")


MyObj.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=C:\Status.xls;Readonly=True"

Set MyDataObj = createobject("adodb.recordset")

MyDataObj.Open "select count(*) from [All_Mobile_Link$] where Status='Fail' ",MyObj

msgbox  MyDataObj(0)

Set MyDataObj = nothing
Set MyObj = nothing 

'Function to find the Number of time Each Char exist in the String

CoutChar("aaaabbbcccccc")

Function CoutChar(InpStr)
    For i = 1 To len(InpStr)
    Char=lcase(mid(InpStr,i,1))
    Select Case Char
     Case "a"
      A=A&"a"
     Case "b"
      B=B&"b"
     Case "c"
      C=C&"c"
     Case "d"
      D=D&"d"    
      
    End Select   
    Next
  
    msgbox "Number Of time a Exist="&" "&len(A)
    msgbox "Number Of time b Exist="&" "&len(B)
    msgbox "Number Of time c Exist="&" "&len(C)   
  
End Function

'Remove Repetative Char in a string where String has only two type of input e.g. 01010101010100000011111101011111 
'Find the number of time Repetative Char would come 

str = "01010101010100000011111101011111"
Count=0
For i = 1 to len(str)

a=mid(str,i,1)
b=mid(str,i+1,1)

If not(a=b) Then
temp=temp&a
else
Count=Count+1
End If

Next

msgbox temp
msgbox "Number Of Deletion Happen" &"="&Count

'Print Fibonacci Sequence Before the Given Number

INum = cint(inputbox("Enter The Number"))

F1=0
F2=1
Do
temp = temp&" "&F1
F3=F1+F2
F1=F2
F2=F3

Loop While F1<INum

msgbox temp 

'Find the Prime number before the given number  

INum = cint(inputbox("Enter The Number"))
For i=2 to INum
     count = 0
     j = 1
       Do while j<=i
       if i mod j = 0 Then
       count = count +1
        End If
        j=j+1
        Loop
    If count = 2 Then
    temp = temp&" "&i
    End if

  
Next
msgbox temp 

'Arrange the Number in sequence 


a = array(23,1,89,34,234,56,765,345,32,65,3)
For i=0 to ubound(a)-1
If a(i)>a(i+1) Then
    c=a(i+1)
    a(i+1)=a(i)
    a(i)=c
  
End If
  
Next
For j=0 to ubound(a)
temp =temp&" "&a(j)
  
Next
msgbox(temp)

'Verify that this string is  palindrome 

call fnStrPali("dalad")

Function fnStrPali(StrPali)
    str1 = strpali
    str2 = StrReverse(str1)
    If str1 = str2 Then
        msgbox "This is a palindrom"
        Else
        msgbox "This is not a palindrom"
    End If
End Function

'Remove the repetitive strings form a huge set of data in text file 


Set otext = createobject("scripting.filesystemobject")
set otxt= otext.OpenTextFile("C:\Users\psha64\Desktop\QTP_Algo\inactive.txt",1)
str = otxt.ReadAll
strarr = split(str," ")
strnum = ubound(strarr)
For i=0 to strnum-1
If not(instr(1,temp,strarr(i))>0) Then
    temp = temp&" "&strarr(i)
End If
Next

msgbox temp    

'Question : find the closest number from a random series of number 

Dim arr
arr = array(1,43,76,89,100,122,1876)
IntVal=cint(inputbox("Enter The number"))
arrSize=ubound(arr)

For i=0 to 6
If cint(arr(i))<IntVal and IntVal<cint(arr(i+1)) Then
    diffback=IntVal-arr(i)
    msgbox diffback
    difffow=arr(i+1)-IntVal
    msgbox difffow
    If diffback<difffow Then
        msgbox arr(i)
        Else
        If i+1>arrSize Then
            msgbox arr(arrSize)
            Else
            msgbox arr(i+1)          
        End If
      
    End If
End If

If i+1>=arrSize Then
    msgbox ("Come out of for loop")
    Exit for
End If

  
Next