String İşlemleri

StrIncrement

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - text (String): Metin
  • Açıklama: Metni artırır (ör: "ABC001" -> "ABC002")

Örnek Kullanım:

Sub Makro1()
    Dim Kod, YeniKod
    Kod = "ABC001"
    YeniKod = Doc.StrIncrement(Kod)
    Doc.MsgBox "Eski Kod: " & Kod & Chr(13) & "Yeni Kod: " & YeniKod
    ' Sonuç: YeniKod = "ABC002"
    
    ' Fiş numarası artırma
    Dim FisNo
    FisNo = Doc.GetLoadedVoucher()
    FisNo = Doc.StrIncrement(FisNo)
    Doc.MsgBox "Sonraki Fiş: " & FisNo
End Sub

StrDecrement

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - text (String): Metin
  • Açıklama: Metni azaltır

Örnek Kullanım:

Sub Makro1()
    Dim Kod, YeniKod
    Kod = "ABC002"
    YeniKod = Doc.StrDecrement(Kod)
    Doc.MsgBox "Eski Kod: " & Kod & Chr(13) & "Yeni Kod: " & YeniKod
    ' Sonuç: YeniKod = "ABC001"
End Sub

LeftJustify

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - text (Variant): Metin
  • - length (Integer): Uzunluk
  • Açıklama: Metni sola hizalar

Örnek Kullanım:

Sub Makro1()
    Dim Metin, HizaliMetin
    Metin = "ABC"
    HizaliMetin = Doc.LeftJustify(Metin, 10)
    Doc.MsgBox "Hizalı: [" & HizaliMetin & "]"
End Sub

RightJustify

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - text (Variant): Metin
  • - length (Integer): Uzunluk
  • Açıklama: Metni sağa hizalar

Örnek Kullanım:

Sub Makro1()
    Dim Metin, HizaliMetin
    Metin = "ABC"
    HizaliMetin = Doc.RightJustify(Metin, 10)
    Doc.MsgBox "Hizalı: [" & HizaliMetin & "]"
End Sub

UnQuate

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - text (Variant): Metin
  • Açıklama: Tırnak işaretlerini kaldırır

Örnek Kullanım:

Sub Makro1()
    Dim Metin, TemizMetin
    Metin = """ABC"""
    TemizMetin = Doc.UnQuate(Metin)
    Doc.MsgBox "Temiz: " & TemizMetin  ' Sonuç: ABC
End Sub

PackSpaces

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - text (String): Metin
  • Açıklama: Fazla boşlukları temizler

Örnek Kullanım:

Sub Makro1()
    Dim Metin, TemizMetin
    Metin = "ABC    DEF   GHI"
    TemizMetin = Doc.PackSpaces(Metin)
    Doc.MsgBox "Temiz: [" & TemizMetin & "]"
End Sub

IsBlank

  • Dönüş Tipi: Boolean
  • Parametreler:
  • - value (Variant): Değer
  • Açıklama: Değerin boş olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim Deger
    Deger = Doc.GetFieldValue("STOK40T", "KOD", 0)
    
    If Doc.IsBlank(Deger) Then
        Doc.MsgBox "Stok kodu boş!"
    Else
        Doc.MsgBox "Stok kodu: " & Deger
    End If
End Sub

IsNumeric

  • Dönüş Tipi: Boolean
  • Parametreler:
  • - value (Variant): Değer
  • Açıklama: Değerin sayısal olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim Deger
    Deger = Doc.GetFieldValue("STOK40T", "MIKTAR", 0)
    
    If Doc.IsNumeric(Deger) Then
        Dim Toplam
        Toplam = CDbl(Deger) * 1.18  ' KDV dahil
        Doc.MsgBox "KDV Dahil Tutar: " & Toplam
    Else
        Doc.MsgBox "Miktar sayısal değil!"
    End If
End Sub

IsNumericString

  • Dönüş Tipi: Boolean
  • Parametreler:
  • - value (Variant): Değer
  • - minLength (Integer): Minimum uzunluk
  • - maxLength (Integer): Maksimum uzunluk
  • Açıklama: String'in sayısal olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim Deger
    Deger = "12345"
    
    If Doc.IsNumericString(Deger, 5, 10) Then
        Doc.MsgBox "Geçerli sayısal string (5-10 karakter)"
    Else
        Doc.MsgBox "Geçersiz sayısal string"
    End If
End Sub

DoesContainNonAscii

  • Dönüş Tipi: Boolean
  • Parametreler:
  • - text (String): Metin
  • Açıklama: Metinde ASCII olmayan karakter olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim Metin
    Metin = "ABCçDEF"
    
    If Doc.DoesContainNonAscii(Metin) Then
        Doc.MsgBox "Metinde ASCII olmayan karakter var"
    Else
        Doc.MsgBox "Metin sadece ASCII karakterler içeriyor"
    End If
End Sub

DoesContainSpace

  • Dönüş Tipi: Boolean
  • Parametreler:
  • - text (String): Metin
  • Açıklama: Metinde boşluk olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim Metin
    Metin = "ABC DEF"
    
    If Doc.DoesContainSpace(Metin) Then
        Doc.MsgBox "Metinde boşluk var"
    Else
        Doc.MsgBox "Metinde boşluk yok"
    End If
End Sub

DoesContainNonAZ

  • Dönüş Tipi: Boolean
  • Parametreler:
  • - text (String): Metin
  • Açıklama: Metinde A-Z dışında karakter olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim Metin
    Metin = "ABC123"
    
    If Doc.DoesContainNonAZ(Metin) Then
        Doc.MsgBox "Metinde A-Z dışında karakter var"
    Else
        Doc.MsgBox "Metin sadece A-Z karakterler içeriyor"
    End If
End Sub

TestWildCardFit

  • Dönüş Tipi: Boolean
  • Parametreler:
  • - pattern (String): Desen
  • - text (String): Metin
  • Açıklama: Wildcard deseninin metne uyup uymadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim Desen, Metin
    Desen = "STOK*"
    Metin = "STOK001"
    
    If Doc.TestWildCardFit(Desen, Metin) Then
        Doc.MsgBox "Desen metne uyuyor"
    Else
        Doc.MsgBox "Desen metne uymuyor"
    End If
End Sub

HtmlEncode

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - text (String): Metin
  • Açıklama: Metni HTML encode eder

Örnek Kullanım:

Sub Makro1()
    Dim Metin, Encoded
    Metin = "<div>Test & Sample</div>"
    Encoded = Doc.HtmlEncode(Metin)
    Doc.MsgBox "Encoded: " & Encoded
End Sub

ToEngCS

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - text (String): Metin
  • Açıklama: Metni İngilizce karakter setine çevirir

Örnek Kullanım:

Sub Makro1()
    Dim Metin, EngMetin
    Metin = "çğüşıöÇĞÜŞİÖ"
    EngMetin = Doc.ToEngCS(Metin)
    Doc.MsgBox "İngilizce: " & EngMetin
End Sub

GetFileExtension

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - fileName (String): Dosya adı
  • Açıklama: Dosya uzantısını döndürür

Örnek Kullanım:

Sub Makro1()
    Dim DosyaAdi, Uzanti
    DosyaAdi = "rapor.xlsx"
    Uzanti = Doc.GetFileExtension(DosyaAdi)
    Doc.MsgBox "Uzantı: " & Uzanti  ' Sonuç: "xlsx"
End Sub

RandomString

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - length (Integer): Uzunluk
  • - charSet (String): Karakter seti
  • Açıklama: Rastgele string oluşturur

Örnek Kullanım:

Sub Makro1()
    Dim RastgeleKod
    RastgeleKod = Doc.RandomString(10, "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")
    Doc.MsgBox "Rastgele Kod: " & RastgeleKod
End Sub

---