Разбор строк в Access

Question

Я импортирую sql в базу данных Access и работаю над разбором данных в правильные таблицы и поля. Снова я обращаюсь к вам, гуру, чтобы помочь в решении проблемы.

Одно из импортируемых полей имеет разделенные запятыми значения, которые необходимо разделить. В строке может быть от одного до десяти возможных значений.

PHO,Rosgen,NRCS,EMAP,T-DL,YSI-DL 

Я понял, что если я сделаю все значения той же длины (скажем, 4-х символов) я могу получить первый, последний и первый после запятой, чтобы разобрать, но не могу показаться, чтобы получить средние значения, извлеченные правильно.

SELECT Left([FieldForms],InStr([FieldForms],",")-1) AS DEQ_SampleTypeID 
FROM tblSiteVisit 
UNION ALL 
SELECT Mid([FieldForms],InStr([FieldForms],",")+1,4) AS DEQ_SampleTypeID 
FROM tblSiteVisit 
UNION ALL 
SELECT Mid([FieldForms], 11, 4) AS DEQ_SampleTypeID 
FROM tblSiteVisit 
UNION ALL 
SELECT Mid([FieldForms], 16, 4) AS DEQ_SampleTypeID 
FROM tblSiteVisit 
UNION ALL 
SELECT Mid([FieldForms], 21, 4) AS DEQ_SampleTypeID 
FROM tblSiteVisit 
UNION ALL 
SELECT Mid([FieldForms],InStrRev([FieldForms],",")-4,4) AS DEQ_SampleTypeID 
FROM tblSiteVisit 
UNION ALL 
SELECT Right([FieldForms],InStr([FieldForms],",")-1) AS DEQ_SampleTypeID 
FROM tblSiteVisit 

Если я использую InStrRev или правильную функцию я получаю повторы, если есть меньше, чем максимум также с помощью функции Mid результатов в пустых строках.

Есть ли способ, чтобы разобрать строку, как это и только получить результаты из строки

Answer 1

Put следующие функции в модуле:

Function CountCSWords (ByVal S) As Integer 
    ' Counts the words in a string that are separated by commas. 

    Dim WC As Integer, Pos As Integer 
    If VarType(S) <> 8 Or Len(S) = 0 Then 
     CountCSWords = 0 
     Exit Function 
    End If 
    WC = 1 
    Pos = InStr(S, ",") 
    Do While Pos > 0 
     WC = WC + 1 
     Pos = InStr(Pos + 1, S, ",") 
    Loop 
    CountCSWords = WC 
    End Function 

    Function GetCSWord (ByVal S, Indx As Integer) 
    ' Returns the nth word in a specific field. 

    Dim WC As Integer, Count As Integer, SPos As Integer, EPos As Integer 
    WC = CountCSWords(S) 
    If Indx < 1 Or Indx > WC Then 
     GetCSWord = Null 
     Exit Function 
    End If 
    Count = 1 
    SPos = 1 
    For Count = 2 To Indx 
     SPos = InStr(SPos, S, ",") + 1 
    Next Count 
    EPos = InStr(SPos, S, ",") - 1 
    If EPos <= 0 Then EPos = Len(S) 
    GetCSWord = Trim(Mid(S, SPos, EPos - SPos + 1)) 
    End Function 

Затем поместите поле в запросе, как это:

MyFirstField: GetCSWord([FieldForms],1) 

Поместите еще один в так:

MySecondField: GetCSWord([FieldForms],2) 

И т.д. ... за столько, сколько вам нужно.

Answer 2

Этот код VBA считывает текстовые значения из FieldForms в tblSiteVisit, разделяет этот текст на подстроки, а затем хранит каждый из подстрок в DEQ_SampleTypeID в новой строке добавляется к tblDestination.

Dim astrItems() As String 
Dim db As DAO.database 
Dim i As Long 
Dim qdf As DAO.QueryDef 
Dim rs As DAO.Recordset 
Dim strInsert As String 

strInsert = "INSERT INTO tblDestination (DEQ_SampleTypeID)" & vbCrLf & _ 
    "VALUES ([array_item]);" 

Set db = CurrentDb 
Set rs = db.OpenRecordset("tblSiteVisit", dbOpenTable, dbOpenSnapshot) 
Set qdf = db.CreateQueryDef(vbNullString, strInsert) 
Do While Not rs.EOF 
    astrItems = Split(rs!FieldForms, ",") 
    For i = 0 To UBound(astrItems) 
     qdf.Parameters("array_item") = astrItems(i) 
     qdf.Execute dbFailOnError 
    Next 
    rs.MoveNext 
Loop 
rs.Close 
Set rs = Nothing 
Set qdf = Nothing 
Set db = Nothing