Alan Adı Türkçe Karakter Dönüştürücü Makro (Field Name Turkish Character Conversion Macro)

Alan Adlarındaki Türkçe Karakterleri Dönüştüren Kullanışlı Makro ✨

Handy Macro for Converting Turkish Characters in Field Names

Bu makro, Netcad ortamında alan objelerinin adlarında (pname) bulunan Türkçe karakterleri (Ğ, Ü, Ö, Ç, Ş, İ) İngilizce karakter karşılıklarına (G, U, O, C, S, I) çevirir. Özellikle veri paylaşımı veya farklı platformlarla uyumluluk sağlama süreçlerinde, Türkçe karakterlerden kaynaklanan sorunları çözer. Kullanıcı tarafından seçilen alan adlarını otomatik olarak tarar ve dönüştürür, böylece veri temizliği ve standardizasyon işlemlerini kolaylaştırır. Netcad’in VBScript otomasyon özellikleriyle hızlı ve güvenilir bir şekilde çalışır.

This macro converts Turkish characters (Ğ, Ü, Ö, Ç, Ş, İ) in the field names (pname) of objects in the Netcad environment to their English equivalents (G, U, O, C, S, I). It resolves issues caused by Turkish characters during data sharing or compatibility with other platforms. It automatically scans and converts the names of selected fields, simplifying data cleaning and standardization processes. Powered by Netcad’s VBScript automation features, it operates quickly and reliably.

Makro, Netcad’de bir seçim kümesi oluşturarak çalışmaya başlar. Kullanıcı, Türkçe karakter içeren alan adlarını seçer. Seçim kümesindeki her objenin adı (pname) bir string olarak alınır ve Türkçe karakterler (örneğin, \”Ş\” → \”S\”, \”İ\” → \”I\”) replace fonksiyonuyla İngilizce karşılıklarına dönüştürülür. Dönüştürülen ad, objeye geri yazılır ve Netcad ortamında güncellenir. İşlem sonunda seçim kümesi yenilenir ve ekran güncellenir, böylece veri bütünlüğü korunur.

The macro starts by creating a selection set in Netcad. The user selects field names containing Turkish characters. Each object’s name (pname) in the selection set is retrieved as a string, and Turkish characters (e.g., \”Ş\” → \”S\”, \”İ\” → \”I\”) are converted to their English equivalents using the replace function. The updated name is written back to the object and saved in the Netcad environment. At the end, the selection set is refreshed, and the screen is updated, ensuring data integrity.

Netcad makro, alan adı dönüştürücü, Türkçe karakter temizleme, veri standardizasyonu, otomasyon, VBScript, karakter dönüşümü, veri paylaşımı, Netcad otomasyon

Netcad macro, field name converter, Turkish character cleaning, data standardization, automation, VBScript, character conversion, data sharing, Netcad automation,

📝 Netcad NVB Code

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
' Yazan :
' Tarih : 30.03.2010
' Açıklama : Alan adlarındaki Türkçe karakterleri çevirir

Sub Main
  With Netcad
    Dim secimkumesi,obje,i,z
    set secimkumesi = .newselectionset
    set obje=.newobject
    if secimkumesi.select("Seçim",array(opline)) then
      for i=0 to secimkumesi.NE-1
        dim str
        z=secimkumesi.getselectedobject(i,obje)
        str=obje.pname
        'Türkçe karakterleri düzelt
        str=str
        str=replace(str,"Ğ","G")
        str=replace(str,"ğ","g")
        str=replace(str,"Ü","U")
        str=replace(str,"ü","u")
        str=replace(str,"ö","o")
        str=replace(str,"Ö","O")
        str=replace(str,"Ç","C")
        str=replace(str,"ç","c")
        str=replace(str,"ş","s")
        str=replace(str,"Ş","S")
        str=replace(str,"ı","i")
        str=replace(str,"İ","I")
        obje.pname=str
        .PutObject .curobjpos, obje
        .putobject z,obje
      Next
      secimkumesi.redrawandrewind
    End if
  End With
End Sub

netcad-alan-obje-ad-turkce-karakter-cevir