Yazı Objelerinin İlk Harfini Büyük Harfe Çevirme (Capitalize the First Letter of Text Objects)

📝 Yazı Objelerinizi Düzenleyin: İlk Harfleri Otomatik Büyüten Netcad Makrosu ile Verimliliği Artırın!

📝 Optimize Your Text Objects: Boost Efficiency with the Netcad Macro that Auto-Capitalizes First Letters!

Bu makro, Netcad yazılımında seçilen yazı objelerinin ilk harflerini otomatik olarak büyük harfe çevirir, geri kalan harfleri ise küçük harfe dönüştürür. Düzensiz metinleri standart bir formata getirmek için ideal bir çözümdür. Örneğin, “selam” yazısı “Selam” şekline, “Naber” yazısı ise “Naber” şekline dönüşür. Kullanıcı dostu arayüzü sayesinde yazı objelerini kolayca seçebilir ve düzenleme işlemini hızlıca gerçekleştirebilirsiniz. Bu makro, metin düzenleme süreçlerini otomatikleştirerek veri tutarlılığını sağlar ve projelerinizde profesyonel bir görünüm sunar.

This macro automatically capitalizes the first letter of selected text objects in Netcad while converting the remaining letters to lowercase. It’s perfect for standardizing irregular texts, such as turning “hello” into “Hello” or “HELLO” into “Hello.” With an intuitive interface, you can easily select text objects and complete the editing process quickly. The macro streamlines text editing, ensures data consistency, and enhances the professional appearance of your projects.

• Makro, Netcad ortamında şu adımları izler:
• İşlem tamamlandıktan sonra seçim seti ve nesneler serbest bırakılır, böylece bellek kullanımı optimize edilir.
  Bu makro, büyük veri setlerinde metin düzenlemeyi otomatikleştirerek zaman tasarrufu sağlar ve hata olasılığını azaltır.
• Kullanıcıdan yazı objelerini seçmesi istenir (“Başharfleri büyütülecek yazıları seçiniz”).
• Seçilen her yazı objesi için HarfDuzelt alt yordamı çalıştırılır.
• HarfDuzelt fonksiyonu, metnin başındaki boşlukları kaldırır, ilk harfi büyük harfe çevirir ve diğer harfleri küçük harfe dönüştürür.
• Düzenlenen metin, orijinal yazı objesine geri yazılır ve ekran güncellenir.

• How it works: The macro operates in the Netcad environment with these steps:
• 1. Prompts the user to select text objects (“Select texts to capitalize”).
• 2. Runs the HarfDuzelt subroutine for each selected text object.
• 3. The HarfDuzelt function trims leading spaces, capitalizes the first letter, and converts the rest to lowercase.
• 4. The edited text is written back to the original object, and the screen is refreshed.
• 5. After completion, the selection set and objects are released to optimize memory usage. This macro automates text editing for large datasets, saving time and minimizing errors.

yazı düzenleme, netcad makro, ilk harf büyütme, otomasyon, veri standartlaştırma, metin formatlama, baş harf düzenleme, netcad otomasyon, yazı objesi düzenleme, metin düzeltme

text editing, netcad macro, capitalize first letter, automation, data standardization, text formatting, first letter capitalization, netcad automation, text object editing, text correction

📝 Netcad NVB Code

Sub Main
Dim i,j,o,SEL,u,RR
  with Netcad
      RR="AAAAA" ' Sabit bir değişken tanımlama, kullanılmıyor gibi görünüyor

     set SEL = .NewSelectionSet ' Yeni bir seçim seti oluşturuluyor
    set o = .NewObject ' Yeni bir nesne oluşturuluyor
    if SEL.SELECT("Başharfleri büyütülecek yazıları seçiniz",array(otext)) then ' Kullanıcıdan metin nesnelerini seçmesi isteniyor
      for i = 0 to SEL.NE-1 ' Seçilen her nesne için döngü
        j = SEL.GetSelectedObject(i, o) ' Nesne alınıyor
          HarfDuzelt o ' Metin düzenleme fonksiyonu çağrılıyor
        .putobject j, o ' Düzenlenen nesne geri yazılıyor
       next
     SEL.RedrawAndRewind ' Ekran yenileniyor
    set u=.GetCurrentWindow ' Aktif pencere alınıyor
    .SetCurrentWindow u,1 ' Pencere güncelleniyor
     end if
    set u=nothing ' Kaynak serbest bırakılıyor
    set SEL = nothing ' Kaynak serbest bırakılıyor
    set o = nothing ' Kaynak serbest bırakılıyor
   end with
end sub

Sub HarfDuzelt(o)
dim i,str,k
 o.s=trim(o.s) ' Metnin başındaki ve sonundaki boşluklar temizleniyor

 str=left(o.s,1) ' Metnin ilk harfi alınıyor
 str=ucase(str) & lcase(mid(o.s,2,LEN(O.S))) ' İlk harf büyük, diğerleri küçük harfe çevriliyor

 o.s=str ' Düzenlenen metin nesneye geri yazılıyor
end sub

netcad-yazi-ilk-harf-buyuk

Tüm makrolara ulaşmak için tıklayınız: Netcad Makro. Netcad ile ilgili daha fazla ayrıntı için: https://netcad.com.tr/ adresini ziyaret ediniz.