11-03-2019, 04:32 AM
(This post was last modified: 11-18-2019, 12:25 AM by By Mipatek.)
Netcad Dosyasında Türkçe Karakter Sorunu Çözümü İçin Kullanacağınız Makro:
PHP Code:
Sub Main
Şaban GÜL Tarafından Yapılmıştır
Dim i,z
Dim secimkumesi,obje
with Netcad
set secimkumesi = .newselectionset
set obje=.newobject
if secimkumesi.select("Değişecekleri Seçiniz",array()) then
for i=0 to secimkumesi.NE-1
z=secimkumesi.getselectedobject(i,obje)
obje.pname = replace(obje.pname,"Ãœ","Ü")
obje.pname = replace(obje.pname,"Å","Ş")
obje.pname = replace(obje.pname,"Ä","ğ")
obje.pname = replace(obje.pname,"Ç","Ç")
obje.pname = replace(obje.pname,"Ä°","İ")
obje.pname = replace(obje.pname,"Ö","Ö")
obje.pname = replace(obje.pname,"ü","ü")
obje.pname = replace(obje.pname,"ÅŸ","ş")
obje.pname = replace(obje.pname,"ÄŸ","ğ")
obje.pname = replace(obje.pname,"ç","ç")
obje.pname = replace(obje.pname,"ı","ı")
obje.pname = replace(obje.pname,"ö","ö")
obje.pname = replace(obje.pname,"Ÿ","")
obje.pname = replace(obje.pname,"б","ı")
obje.pname = replace(obje.pname,"Ğ°","İ")
obje.s = replace(obje.s,"Ãœ","Ü")
obje.s = replace(obje.s,"Å","Ş")
obje.s = replace(obje.s,"Ä","Ğ")
obje.s = replace(obje.s,"Ç","Ç")
obje.s = replace(obje.s,"Ä°","İ")
obje.s = replace(obje.s,"Ö","Ö")
obje.s = replace(obje.s,"ü","ü")
obje.s = replace(obje.s,"ÅŸ","ş")
obje.s = replace(obje.s,"ÄŸ","ğ")
obje.s = replace(obje.s,"ç","ç")
obje.s = replace(obje.s,"ı","ı")
obje.s = replace(obje.s,"ö","ö")
obje.s = replace(obje.s,"Ÿ","")
obje.s = replace(obje.s,"б","ı")
obje.s = replace(obje.s,"Ğ°","İ")
.putobject z,obje
next
secimkumesi.redrawandrewind
end if
msgbox " İşlem Başarıyla Tamamlandı"
end with
End Sub