Fråga : Jag behöver att läsa en text sparar och kartlägger den till en ta fram bordlägger

Jag har en text att spara (contactdata.txt) den looksnågot liknande detta:

FirstName = First
LastName = Last
SocialSecurityNumber = 123-45-6789
Address = 100 N huvudsakliga Street
City = din City
State = State
Zip = 12345-1234
submit_by = [email protected]
HomePhone = 800-555-1212

What för/>CellPhone = för 123-555-1212
(inte avsluta av spara, spara fortsätter) som, jag behöver att utföra, är att skapa en vba skrivar att, när en befalla knäppas, klickas den ska skriva läser texten sparar från den är läge (C:\TextFiles\contactdata. txt) och fästar datan till det riktigt sätter in i ett existerande tar fram bordlägger namngiven riktning för contacts.

Your i portion som jag utför skulle denna är mycket appreciated.

 Related lösningar för class= ": " title= " för How för att låta nolla-längd stränger värderar och sparar storleksanpassar question

Svar : Jag behöver att läsa en text sparar och kartlägger den till en ta fram bordlägger

Hi där, du kan försök detta skriva, som är VBS kodifierar.  Du kan ändra läget av DBEN, och texten sparar med strDBPath och strTextFile.

Hälsningar,

Råna.
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:

Fastställd objConn = CreateObject (”ADODB.Connection”)
strDBPath = ”C:\Temp\Users.accdb”,
strTextFile = ”C:\Temp\Users.txt”,
Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
intForReading = av 1
Om objFSO.FileExists (strDBPath) = True därefter
	strMDBPath = objFSO.GetFile (strDBPath) .ShortPath
	objConn.Open ”Provider=Microsoft.ACE.OLEDB.12.0; Data Source=” & strDBPath &”; Framhärdar säkerhet Info=False; ”,
	'objConn.Open ”Provider=Microsoft.Jet.OLEDB.4.0; Data Source=” & strDBPath &”; ”,
	'objConn.Open ”Provider=Microsoft.Jet.OLEDB.4.0; Data Source=” & strDBPath &”; Spruta ut OLEDB: Databas Password=password; ”,
	'objConn.Open ”Driver= {Microsoft Accesschauffören (*.mdb)}; DBQ=” & strDBPath &”; ”,
	Fastställdt objFile = objFSO.OpenTextFile (strTextFile, intForReading som är falsk)
	strFields = "",
	strValues = "",
	Stunder inte objFile.AtEndOfStream
		strLine = klippning (objFile.ReadLine)
		Om strLine <> "" därefter
			Om InStr (strLine, ”=”) > 0 därefter
				strFieldName = lämnad, klippning ((strLinen, InStr (strLine, ”=”) - 1))
				strValue = mitt-, klippning ((strLinen, InStr (strLine, ”=”) + 1))
				Om strFields = "" därefter
					strFields = ”[” & strFieldName & ”]”,
				Annars
					strFields = strFields & ”, [” & strFieldName & ”]”,
				Avsluta om
				Om strValues = "" därefter
					strValues = ””” & strValue & ”” ”,
				Annars
					strValues = strValues & ”, ”” & strValue & ”” ”,
				Avsluta om
			Avsluta om
		Avsluta om
	Wend
	objFile.Close
	strQueryen = ”MELLANLÄGGET IN I kontakter (” & strFields & ”) VÄRDERAR (” & strValues & ”); ”,
	På felmeritförteckning därefter
	objConn.Execute (strQuery)
	Om Err.Number <> 0 därefter
		MsgBox ”fel som sätter in data med query: ” & VbCrLf & strQuery & VbCrLf & ”fel” & Err.Number & ”: ” & Err.Description
		Err.Clear
		På fel GoTo 0
	Annars
		På fel GoTo 0
		MsgBox ”data som lyckat sätts in.”,
	Avsluta om
	objConn.close
	Fastställd objConn = ingenting
Annars
	Oförmögna MsgBox ”att finna” & strDBPath
Avsluta om
Andra lösningar  
 
programming4us programming4us