+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: String İçinden Belirli Bir Kısmını Almak (/konu-string-icinden-belirli-bir-kismini-almak.html)
String İçinden Belirli Bir Kısmını Almak - accessman - 08/04/2020
iyi günler
"% 52 DM tip2, Lumbalgo siyatik, Depresif belirtilerşe giden uyum bozukluğu"
"%52 DM tip2, Lumbalgo siyatik, Depresif belirtilerşe giden uyum bozukluğu"
"52% DM tip2, Lumbalgo siyatik, Depresif belirtilerşe giden uyum bozukluğu"
"52 % DM tip2, Lumbalgo siyatik, Depresif belirtilerşe giden uyum bozukluğu"
"DM tip2, 52 % Lumbalgo siyatik, Depresif belirtilerşe giden uyum bozukluğu"
"DM tip2, 52% Lumbalgo siyatik, Depresif belirtilerşe giden uyum bozukluğu"
bu sadece örnek bir veri
bu cümleden "%52" kısmını alıp başka alana güncelleyeceğiz
bazan cümlenin başında yazılmış bazen ortasında bazen sonunda
bazen "%52" yazılmış bazen "52%"
bazen "%52" şeklinde bitişik bazen "% 52" arada boşlukla yazılmış
bunu nasıl bir kod ile cümlenin içinden çekip çıkarabiliriz
Cvp: String İçinden Belirli Bir Kısmını Almak - feraz - 08/04/2020
İnstr ile kaçıncı sırada bulunur mid ile parça alınır abey.
Mid("%52",instr(aranan kelime,"%52"),3)
Gibi tabii accesste mid özelliği varmı bilmiyorum varsa şöyle if koşulu aklenir kod başına if instr(veri,"52")> 0 then burda %52 varmı demek.
Cvp: String İçinden Belirli Bir Kısmını Almak - accessman - 08/04/2020
teşekkürler feraz ama benim istediğim 6 farklı ihtimalde de içindeki değeri alacak bir kod
Cvp: String İçinden Belirli Bir Kısmını Almak - ozanakkaya - 08/04/2020
Modüle;
Function SayiBul(ByVal GVeri As String) As Long
Dim GMetin As String
Dim GGenislik As Integer
Dim GSayi As Integer
GMetin = Right(Left(GVeri, InStr(1, GVeri, "%") - 1), 3) & Left(Mid(GVeri, InStr(1, GVeri, "%") + 1), 3)
GGenislik = Len(GMetin)
GSayi = 1
Do
If Mid(GMetin, GSayi, 1) <> " " And Not IsNumeric(Mid(GMetin, GSayi, 1)) Then
GMetin = Left(GMetin, GSayi - 1) + Mid(GMetin, GSayi + 1)
GSayi = GSayi - 1
End If
GSayi = GSayi + 1
Loop Until Val(GMetin) > 0
SayiBul = Val(GMetin)
End FunctionKodu ekle. Sorguya da,
sonuc: SayiBul([metninbulundugualanadi])kodu ekle.
Konunuz "Visual Basic Örnek Uygulamaları" bölümüne açılmış. Sorunuz Visual Basic mi? Access mi??
Cvp: String İçinden Belirli Bir Kısmını Almak - feraz - 08/04/2020
(08/04/2020, 17:16)accessman yazdı: teşekkürler feraz ama benim istediğim 6 farklı ihtimalde de içindeki değeri alacak bir kodO zaman 6 ihtimallik instr ve mid yazılır or ile.
Cvp: String İçinden Belirli Bir Kısmını Almak - accessman - 08/04/2020
şöyle bir şey yazdım olmuş mu
Private Function bulyuzde(metin As String) As Integer
On Error GoTo Err_hata
Dim index As Integer
Dim yuzde As Integer
yuzde = 0
index = InStr(metin, "%")
If (index = 1) Then
If (Mid(metin, index + 1, 1) = " ") Then
If IsNumeric(Mid(metin, 3, 2)) Then
yuzde = Mid(metin, 3, 2)
End If
Else
If IsNumeric(Mid(metin, 2, 2)) Then
yuzde = Mid(metin, 2, 2)
End If
End If
ElseIf (index = 3) Then
If IsNumeric(Mid(metin, 1, 2)) Then
yuzde = Mid(metin, 1, 2)
End If
ElseIf (index > 3) Then
If (Mid(metin, index - 1, 1) = " ") Then
If IsNumeric(Mid(metin, index - 3, 2)) Then
yuzde = Mid(metin, index - 3, 2)
End If
Else
If IsNumeric(Mid(metin, index - 2, 2)) Then
yuzde = Mid(metin, index - 2, 2)
End If
End If
End If
Exit_kod:
bulyuzde = yuzde
Exit Function
Err_hata:
yuzde = 0
MsgBox Err.Description
Resume Exit_kod
End Function