Вопрос : Мне нужно прочитать архив текста и составить карту его к таблице доступа

Я имею архив текста (contactdata.txt) тот взгляды как это:

FirstName = First
LastName = Last
SocialSecurityNumber = 123-45-6789
Address = 100 n главное Street
City = ваше City
State = State
Zip = 12345-1234
submit_by = [email protected]
HomePhone = 800-555-1212

What, котор/>CellPhone = 123-555-1212
(не конец архива, архив продолжается) мне нужно выполнить должно создать сценарием vba который когда кнопка командование будет щелкнута сценарий прочитает архив текста от ее будет положение (C:\TextFiles\contactdata. txt) и прилагает данные к правильному полю в существующий таблице доступа названной направлением contacts.

Your в помогать мне выполняет это было бы много appreciated.

class= " ясное " >

Related: размера архива " title= " href= " /Microsoft/Development/MS_Access/Q_26365441.html How " qRelatedChild " " class= вопросе о значений шнура нул-длины и позволить значения шнура нул-длины и размер архива question

Ответ : Мне нужно прочитать архив текста и составить карту его к таблице доступа

Hi там, вы можете попытаться этим сценарием, который будет Кодий VBS.  Вы можете изменить положение DB и архива текста с strDBPath и strTextFile.

Отношения,

Rob.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50:

Установите objConn = CreateObject («ADODB.Connection») strDBPath = «C:\Temp\Users.accdb» strTextFile = «C:\Temp\Users.txt» Установите objFSO = CreateObject («Scripting.FileSystemObject») intForReading = 1 Если objFSO.FileExists (strDBPath) = True после этого strMDBPath = objFSO.GetFile (strDBPath) .ShortPath objConn.Open «Provider=Microsoft.ACE.OLEDB.12.0; Данные Source=» & strDBPath &»; Упорствует обеспеченность Info=False; « 'objConn.Open «Provider=Microsoft.Jet.OLEDB.4.0; Данные Source=» & strDBPath &»; « 'objConn.Open «Provider=Microsoft.Jet.OLEDB.4.0; Данные Source=» & strDBPath &»; Двигатель OLEDB: База данных Password=password; « 'objConn.Open «Driver= {водитель доступа Майкрософт (*.mdb)}; DBQ=» & strDBPath &»; « Установленное objFile = objFSO.OpenTextFile (strTextFile, intForReading, ложный) strFields = "" strValues = "" Пока не objFile.AtEndOfStream strLine = уравновешивание (objFile.ReadLine) Если "" <> strLine после этого Если InStr, то (strLine, «=") > 0 после этого strFieldName = уравновешивание (левое (strLine, InStr (strLine, «=") - 1)) strValue = уравновешивание (среднее (strLine, InStr (strLine, «=") + 1)) Если strFields = "" после этого strFields = «[» & strFieldName & «]» Еще strFields = strFields & «, [» & strFieldName & «]» Закончитесь если Если strValues = "" после этого strValues = ««» & strValue & «» « Еще strValues = strValues & «, «» & strValue & «» « Закончитесь если Закончитесь если Закончитесь если Wend objFile.Close strQuery = «ВСТАВКА В ЗНАЧЕНИЯ контактов (» & strFields & ") (" & strValues & "); » На резюме ошибки затем objConn.Execute (strQuery) Если Err.Number <> 0 после этого Ошибка MsgBox «вводя данные с вопросом: » & VbCrLf & strQuery & VbCrLf & «ошибка» & Err.Number & «: » & Err.Description Err.Clear На ошибке переход 0 Еще На ошибке переход 0 MsgBox «данные введенные успешно.» Закончитесь если objConn.close Установите objConn = ничего Еще MsgBox «неспособное для того чтобы найти» & strDBPath Закончитесь если