For u = 1 To 9: sonuc(say, u) = veri(sat, u): Next
..........
For u = 1 To 9
If u = 4 And Trim(veri(sat, u)) <> "" Then
mtn = Trim(veri(sat, u)): karakter = Empty
For k = 1 To Len(mtn)
karakter = Mid(mtn, k, 1): kod = Asc(karakter)
If Not IsNumeric(Application.Match(kod, harf, 0)) And _
(kod < 65 Or kod > 122) And _
Not IsNumeric(karakter) Then
mtn = Replace(mtn, karakter, " ")
End If
Next
ayir = Split(mtn, " "): xd = ""
For kk = 0 To UBound(ayir)
If InStr(xd, ayir(kk)) = 0 Then xd = Trim(CStr(xd & " " & ayir(kk) & " "))
Next
sonuc(say, u) = xd
Else: sonuc(say, u) = veri(sat, u)
End If
Next
...............
..........
If cevap <> 6 Then
MsgBox "İşlem İPTAL edildi..", vbInformation
Exit Sub
End If
harf = Array(32, 199, 208, 214, 220, 221, 222, 231, 240, 246, 252, 253, 254)
.........
If Not IsNumeric(Application.Match(kod, harf, 0)) And _
(kod < 65 Or kod > 122) And _
Not IsNumeric(karakter) Then
If Not IsNumeric(Application.Match(kod, harf, 0)) And _
((kod < 65 Or kod > 122) Or (kod > 90 And kod < 97)) And _
Not IsNumeric(karakter) Then
![]() |
Çözüldü Metindeki Sesli ve Sessiz Harfler Saydırma
|