Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
SSD Crucial MX500 vs BX500

Teapa placa video

restart aleator

Apelul urca sus
 Este Calm Down melodia care place...

Auto 4000/4500 euro

100%packets lost pe Laptop dar nu...

Receptie AM doar pe jumatate din ...
 Inapoi in tara - in ce oras sa ma...

Care este cea mai calitativa tabl...

Laptop Dell sau recomandare Lapto...

M.Zuiko Digital 90mm F/3.5 macro
 Tehnologia DSL la Orange?

conectare navigație auto la ...

Care e pretul corect pe mp?!

Auto 200-250km/zi autostrada, fia...
 

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

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

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