Slitning och sådant

JacobMedlem sedan dec. 2000503 inlägg

Frågan25 sep. 2001 15:41#1

Hej jag får varje vecka en lista skickad till mig som ser ut på följande vis: http://www.lindehoff.com/listan.txt

Nu vill jag ha ut följande information och lägga till i min databas:
FV, AV, titel, Regissör, Kategori, Produktionsland och Videobolag.

Problemet är att jag är så otroligt dålig på split och allt där till. Är det någon som kan ge mig en hint om hur jag ska göra.

[Redigerat av Jacob den 25 sep 2001]

MikeEastMedlem sedan sep. 200153 inlägg

25 sep. 2001 16:19#2

Ey, kompis..

Jag skrev en sån där grej för några månader sen som du skulle kunna använda..

Owella..

Nu antar jag att du kan kapa bort skräpet längst upp i din fil(eller skriva en modifikation som gör det).

Jag antar även att din textfil är delimiterad med tabbar, vilket den ser ut att vara.. Om det är blanksteg kommer det att bli lite klurigare.. Men nu kör vi på tabb..

' --------------------------------------------------------------------------------------------------
' Public Method InsertDataUpdateProcess
' Author: Mikael Östberg
' Parameters: Any valid filename of subtype String.
' Return value: n/a
Public Sub InsertDataUpdateProcess(strFilename)
	On error Resume Next			
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set ts = fso.OpenTextFile(server.mappath("/") & "\admin\uploadData\" & strFilename, 1)
	strData = ts.ReadAll
	ts.Close
	
	arrData = Split(strData, vbNewLine)
	intTotal = Ubound(arrData)
	
	If intTotal = 0 Then Exit Sub
	
	For ix = 0 To Ubound(arrData)-1
		On Error Resume Next
		arrDetail = Split(arrData(ix), chr(9))
		
		' Get the values
		strSerialNumber = Trim(arrDetail(0))
		intUnitPrice = Trim(arrDetail(1))
		strProductName = Trim(arrDetail(2))
		strProductDescription = Trim(arrDetail(3))
					
		Connection.Execute("INSERT INTO tblProducts(strSerialNumber, intUnitPrice, strProductName, strProductDescription) VALUES('" & strSerialNumber & "'," & intUnitPrice & ",'" & strProductName & "','" & strProductDescription & "')")
	Next
End Sub

Du får nog modifiera koden lite, så den passar de parametrar du vill mata in.. Du får nog modifiera en hel del annat också.. Fel felhantering och sånt..

Lycka till och säg till om det inte funkar..

.m.

------------------
Alltså.. Det är vad jag tycker..