Vraag : Ik moet een tekstdossier lezen en het in kaart brengen aan een Lijst van de Toegang

Ik heb een tekstdossier (contactdata.txt) dat als dit kijkt:

FirstName = First
LastName = Last
SocialSecurityNumber = 123-45-6789
Address = 100 N HoofdStreet
City = Uw City
State = State
Zip = 12345-1234
submit_by = [email protected]
HomePhone = 800-555-1212
CellPhone = 123-555-1212
(niet gaat het eind van het dossier, het dossier) verder behoefte

What I te verwezenlijken moet een vbamanuscript creëren dat wanneer een bevelknoop het manuscript wordt geklikt zal lezen het tekstdossier van het plaats is (C:\TextFiles\contactdata. txt) en voegt de gegevens aan het juiste gebied in een bestaande genoemde richting contacts.

Your van de Toegang lijst in het helpen van me toe dit verwezenlijken zou zijn veel appreciated.
Related Oplossingen: hoe te om nul-lengte koordwaarden en dossiergrootte question toe te staan

Antwoord : Ik moet een tekstdossier lezen en het in kaart brengen aan een Lijst van de Toegang

Hallo daar, kunt u dit manuscript proberen, dat code VBS is.  U kunt de plaats van OB en het tekstdossier met strDBPath veranderen en strTextFile.

Achting,

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:

Reeks objConn = CreateObject („ADODB.Connection“)
strDBPath = „C:\Temp\Users.accdb“
strTextFile = „C:\Temp\Users.txt“
Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
het intForReading = 1
Als objFSO.FileExists (strDBPath) = Waar toen
	strMDBPath = (strDBPath) .ShortPath objFSO.GetFile
	objConn.Open „Provider=Microsoft.ACE.OLEDB.12.0; Gegevens Source=“ & strDBPath &“; Duur Veiligheid Info=False voort; „
	'objConn.Open „Provider=Microsoft.Jet.OLEDB.4.0; Gegevens Source=“ & strDBPath &“; „
	'objConn.Open „Provider=Microsoft.Jet.OLEDB.4.0; Gegevens Source=“ & strDBPath &“; Straal OLEDB: Gegevensbestand Password=password; „
	'objConn.Open „Driver= {de Bestuurder van Microsoft Access (*.mdb)}; DBQ=“ & strDBPath &“; „
	Vastgestelde objFile = objFSO.OpenTextFile (strTextFile, Vals intForReading,)
	strFields = ""
	strValues = ""
	Terwijl niet objFile.AtEndOfStream
		strLine = Versiering (objFile.ReadLine)
		Als strLine <> "" toen
			Als InStr (strLine, „=“) > 0 toen
				strFieldName = Versiering (links (strLine, InStr (strLine, „=“) - 1))
				strValue = Medio Versiering ((strLine, InStr (strLine, „=“) + 1))
				Als strFields = "" toen
					strFields = „[“ & strFieldName & „]“
				Anders
					strFields = strFields & „, [“ & strFieldName & „]“
				Eind als
				Als strValues = "" toen
					strValues = „„“ & strValue & „“ „
				Anders
					strValues = strValues & „, „“ & strValue & „“ „
				Eind als
			Eind als
		Eind als
	Wend
	objFile.Close
	strQuery = „NEEMT IN Contacten (“ & strFields & „) WAARDEN (“ & strValues & „) op; “
	Op Fout hervat daarna
	objConn.Execute (strQuery)
	Als Err.Number <> 0 toen
		Fout die van MsgBox de „gegevens met vraag opneemt: “ & VbCrLf & strQuery & VbCrLf & „Fout“ & Err.Number & „: “ & Err.Description
		Err.Clear
		Op Fout GoTo 0
	Anders
		Op Fout GoTo 0
		MsgBox „met succes opgenomen Gegevens.“
	Eind als
	objConn.close
	Reeks objConn = niets
Anders
	MsgBox „Onbekwaam te vinden“ & strDBPath
Eind als
Andere oplossingen  
 
programming4us programming4us