metinde belli kelimeleri bulup değiştirmek

1 2
23/08/2010, 03:44

accessman

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
23/08/2010, 05:56

Kur@l

Sayın accessman;
İnceleyiniz.
Kolay gelsin...
23/08/2010, 08:14

accessman

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
23/08/2010, 08:35

Subco

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
23/08/2010, 08:38

assenucler

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...
23/08/2010, 09:49

accessman

sn.subco
eklediğim kısım asıl programın sadece bir kısmı
1 2