Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
La multi ani @A_Stere!

Rulou textil terasa

Situație ciudata siguran5...

Pagina web pentru verificare tele...
 Conectare multipla de pe acela...

Problema material CM 11

Senzatie arsursa picor

IP-urile care incep cu 45
 New Amsterdam - (Spitalul Bellevue)

Geotextil care sa retina cat mai ...

Port Forwarding Config - Luster T...

Cand se deschid toaletele din Par...
 Essilor Crizal?

Sony A6400 - Video

recomandari structura - sarcina m...

Voi aveți incredere in recen...
 

Selectare text din string

- - - - -
  • Please log in to reply
3 replies to this topic

#1
ovi_boss2009

ovi_boss2009

    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

#2
tatarduka

tatarduka

    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?

#3
ovi_boss2009

ovi_boss2009

    New Member

  • Grup: Members
  • Posts: 20
  • Înscris: 28.12.2008
ce este aflat intre "(" si ":"

#4
horohoro

horohoro

    Junior Member

  • Grup: Members
  • Posts: 103
  • Înscris: 11.02.2010

View Postovi_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.


Anunturi

Bun venit pe Forumul Softpedia!

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate