Kommer itne på någon bra rubrik...

13 svar · 259 visningar · startad av Jacob 13 juni 2001

JacobMedlem sedan dec. 2000503 inlägg

Frågan13 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]

RossifumiMedlem sedan okt. 20001 558 inlägg

13 juni 2001 16:20#2

Vad är det du vill ha hjälp med?
Göra formuläret?

------------------
"When the 500 isn't right, you're in hell, when a Superbike isn't right, it's ok"
Valentino Rossi, Nastro Azurro Honda

JacobMedlem sedan dec. 2000503 inlägg

13 juni 2001 17:15#3

Nej, själva funktionen för att dela upp texten, så att rätt information kommer i rätt cell i tabellen

------------------
ja©ob

cyprysMedlem sedan dec. 20003 563 inlägg

13 juni 2001 17:38#4

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.

------------------
MVH // Cyprys
Cyprys
Synd att du inte kan köpa en voodoojordglob och sedan snurra på den fort som fan och skrämma skiten ur alla.

[Redigerat av cyprys den 13 jun 2001]

JacobMedlem sedan dec. 2000503 inlägg

14 juni 2001 07:55#5

Jag fattar inte det finns ju inga "," så det hjälper ju inte.

------------------
ja©ob

PatrikBMedlem sedan mars 20002 836 inlägg

14 juni 2001 08:12#6

Jag fattar inte det finns ju inga "," så det hjälper ju inte

Vad är detta:
"Förra veckan", "Antal veckor", " ...... etc.

cya,
PatrikB

------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*

JacobMedlem sedan dec. 2000503 inlägg

14 juni 2001 08:40#7

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.

------------------
ja©ob

JacobMedlem sedan dec. 2000503 inlägg

14 juni 2001 11:34#8

Är det ingen som kan detta?

------------------
ja©ob

JanspeedMedlem sedan jan. 2001510 inlägg

14 juni 2001 13:36#9

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

JacobMedlem sedan dec. 2000503 inlägg

14 juni 2001 14:19#10

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.

JacobMedlem sedan dec. 2000503 inlägg

14 juni 2001 18:17#11

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.

ToonsterMedlem sedan feb. 20001 590 inlägg

14 juni 2001 19:17#12

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.

------------------
WRITE_PORT_ULONG(devExt->Mymessage,SMART_WRITE_ACK);

JacobMedlem sedan dec. 2000503 inlägg

14 juni 2001 19:25#13

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

JacobMedlem sedan dec. 2000503 inlägg

15 juni 2001 06:43#14

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&ouml;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. :e