Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 136
  • Last Modified:

About string

Any expert who know Pascal...

I want to ask you what is the same function for string processing like in pascal called: Delete (String, StartPos, Count). Is there any function like that in VB?
if yes, please let me know.
if no, would you make that function for me?

As usual, need a guidance.

Best regards

Stinger
0
stinger_60284
Asked:
stinger_60284
  • 3
1 Solution
 
InteqamCommented:
wait


0
 
InteqamCommented:
insert 2 texts and two command buttons in a form , then paste the following:


Public Sub delete(strTemp As String, nStart As Integer, nCount As Integer)
    If nStart > Len(strTemp) Then
            'Even you return an error
        strTemp = "Error"
            'Or just return the same string
        'strTemp = strTemp
        Exit Sub
    End If
    nlong = nStart + nCount
    If nlong > Len(strTemp) Then
            'Even you return an error
        'strTemp = "Error"
        'Exit Function
            'or you just delete what you can
        nlong = Len(strTemp)
    End If
    strTemp = Left(strTemp, nStart - 1) + Right(strTemp, Len(strTemp) - nlong + 1)
   

End Sub

Private Sub Command1_Click()
Dim strT As String
strT = Text1.Text
delete strT, 10, 5
Text2.Text = strT
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Now enter the text you want to delete in text1 , then click command1 , the deleted text will be in text2 , the function will be called as delete(text1.text,10,5) , that means it will delete 5 characters from text1 , starting at position 10 ,
if you want to try again , click command2

0
 
stinger_60284Author Commented:
Thanks Inteqam!!!
0
 
InteqamCommented:
welcome any time
:0)

0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now