13 svar · 660 visningar · startad av Zaiboot
Har ett problem:
plockar data från en databas som skrivits in av ett program värdet ser ut så här: "1020000011123344"
Hur ska jag få ut varje tecken för sig själv?
Typ:
tal1 = "1"
tal2 = "0" osv
Kan inte äns hitta det nånstans, hjälp mig!!
Hej, för att kunna göra en split måste du ha en avgränsare mellan varje siffra.
Mvh Jörgen :)
------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.
Skapa en array som innehåller varje enkild siffra.
str = cstr(rs("aleb"))
dim arr()
size = len(str)
redim arr(size-1)
for i = 1 to size
arr(i-1) = mid(str,i,1)
next
------------------
essentitia preter non sans multiplicandum
[Redigerat av LarsG den 17 jan 2002]
Tackar Lars G
Ska testa det
Jag är novicare än novicast nu kan jag inte ens få en redan skriven kod snutt att funka. Testa Lars G's förslag att den returerar:
Ogiltigt proceduranrop eller argument.: 'mid'
Nån som kan hjälpa en helt förtappad själ?
Det är mitt fel. Jag skrev lite fel på raden som innehåller mid
arr(i-1) = mid(str,i,1)
så skall det se ut.
------------------
essentitia preter non sans multiplicandum
nu klagar han på raden dim arr() och säger: Inkompatibla typer
Har du lust att ta en titt på min "hela" kod och kanske hjälpa mig?
Här kommer en del av koden
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/projekt/idle/log.mdb")
SQL = "SELECT * FROM log1 where datum like '%" & datum & "%' and name like '%" & name & "%' Order by name"
Set RS = Connection.Execute(SQL)
%>
<html>
<head>
<title>-Projekt sida, Idle log-</title>
</head>
<body>
<%
Do until RS.EOF
name= rs("name")
ip = rs("ip")
dag = rs("dag")
datum = rs("datum")
%>
<p>Namn: <%= name %></p>
<p>IP: <%= ip %></p>
<p>Dag: <%= dag %></p>
<p>Datum: <%= datum %></p>
<%
str = cstr(rs("dag"))
dim arr()
size = len(str)
redim arr(size-1)
for i = 1 to size
arr(i-1) = mid(str,i,1)
next
%>
// ska lägga sedan så jag kan använda arr(x) i if satser för att bestämma bg färgen på celler i en tabell
<p>---------------------------</p>
<%
RS.MoveNext
Loop
RS.close
%>
Hoppas du kan hjälpa mig.
Jag tror att problemet beror på att du har dim arr() innanför loopen så om du flyttar före do så ...
<%
dim arr()
Do until RS.EOF
name= rs("name")
ip = rs("ip")
dag = rs("dag")
datum = rs("datum")
%>
<p>Namn: <%= name %></p>
<p>IP: <%= ip %></p>
<p>Dag: <%= dag %></p>
<p>Datum: <%= datum %></p>
<%
str = cstr(rs("dag"))
size = len(str)
redim arr(size-1)
for i = 1 to size
arr(i-1) = mid(str,i,1)
next
%>
// ska lägga sedan så jag kan använda arr(x) i if satser för att bestämma bg färgen på celler i en tabell
<p>---------------------------</p>
<%
RS.MoveNext
Loop
RS.close
%>
------------------
essentitia preter non sans multiplicandum
Tack tack, nu funkar det=)
Vad är detta för stil? ingen har sagt välkommen till Zaiboot!!!!!
så då säger jag det: Välkommen Zaiboot! :e
------------------
^FreeZer^
------------------
"Om du läser denna mening en gång till, kommer du att ha läst den minst två gånger..."