# Mid Function Implementation Without Using String Functions

Few days back some of my reader asked me about mid function. He wanted to know how it works and can we implement a function similar to mid.

Yes ...we do. I tried to implement the mid function here. What i have done is

1.transfer the string to Array

2.then take the size of the array

3.k is the counter to check if it is equal to strtcut that is which position i need to cut and length is the variable to understand till how much i need to cut.

Yes ...we do. I tried to implement the mid function here. What i have done is

1.transfer the string to Array

2.then take the size of the array

3.k is the counter to check if it is equal to strtcut that is which position i need to cut and length is the variable to understand till how much i need to cut.

Sub Macro1() Call midexplained("Animesh", 2, 2) 'same as mid("Animesh",2,2) End Sub Function midexplained(inputq, strtcut, length) Dim bText() As Byte Dim j As Integer j = 0 Dim k As Integer k = 0 Dim a(999) Dim n As String Dim MyString As String: MyString = inputq bText = MyString For i = 0 To UBound(bText) - 1 If (bText(i) = 0) Then Else a(j) = Chr(bText(i)) j = j + 1 End If Next For k = 0 To UBound(a) - 1 If a(k) = "" Then ElseIf k + 1 >= strtcut And k < ((strtcut + length) - 1) Then n = n & a(k) Else End If Next MsgBox "value of n is " & trim(n) End FunctionThe output for both the variable is same.Please let me know if this conversion is ok. Also please let me know if there is any modification is required.

## Post a Comment