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