Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
De ce TVR nu mai emite pe DVB T2?

Vrem sa ne reparam/infrumusetam p...

Ce rasa de catei sunt?

Sfat mașina sh
 Ledvance nu mai funcționeaza...

Sa bagam latina, religia la bac -...

Știri și mișcari c...

O chestiune despre "legendara...
 ACM lipsa - Motan Start BT

Sfat cumparare masina noua

Ford Mondeo IV 2.0 TDCI

S10+ amprenta cu folie dubla
 FED (US) creste din nou dobanda c...

Tubulatura ventilatie 75 prin arm...

Patriotismul economic, subventii ...

MacBook Air 2017 problema la bate...
 

Functia Replace()

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

#1
andreigherghe

andreigherghe

    Think different

  • Grup: Senior Members
  • Posts: 2,034
  • Înscris: 27.12.2007
Deci, as vrea sa fac un script de genul:
Intr-un richtextbox (RichTextBox1) sa scriu o propozitie (eg: Ce facetzi?) . Cand apas pe un buton (Button1), scriptul sa stie sa inlocuiasca acel tz, si sa-l faca ț. M-am jucat putin cu functia Replace(), dar fara rezultate.
Imi dati un exemplu de astfel de script? :rolleyes:

Edit:
Imi pare rau, am gasit deja solutia :D . Rog un moderator sa inchida/stearga topicul

Edited by andreigherghe, 08 September 2009 - 00:19.


#2
alex2300

alex2300

    Junior Member

  • Grup: Members
  • Posts: 226
  • Înscris: 16.04.2009
Cum ai reusit sa folosesi functia? Mie imi da eroare. Ceva in genul Replace is a namesapce ...

#3
andreigherghe

andreigherghe

    Think different

  • Grup: Senior Members
  • Posts: 2,034
  • Înscris: 27.12.2007
If InStr(1, RichTextBox1.Text, "krd") > 0 Then
                Dim txt
                txt = RichTextBox1.Text
                RichTextBox1.Text = Replace(txt, "krd", "cred")
End If

#4
dani.user

dani.user

    Guru Member

  • Grup: Senior Members
  • Posts: 29,514
  • Înscris: 24.02.2007
Mai pe scurt:

RichTextBox1.Text = Replace(RichTextBox1.Text, "krd", "cred")

#5
alex2300

alex2300

    Junior Member

  • Grup: Members
  • Posts: 226
  • Înscris: 16.04.2009

View Postandreigherghe, on 19th September 2009, 14:30, said:

If InStr(1, RichTextBox1.Text, "krd") > 0 Then
                Dim txt
                txt = RichTextBox1.Text
                RichTextBox1.Text = Replace(txt, "krd", "cred")
End If

dar daca vreau sa fac mai mmulte inlocuiri?
De exemplu vreau ca 3 sa il faca salut, 4 - ce faci si altele. Daca bag asta inclocuieste doar ultima fraza bagata cu replace.

#6
msmihai

msmihai

    Senior Member

  • Grup: Senior Members
  • Posts: 5,259
  • Înscris: 02.09.2006

View Postalex2300, on 19th September 2009, 16:54, said:

dar daca vreau sa fac mai mmulte inlocuiri?
De exemplu vreau ca 3 sa il faca salut, 4 - ce faci si altele. Daca bag asta inclocuieste doar ultima fraza bagata cu replace.

apelezi functia de mai multe ori pe acelasi text :frust:

#7
freshmeat

freshmeat

    Junior Member

  • Grup: Members
  • Posts: 113
  • Înscris: 10.04.2007
Cred ca asta te ajuta .. vezi atasament ...

Attached Files



Anunturi

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

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