---
title: "Stringar igen =)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/74148-stringar-igen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Wowbagger"
published: "2003-04-15T11:08:47.000Z"
updated: "2003-04-15T15:21:10.000Z"
replies: 10
views: 278
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/74148-stringar-igen"
---

# Stringar igen =)

## #1 — Wowbagger, 2003-04-15T11:08Z

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"

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

## #2 — Sebbe, 2003-04-15T11:21Z

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, " ")
```

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

## #3 — Wowbagger, 2003-04-15T11:25Z

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)

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

## #4 — alj, 2003-04-15T11:27Z

\<%
Dim Str1, Str2, Str3
Str1 = "grön"
Str2 = "grön"
Str3 = Str1 + Str2
%\>

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

## #5 — Sebbe, 2003-04-15T11:27Z

Menar du såhär?

```
strNy = strGammal1 & strGammal2 & strGammal3 '.....
```

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

## #6 — Wowbagger, 2003-04-15T11:32Z

Stort tack, ser mycket bra ut =)

ska kolla om detta funkar så fort access är nerladdat och databasen skapad  :D

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

## #7 — #L#, 2003-04-15T11:33Z

> access är nerladdat

hm..?

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

## #8 — alj, 2003-04-15T11:34Z

> **\#L# skrev:**
>
> > access är nerladdat
>
> 
> hm..?

Han kanske laddar ned det ifrån hans office cd-skiva ;)

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

## #9 — Wowbagger, 2003-04-15T11:37Z

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
%\>

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

## #10 — KoTTeN, 2003-04-15T15:11Z

Det var en hiskeligt lång Select Case :)
Varför inte göra såhär istället?

```
a1 = Mid(text,i,1)
```

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

## #11 — KoTTeN, 2003-04-15T15:21Z

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å.  :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/74148-stringar-igen