Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Identificare font

Samsung Galaxy A35

Sfat pentru aprinderea automata a...

Masina de copt paine - pareri
 Cum reactivez Google Maps?

Conectare tableta X220la Tv

Femeile tinere nu mai vor sa munc...

La mulți ani @un_dac!
 La multi ani de Sfantul Gheorghe&...

Job - Facultate sau certificare

Deadpool & Wolverine (2023)

sistem hibrid eoliana + panouri +...
 Outlook e muta pe Android

Constructie Mun. Iasi. Casa P+1.

Cum mai rezolvati cu chiriasii ra...

Tastatura si mouse cu baterie 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,235
  • Î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

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