Skip to main content

AccessTr.neT


replace komutu

replace komutu

Çözüldü #9
Metin0 isminde bir metin kutusu ve buton ekleyin forma. Butonun tıklanma olayına aşağıdaki kodu yapıştırın.
Kod:
Dim sonuc As String
Dim nerde As Integer
Dim oncesi As String

    nerde = InStr(1, Metin0, "+", vbTextCompare) ' ilk + nın nerede kaçıncı sırada olduğunu bulalım

    oncesi = Left(Metin0, nerde) ' İlk + ya kadar olan yazıları/bölümü oncesi değişkenine atayalım

    sonuc = Replace(Metin0, "+", "-", nerde + 1, 1, vbTextCompare) ' Metin kutusunda ilk + nın pozisyonundan sonraki + değiştirelim.

    MsgBox oncesi & sonuc ' iki değişkeni birleştirerek tam metni alalım

AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
replace komutu - Yazar: accessman - 26/08/2010, 15:38
Cvp: replace komutu - Yazar: alpeki99 - 26/08/2010, 15:53
Cvp: replace komutu - Yazar: accessman - 26/08/2010, 16:12
Cvp: replace komutu - Yazar: alpeki99 - 26/08/2010, 16:30
Cvp: replace komutu - Yazar: accessman - 26/08/2010, 16:39
Cvp: replace komutu - Yazar: alpeki99 - 26/08/2010, 16:52
Cvp: replace komutu - Yazar: accessman - 26/08/2010, 17:07
Cvp: replace komutu - Yazar: accessman - 27/08/2010, 08:07
Cvp: replace komutu - Yazar: alpeki99 - 27/08/2010, 11:43
Cvp: replace komutu - Yazar: accessman - 27/08/2010, 12:40
Cvp: replace komutu - Yazar: accessman - 01/09/2010, 03:03
Cvp: replace komutu - Yazar: POWER - 01/09/2010, 11:25
Cvp: replace komutu - Yazar: Seruz - 01/09/2010, 11:49
Cvp: replace komutu - Yazar: accessman - 01/09/2010, 12:13
Cvp: replace komutu - Yazar: alpeki99 - 01/09/2010, 17:59
Cvp: replace komutu - Yazar: accessman - 06/09/2010, 16:55
Task