Skip to main content

AccessTr.neT


metinde belli kelimeleri bulup değiştirmek

metinde belli kelimeleri bulup değiştirmek

Çözüldü #1
iyi günler
bir metnimiz var bazen
(((Metin1x * Metin2x) + Metin3x) / Metin6x) - Metin5x - Metin4x
bazen
(Metin1x + Metin2x + Metin3x) * ((Metin4x / Metin6x) - Metin5x)
bazen
(((Metin1x / Metin6x) + Metin3x) * Metin4x) + Metin5x + Metin2x
bazen daha farklı 245 şekilden biri olabiliyor
yapmak istediğim mesela 10,20,30,40,50,60 sayılarını sırasıyla
metin1,metin2,metin3,metin4,metin5,metin6 yazılrıyla değiştrmek
mesela birinci formülde
(((Metin1x * Metin2x) + Metin3x) / Metin6x) - Metin5x - Metin4x
sayıları koyunca
(((10 * 20) + 30) / 60) - 50 - 40
yazacak
işlemin sonucunu değilde metin olarak
(((10 * 20) + 30) / 60) - 50 - 40
yazacak
üçüncü formul olursa
(((Metin1x / Metin6x) + Metin3x) * Metin4x) + Metin5x + Metin2x
yerine
(((10 / 60) + 30) * 40) + 50 + 20
yazacak
şöyle olurmu diye düşünüyorum
245 farklı formul olduğuna göre
önce formuldeki metin1 kelimesini bulsun sonra 10 ile değiştirsin
sonra formuldeki metin2 kelimesini bulsun sonra 20 ile değiştirsin
...
...
eklediğim örnekde
form1 deki liste0 daki metinlerden seçili olan metindeki
metin1,metin2,metin3,metin4,metin5,metin6 yazılrıyla
liste2 deki sayıların yerini değiştirmek
yani liste0 da ilk satır ve liste2 deki ilk satır seçildiyse sonuç şöyle olmalı
(4 + 5 + 50) * 9 + 4 + 4
liste0 da ilk satır ve liste2 deki ikinci satır seçildiyse sonuç şöyle olmalı
(5 + 5 + 9) * 2 + 70 + 5
liste0 da ilk satır ve liste2 deki üçüncü satır seçildiyse sonuç şöyle olmalı
(4 + 6 + 6) * 3 + 40 + 5
olmalı
yani listeo da seçili metindeki metin1-6 yazıların yerine liste2 deki sayıları yerleştirecek
.rar metinde değişiklik.rar (Dosya Boyutu: 122,68 KB | İndirme Sayısı: 4)
@benbendedeilem
Son Düzenleme: 23/08/2010, 04:06, Düzenleyen: accessman.
Cevapla
Çözüldü #2
Sayın accessman;
İnceleyiniz.
Kolay gelsin...
.zip metinde_değiş[email protected] (Dosya Boyutu: 140,75 KB | İndirme Sayısı: 34)
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #3
tamda istediğim gibi
çok teşekkürler
bu kadar kötü anlatımlı soruya
bukadar hızlı ve harika bir cevap
ellerinize sağlık
@benbendedeilem
Cevapla
Çözüldü #4
Arkadaslar,
Bende buldu formunu actigim zaman;

a- sq cbuldu ve sq cliste1 bulunamadigi,
b- saat2 formunun bulunamadigi,
c- frmsystray formunun bulunamadigi,
ve sonra da kod pnceresi acilarak

Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
' kronometre durdurur
TotalElapsedMilliSec = TotalElapsedMilliSec + _
(GetTickCount() - StartTickCount)
Me.TimerInterval = 0
'--------------------------------

' kronometre sýfýrlar
TotalElapsedMilliSec = 0
Me.txtSüre = "00:00:00"
'------------------
End Sub

cikmaktadir.

Benim referanslarda mi sorun var acaba. Neden bu hatalari aliyor olabilirim.

Selamlar
İrtifâ-ı kadr için tevâzu lazım Âdem'e, Şemsi gör kim sâyesin salmış ayaklar altına. Hersekli Arif Hikmet

Subco, 09-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #5
Sayın Kur@al;

Günaydın ve iyi haftalar.. Hocam her şey gönlünüzün güzelliği gibi olsun..

Harika bir çözüm...

Sevgi ve serinlikler...
Cevapla
Çözüldü #6
sn.subco
eklediğim kısım asıl programın sadece bir kısmı
@benbendedeilem
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da