Skip to main content

AccessTr.neT


metin karşılaştırma

metin karşılaştırma

Çözüldü #1
iyi günler
iki metnin harf harf karşılaştırıldığı bir kod yazılabilir mi
teşekkürler
@benbendedeilem
Cevapla
Çözüldü #2
Aşağıdaki gibi bir kod işinizi görecektir.

dim metin1, metin2 as string
dim i as integer
if len (metin1) <> len (metin2) then
msgbox "metin boyutları eşit değil"
exit sub
else
for i = 0 to len metin1
if mid (metin1,i,1)=(metin2,i,1) then
msgbox "Metinlerinizin " & i &. Harfi Eşit"
else
msgbox "Metinlerinizin " & i &. Harfi Eşit Değil"
end if
next
end if
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #3
şöyle değiştirdim
Kod:
Private Sub Komut4_Click()
Dim metin1, metin2, farkli1, farkli2   As String
Dim i As Integer
metin1 = Metin0
metin2 = Metin
farkli1 = ""
farkli2 = ""
If Len(metin1) <> Len(metin2) Then
MsgBox "metin boyutları eşit değil"
Exit Sub
Else
For i = 1 To Len(metin1)
    If Mid(metin1, i, 1) = Mid(metin2, i, 1) Then
    'MsgBox "Metinlerinizin " & i & "Harfi Eşit"
    Else
    farkli1 = farkli1 + Mid(metin1, i, 1)
    farkli2 = farkli2 + Mid(metin2, i, 1)
    'MsgBox "Metinlerinizin " & i & " Harfi Eşit Değil"
    End If
Next
End If
MsgBox farkli1 & " - " & farkli2
End Sub

@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task