Selectare text din string

#1
ovi_boss2009

Posted 06 March 2012 - 16:20

New Member

Grup: Members
Posts: 20
Înscris: 28.12.2008

Salut
Am si eu nevoie de un cod care de ex din textbox1 la apasarea lui button1 sa imi dea in textbox2 textul din textbox1 care este asociat intre 2 semne.
Sa zicem ca in textbox1 introduc 1234(textlaintamplare:567 si as dori sa imi ia dintre ( si : textul.

Multumesc

Back to top

#2
tatarduka

Posted 06 March 2012 - 16:31

Senior Member

Grup: Senior Members
Posts: 3,041
Înscris: 30.10.2006

Si daca introduci: "1234(textdajsd(d:al(djlada::567" ce trebuie sa ia?

Back to top

#3
ovi_boss2009

Posted 06 March 2012 - 16:36

New Member

Grup: Members
Posts: 20
Înscris: 28.12.2008

ce este aflat intre "(" si ":"

Back to top

#4
horohoro

Posted 31 May 2012 - 16:21

Junior Member

Grup: Members
Posts: 103
Înscris: 11.02.2010

ovi_boss2009, on 6th March 2012, 17:36, said:

ce este aflat intre "(" si ":"

Functia Split() din VB te ajuta sa accesezi bucati din propozitii folosindu-te de un delimitator sau foloseste-o pe asta la tava:

'Returneaza un text aflat intr-e doua delimitatoare (functia returneaza 0 daca 'strDelim1 sau 'strDelim2 nu exista in parametrul strText)

Public Function TextExplodeaza(byval strText as string, strDelim1 as string, strDelim2 as string) as string
  dim buf as string
  
  if instr(1, strText, strDelim1) > 0 and instr(1, strText, strDelim2) > 0 then
	buf = split(strText, strDelim1)(1)
	TextExplodeaza = split(buf, strDelim2)(0)
  else
	TextExplodeaza = 0
  endif
End Function


Private Sub Command1_Click()
	Dim cuvant As String
	cuvant = TextExplodeaza("1234(textlaintamplare:567", "(", ":")
	If Not IsNumeric(cuvant) Then MsgBox cuvant 'returneaza "textlaintamplare"
End Sub

Edited by horohoro, 31 May 2012 - 16:27.

Back to top

Anunturi

Bun venit pe Forumul Softpedia!

Selectare text din string

#1 ovi_boss2009 Posted 06 March 2012 - 16:20

#2 tatarduka Posted 06 March 2012 - 16:31

#3 ovi_boss2009 Posted 06 March 2012 - 16:36

#4 horohoro Posted 31 May 2012 - 16:21

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
ovi_boss2009

Posted 06 March 2012 - 16:20

#2
tatarduka

Posted 06 March 2012 - 16:31

#3
ovi_boss2009

Posted 06 March 2012 - 16:36

#4
horohoro

Posted 31 May 2012 - 16:21