Frage : Ich muss eine Textdatei lesen und sie zu einem Zugangs-Tabelle abbilden

Ich habe eine Textdatei (contactdata.txt) diese aussehen wie dieses:

FirstName = First
LastName = Last
SocialSecurityNumber = 123-45-6789
Address = 100 N HauptStreet
City = Ihr City
State = State
Zip = 12345-1234
submit_by = [email protected]
HomePhone = 800-555-1212
CellPhone = 123-555-1212
(nicht fährt das Ende der Akte, die Akte) fort,

What, das ich vollenden muss, ist, einen vba Index zu verursachen, der, wenn ein Befehlsknopf angeklickt wird der Index die Textdatei von ihm ist Position liest (C:\TextFiles\contactdata. txt) und fügen die Daten zum korrekten Feld in einer vorhandenen Zugangstabelle an, die contacts.

Your Richtung genannt wird, wenn es mir hilft, vollenden dieses würde sein viel appreciated.
Related Lösungen: How Nulllänge Schnurwerte und Dateigröße question erlauben lässt

Antwort : Ich muss eine Textdatei lesen und sie zu einem Zugangs-Tabelle abbilden

Hallo dort, können Sie diesen Index versuchen, der VBS Code ist.  Sie können die Position des DBs und der Textdatei mit strDBPath ändern und strTextFile.

Respekt,

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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

objConn = CreateObject („ADODB.Connection“) einstellen
strDBPath = „C:\Temp\Users.accdb“
strTextFile = „C:\Temp\Users.txt“
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
intForReading = 1
Wenn objFSO.FileExists (strDBPath) = dann ausrichten
	strMDBPath = objFSO.GetFile (strDBPath) .ShortPath
	objConn.Open „Provider=Microsoft.ACE.OLEDB.12.0; Datenquelle =“ u. strDBPath u.“; Weiter bestehen Sicherheit Info=False; „
	'objConn.Open „Provider=Microsoft.Jet.OLEDB.4.0; Datenquelle =“ u. strDBPath u.“; „
	'objConn.Open „Provider=Microsoft.Jet.OLEDB.4.0; Datenquelle =“ u. strDBPath u.“; Strahl OLEDB: Datenbank Password=password; „
	'objConn.Open „Driver= {Microsoft Access-Fahrer (*.mdb)}; DBQ=“ u. strDBPath u.“; „
	Gesetztes objFile = objFSO.OpenTextFile (strTextFile, intForReading, falsch)
	strFields = ""
	strValues = ""
	Während nicht objFile.AtEndOfStream
		strLine = Ordnung (objFile.ReadLine)
		Wenn strLine <> "" dann
			Wenn InStr (strLine, „=") > 0 dann
				strFieldName = Ordnung (link (strLine, InStr (strLine, „=") - 1))
				strValue = Ordnung (mittler (strLine, InStr (strLine, „=") + 1))
				Wenn strFields = "" dann
					strFields = „[“ u. strFieldName u. „]“
				Sonst
					strFields = strFields u. „, [“ u. strFieldName u. „]“
				Beenden wenn
				Wenn strValues = "" dann
					strValues = „„“ u. strValue u. „“ „
				Sonst
					strValues = strValues u. „, „“ u. strValue u. „“ „
				Beenden wenn
			Beenden wenn
		Beenden wenn
	Wend
	objFile.Close
	strQuery = „EINSATZ IN Kontakte (“ u. strFields u. ") WERTE (“ u. strValues u. "); “
	Auf Störungs-Zusammenfassung zunächst
	objConn.Execute (strQuery)
	Wenn Err.Number <> 0 dann
		MsgBox „Störung, die Daten mit Frage einsetzt: “ U. VbCrLf u. strQuery u. VbCrLf u. „Störung“ u. Err.Number u. „: “ U. Err.Description
		Err.Clear
		Auf Störung Goto- 0
	Sonst
		Auf Störung Goto- 0
		MsgBox „Daten erfolgreich eingesetzt.“
	Beenden wenn
	objConn.close
	objConn einstellen = nichts
Sonst
	MsgBox „nicht imstande zu finden“ u. strDBPath
Beenden wenn
Weitere Lösungen  
 
programming4us programming4us