J Jacob Medlem sedan dec. 2000 503 inlägg Trådstart 13 juni 2001 15:49 #1 Varje vecka får jag en fil, som ser ut så här: Listan.txt
Setta ska in i min databas (access 2000), Frågan är ur jag gör för att dela upp texen. Jag vill alltså bara klistra in texten från filen i ett fomulär och sedan ska de delas upp. De som ska vara med i databasen är:
"Förra veckan", "Antal veckor", "Filmtitel", "Regissör / Kategori / Produktionsland / Videobolag"
Den sista kan ligga i samma cell
Hoppas ni förstå detta annars kan ni fråga, jag har nämligen ingen arning om hur jag ska börja.
[Redigerat av Jacob den 13 jun 2001]
[Redigerat av Jacob den 13 jun 2001]
Vad är det du vill ha hjälp med?
Göra formuläret?
J Jacob Medlem sedan dec. 2000 503 inlägg Nej, själva funktionen för att dela upp texten, så att rätt information kommer i rätt cell i tabellen
cyprys Medlem sedan dec. 2000 3 563 inlägg Du borde väl bara kunna skapa en array genom att splita vid varje "," kommatecken.
Sen kör du bara en For each - sats för varje del av arrayen där det körs en INESRT/UPDATE-fråga.
Det skulle väl om inte annar få dig några idéer att tänka på och genomföra.
J Jacob Medlem sedan dec. 2000 503 inlägg Jag fattar inte det finns ju inga "," så det hjälper ju inte.
P PatrikB Medlem sedan mars 2000 2 836 inlägg
Jag fattar inte det finns ju inga "," så det hjälper ju inte
Vad är detta:
"Förra veckan", "Antal veckor", " ...... etc.
cya,
PatrikB
J Jacob Medlem sedan dec. 2000 503 inlägg Det är ju jag som har skrivit vad som ska finnas med i tabellen, Kolla i filen jag länkar till i första inlägget, så det texten ut när jag får den.
J Jacob Medlem sedan dec. 2000 503 inlägg Är det ingen som kan detta?
J Janspeed Medlem sedan jan. 2001 510 inlägg Hur tusan får du ut nånting av den nu då? När jag tankar den så är allt på en enda rad?
Finns det inga tabbar eller liknande som separerar den?
/JANspeed
J Jacob Medlem sedan dec. 2000 503 inlägg Inga tabbar, men jag tror att det är radbrytningar. Jag får iaf radbrytningar.
Testa att klistra in det med oformaterad test i word, klicka sedan på "Paragraftecknet" för att visa alla tecken och sått.
J Jacob Medlem sedan dec. 2000 503 inlägg Om det är någon som känner med sig att detta är omöjligt så säg det så att jag kan ge upp.
Toonster Medlem sedan feb. 2000 1 590 inlägg Kolla om du inte kan få sen i ett annat format, teckenseparerat el dyl.
Då kan du importera datan direkt i Access med ex. en uppdateringsfråga.
/T
J Jacob Medlem sedan dec. 2000 503 inlägg Jag kan ju inte de, denna lista skickas till massa msk och jag tror inte att det är villiga att ändra bara för min skull
J Jacob Medlem sedan dec. 2000 503 inlägg Nu så:
<html>
<link rel="stylesheet" href="main_css.css" type="text/css">
<title>Ny Releasplan</title>
<!-- #include file="adovbs.inc" -->
<!-- #include file="check-b-1.inc" --> <%'kollar att man är behörig att lägga in och statar en db-koppling%>
<p class="rubrik">Du har nu laggt till följand Lista!</p>
<table width="100%" cellpadding="5">
<tr>
<td><b>Placering</b></td>
<td><b>Förra Veckan</b></td>
<td><b>Antal veckor</b></td>
<td><b>Titel</b></td>
<td><b>Info</b></td>
</tr>
<%
strFilen = Request.form("text")
' först så rensar vi bort vad som är ointressant.
connect.execute("delete from hyrlista")
varFileInfo = Split (strFilen, "FV AV" & vbCrLf)
strFilen = varFileInfo(1)
varPlaceringar = Split (strFilen, vbCrLf & "Filmtitel" & vbCrLf)
strFilen = varPlaceringar (1)
strPlaceringar = varPlaceringar(0)
varFilmtitlar = Split (strFilen, vbCrLf & "Skådespelare" & vbCrLf)
strFilen = varFilmtitlar (1)
strFilmtitlar = varFilmtitlar (0)
varSkadisar = Split (strFilen, vbCrLf & "Regissör / Kategori / Produktionsland / Videobolag" & vbCrLf)
strFilen = varSkadisar (1)
strSkadisar = varSkadisar (0)
varInfo = Split (strFilen, vbCrLf & "Dee Jay Promotions, Box 1363, S-172 27 Sundbyberg, Sweden.")
strFilen = varInfo (1)
strInfo = varInfo (0)
' nu har vi allt vi vill ha i strPlaceringar, strFilmtitlar, strSkadisar och strInfo
' då rensar vi alla arrayer för säkerhets skull.
varFileInfo = empty
varPlaceringar = empty
varSkadisar = empty
varInfo = empty
varPlacSplitted = split(strPlaceringar, vbCrLf)
varFilmSplitted = split(strFilmtitlar, vbCrLf)
varSkadSplitted = split(strSkadisar, vbCrLf)
varInfoSplitted = split(strInfo, vbCrLf)
intCount = ubound(varPlacSplitted)-1
p=1
for i = 0 to intCount
varPlacSplitted2 = split (varPlacSplitted(i), " ")
strSQL = "INSERT INTO hyrlista (placering, forra, antal, titel, skad, info) "
strSQL = strSQL & "VALUES ('" & p & "', '" & varPlacSplitted2(0) & "', '" & varPlacSplitted2(1) & "', "
strSQL = strSQL & "'" & replace(varFilmSplitted(i), "'", "''") & "', '" & varSkadSplitted(i) & "', '" & varInfoSplitted(i) & "')"%>
<tr>
<td><%=p%></td>
<td><%=varPlacSplitted2(0)%></td>
<td><%=varPlacSplitted2(1)%></td>
<td><%=varFilmSplitted(i)%></td>
<td><%=varInfoSplitted(i)%></td>
</tr>
<%connect.Execute(strSQL)
p=p+1
next%>
</table>
<a href="JavaScript: history.go(-1)">Tillbaka</a>
<!-- #include file="check-b-2.inc" --><%' Stänger db-kopplingen
varPlacSplitted = empty
varPlacSplitted2 = empty
varFilmSplitted = empty
varSkadSplitted = empty
varInfoSplitted = empty
%>
Om i nu trodde att jag klarade det här själv så tror ni FEL, egentligen så behöver ju inte jag skriva vem det var för det har ju ni redan listat ut.
Jätte stort tack @nders.