Herkese Merhaba,
Başlıktaki konu için internetten bir çözüm buldum ve projeme uyguladığımda sorun olmadı ama biliyorsunuz her ihtimali bazen deneyemiyoruz o yüzden aşağıdaki kod resimlerdeki sonucu üretme açısında handikapları var mı?
objRegex.Pattern = "^\s+(.+?)$" yazan kısmın mesela ne işe yaradığını anlayamadım.
Başlıktaki konu için internetten bir çözüm buldum ve projeme uyguladığımda sorun olmadı ama biliyorsunuz her ihtimali bazen deneyemiyoruz o yüzden aşağıdaki kod resimlerdeki sonucu üretme açısında handikapları var mı?
objRegex.Pattern = "^\s+(.+?)$" yazan kısmın mesela ne işe yaradığını anlayamadım.
Visual Basic
- Dim db As DAO.Database
- Dim rsInput As DAO.Recordset
- Dim rsOutput As DAO.Recordset
- Dim strSQL As String
- Dim strArr() As String
- Dim objRegex As Object
-
- ' Access nesnelerini oluştur
- Set db = CurrentDb
- Set rsInput = db.OpenRecordset("YourInputTable", dbOpenSnapshot)
- Set rsOutput = db.OpenRecordset("YourOutputTable", dbOpenDynaset)
-
- ' Regex nesnesini oluştur
- Set objRegex = CreateObject("vbscript.regexp")
- objRegex.Pattern = "^\s+(.+?)$"
-
- ' Giriş tablosundaki her kayıt için işlem yap
- Do Until rsInput.EOF
- strArr = Split(rsInput.Fields("Veri").Value, ",")
-
- ' Her bir eleman için işlem yap
- For i = LBound(strArr) To UBound(strArr)
- ' Yeni bir kayıt oluştur
- rsOutput.AddNew
- rsOutput.Fields("id").Value = rsInput.Fields("id").Value
- rsOutput.Fields("Veri").Value = objRegex.Replace(strArr(i), "$1")
- rsOutput.Update
- Next i
-
- rsInput.MoveNext
- Loop
-
- ' Nesneleri serbest bırak
- rsInput.Close
- rsOutput.Close
- Set rsInput = Nothing
- Set rsOutput = Nothing
- Set db = Nothing
- Set objRegex = Nothing