Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Receptie Eutelsat 5 West. Este po...

Poti receptiona semnal de la mai ...

Cabluri HDMI 2.1 de 4m-5m care sa...

zoom comparat cu Google Meet
 Monitor/Display wireless?

Pornire greoaie dupa cateva zile ...

De la un proiect scris in python ...

Audi A4 B9 quattro 190 CP!
 Tepari la pariuri pe TikTok

Banca imi cere justificativ fondu...

schema pcb ELECTRA CIM150 PAS

Probleme stomac
 Sfat achizitie bicicleta oras

Canalele Sky Showtime 1 și S...

Recomandare anvelope lexus rx

Extindere rețea wireless int...
 

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: 30,228
  • Î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,271
  • Î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