Evet oldu ama en 12 karakterli olan verileri 11 olarak getirdi eksik veri oluştu.
Tablodan İstenilen Veriyi Alma Hk. Part2
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
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
Konuyu Okuyanlar: 1 Ziyaretçi