HTDark | Underground Hacking Forum and Cybersecurity Community
  • Earn real money by being active: Hello Guest, earn real money by simply being active on the forum — post quality content, get reactions, and help the community. Once you reach the minimum credit amount, you’ll be able to withdraw your balance directly. Learn how it works.

Visual Basic Split Simple

Status
Not open for further replies.
dEEpEst

dEEpEst

☣☣ In The Depths ☣☣
Staff member
Administrator
Super Moderator
Hacker
Specter
Crawler
Shadow
Joined
Mar 29, 2018
Messages
13,861
Solutions
4
Reputation
32
Reaction score
45,552
Points
1,813
Credits
55,350
‎7 Years of Service‎
 
56%
[HIDE-THANKS]

Code: 
>Private Function Split(cadena, delm1, delm2 As String) As String
 Dim pos1, pos2 As Integer
 Dim ext, sfinal As String
 
 sfinal = ""
 pos1 = InStr(cadena, delm1)

    
 If pos1  0 Then
   ext = Mid(cadena, pos1 + Len(delm1), Len(cadena) - Len(delm1))
   pos2 = InStr(ext, delm2)
   If pos2  0 Then
     sfinal = Mid(ext, 1, pos2 - 1)
   End If
 End If
 Delimitador = sfinal
 
End Function
[/HIDE-THANKS]

 
Status
Not open for further replies.
Back
Top