AccessTr.neT

Tam Versiyon: Tablodan İstenilen Veriyi Alma Hk. Part2
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
Evet oldu ama en 12 karakterli olan verileri 11 olarak getirdi eksik veri oluştu.
(12/06/2022, 00:16)serkan1985 yazdı: [ -> ]12 karakterli olan verileri 11 olarak getirdi eksik veri oluştu.
örnek veri verebilir misiniz?
080BT001359 booking alanında yazan örneklerden biri normalde 080BT001359'6' olarak kayıtlı.
Function xBooking(xVeri As String) As String
xBooking = ""
Dim regex As RegExp
Set regex = New RegExp
With regex
    .Pattern = "Booking No  :  (.+[^ \t\r\n\v\f])" '[^ \t\r\n\v\f] yerine \S de yazılabilir ===> "Booking No : (.+\S)" gibi
    .IgnoreCase = True
    .Multiline = False
   
Set eslesmeler = regex.Execute(xVeri)
For Each eslesme In eslesmeler
  If eslesme.SubMatches.Count > 0 Then
    For Each alteslesme In eslesme.SubMatches
          xBooking = Trim(alteslesme)
    Next alteslesme
  End If
Next eslesme
End With
End Function
Çok teşekkür ederim şuan tamamdır elinize emeğiniz sağlık desteğiniz için teşekkürler. Birde outogate_S tablosundaki İçindekiler verisini outogate_S1 tablosunda bulunana sadece içindekiler verisine aynı güncelleme yöntemi ile aktarabilir miyiz? outogate_S İçindekiler verisi otomatik geliyor oraya ordan outogate_S1 içindekiler veri alanına copy paste yapıyorum bunu güncelle şeklinde yapabilmemiz mümkün mü?
her konuda tek soru sorulmalı
o nedenle yeni soru için yeni konu açmalısınız?
Not: [^ \t\r\n\v\f] yerine \S de yazılabilir ===> .Pattern = "Booking No : (.+\S)" gibi S harfi BÜYÜK S olmalı küçük s yazarsanız sonuç değişir
Sayfalar: 1 2 3