finns det nått bra sätt att spara stingar i array variabler?
och hur förlänger man stringar?
om man har stringen "grön" och vill ha strängen "gröngröngröngröngröngröngröngrön"
Stringar igen =)
10 svar · 258 visningar · startad av Wowbagger
Hur menar du? Ska du spitta efter ett visst tecken eller efter ett visst antal bokstäver? Detta splittar efter varje blanksteg:
arrArray = Split(strString, " ")
problemet har ändrat sig, nu undrar jag bara hur man förlänger strängar (lägger ihop dom) (läs första inlägget)
<%
Dim Str1, Str2, Str3
Str1 = "grön"
Str2 = "grön"
Str3 = Str1 + Str2
%>
Stort tack, ser mycket bra ut =)
ska kolla om detta funkar så fort access är nerladdat och databasen skapad :D
så här ser det ut just nu, ser ni några fel?
<html>
<head>
<title>Kryptering</title>
</head>
<body>
<FORM method="post" action="vieage.asp">
Text: <input type="text" name="text"><br>
Kryptering: <input type="text" name="nyckel">
<input type="submit" name="Submit" value="kryptera">
</form>
<%
Response.Buffer = True
Dim Conn, RecSet, SQL
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\roes\db\krypt.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
if REQUEST.FORM("text") <> "" and REQUEST.FORM("nyckel") <> "" then
text = REQUEST.FORM("text")
key = REQUEST.FORM("nyckel")
for i = 1 to Len(text)
key = key+key
next
For i = 1 To Len(text)
a2 = Mid(key,i,1)
Select Case Mid(text,i,1)
Case "a" a1=a
Case "b" a1=b
Case "c" a1=c
Case "d" a1=d
Case "e" a1=e
Case "f" a1=f
Case "g" a1=g
Case "h" a1=h
Case "i" a1=i
Case "j" a1=j
Case "k" a1=k
Case "l" a1=l
Case "m" a1=m
Case "n" a1=n
Case "o" a1=o
Case "p" a1=p
Case "q" a1=q
Case "r" a1=r
Case "s" a1=s
Case "t" a1=t
Case "u" a1=u
Case "v" a1=v
Case "w" a1=w
Case "x" a1=x
Case "y" a1=y
Case "z" a1=z
Case "å" a1=å
Case "ä" a1=ä
Case "ö" a1=ö
End Select
SQL = "SELECT a1 FROM vigenere where xx=a2"
rs.Open SQL, Conn, 3, 3
Response.Write("<%=rs(a1)%>")
next
end if
rs.Close
Conn.Close
%>
Annars ang koden ovan kan du inte ha detta på samma rad: Case "ö" a1=ö
Utan:
Case "ö"
a1=ö
Allternatift om du drar ihop raderna, men då måste du skilja dom åt med kolon:
Case "ö" : a1=ö
Sen underlättar det alltid om du kopierar in felmeddelandet samt markerar vilken rad felet pekar på. :)