---
title: "Slitning och sådant"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11770-slitning-och-sådant"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jacob"
published: "2001-09-25T15:41:00.000Z"
updated: "2001-09-25T16:19:00.000Z"
replies: 1
views: 169
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11770-slitning-och-sådant"
---

# Slitning och sådant

## #1 — Jacob, 2001-09-25T15:41Z

Hej jag får varje vecka en lista skickad till mig som ser ut på följande vis: [http://www.lindehoff.com/listan.txt](http://www.videomonitor.nu/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\]

\[Redigerat av Jacob den 25 sep 2001\]

Permalänk: https://www.webforum.nu/p/11770

## #2 — MikeEast, 2001-09-25T16:19Z

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.

Permalänk: https://www.webforum.nu/p/287295

---

Tråden på webben: https://www.webforum.nu/amne/asp/11770-slitning-och-sådant