---
title: "Skulle gärna vilja ha själp med några saker! [Angående byte från tal till text!]"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/50213-skulle-gärna-vilja-ha-själp-med-några-saker-angående-byte-från-tal-till-text/page3"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "trexter.com"
published: "2002-08-13T13:50:36.000Z"
updated: "2002-08-16T08:55:12.000Z"
replies: 56
views: 1044
page: 3
pages: 3
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/50213-skulle-gärna-vilja-ha-själp-med-några-saker-angående-byte-från-tal-till-text"
---

# Skulle gärna vilja ha själp med några saker! [Angående byte från tal till text!]

_Sida 3 av 3._

## #41 — @nders, 2002-08-15T19:23Z

Vad använder du adovbs.inc till på den här sidan? Om du inte använder den, låt bli att inkludera den. Ännu bättre är att alltid låta bli att inkludera den, och istället definiera enbart de konstanter du ska använda, på aktuell sida.

Vi provar att rensa lite då: 

```
<%
If Request.QueryString("Way") = "sent" Then
    TheString = Request.Form("orderID")
    Response.write "TheString: """ & TheString & """<br>"
End If

If Request.QueryString("Way") = "delivery" Then
    TheString = Request.Form("orderID")
    Response.write "TheString: """ & TheString & """<br>"
End If
%>
```

Kodstycket du postade, är det all kod på sidan?
En fråga som jag måste ställa: Du har kontrollerat så du ändrar i rätt asp-fil? ;)

Mvh,

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

## #42 — solbulle, 2002-08-15T19:27Z

Response.redirect raden är väl också borta antar jag... ;)

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

## #43 — trexter.com, 2002-08-15T19:36Z

Resultat (kom in i If-satsen):
TheString: "45, 56, 78"

(Ja, jag skriver i rätt dokument, skam vore väl annars.  :e Men det är klart, jag brukar kunna klanta till sådant här ganska rejält! ;) )

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

## #44 — trexter.com, 2002-08-15T19:39Z

Hmm, kom på en sak som inte är så bra. Det är meningen att man ska fylla i ett antal tal i en textarea:

1,
34,
56,
789

och sedan ska alltså datumet läggas in på varje rad tillhörande resp. tal. Men med den Split:en jag kör så blir ju vissa nummer, t.ex: " 78" (med ett mellanslag först). Det kan nog ha med saken att göra, eller? Hur ska jag ändra?

 :)

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

## #45 — solbulle, 2002-08-15T19:40Z

Då borde det ju fungera nu?
Testa i din orginalkod med:

trim(TheArray(i))

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

## #46 — @nders, 2002-08-15T19:41Z

Hade du kommenterat bort response.redirect-raden tidigare när du skrev testutskrifter inne i if-blocken?

Dessutom, ett fel i din kod är att du splittar på kommatecken. Du borde splitta på kommatecken *och* mellanslag.

```
TheArray = Split(TheString,", ")
```

När du har textfält istället för talfält så spelar det en jäklarns roll att du har ett mellanslag före varje id i dina UPDATE-queries.

Red: Det hände lite grejer medan jag formulerade mig tydligen. :)

Mvh,

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

## #47 — trexter.com, 2002-08-15T19:48Z

Jodå, Redirecten är borta men \_fortfarande\_ fungerar det inte, inte ens korrektionen av Splitten hjälpte...  :(

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

## #48 — @nders, 2002-08-15T19:52Z

Hur kan det komma sig att utskrift av sql-frågorna inte dyker upp?
Exakt hur ser din kod ut, med testutskrifter och allt?

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

## #49 — trexter.com, 2002-08-15T20:03Z

```
<% 
Response.Buffer = TRUE

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\trexter\a\sdf.mdb;pwd=dfd" 

If Request.QueryString("Way") = "sent" Then
TheString = Request.Form("orderID")

TheArray = Split(TheString,", ")
For i = 0 To Ubound(TheArray)
	Sent = "UPDATE orders SET Sent = '" & Date & "' WHERE orderID = '" & TheArray(i) & "' "
	Connect.Execute(Sent)
Next
End If

If Request.QueryString("Way") = "delivery" Then
TheString = Request.Form("orderID")

TheArray = Split(TheString,", ")
For i = 0 To Ubound(TheArray)
	Delivery = "UPDATE orders SET Delivered = '" & Date & "' WHERE orderID = '" & TheArray(i) & "' "
	Connect.Execute(Delivery)
Next
End If

Connect.Close
Set Connect = Nothing
%>

<br><br>
slut!
```

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

## #50 — trexter.com, 2002-08-15T20:16Z

\*humpf\* Jag tror vi börjar närma oss lösningen:

Sent:UPDATE orders SET Sent = '2002-08-15' WHERE orderID = '67, 89, 89 ' 

någonting skumt med splitten...

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

## #51 — trexter.com, 2002-08-15T20:18Z

Vild gissning: Det ska kanske inte vara några ' runt '" & TheArray(i) & "' iom att orderID är text?

 :q

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

## #52 — ponta, 2002-08-15T20:58Z

```
Hmm, kom på en sak som inte är så bra. Det är meningen att man ska fylla i ett antal tal i en textarea: 

1, 
34, 
56, 
789
```

 

Det kan väl inte vara så att du har fått med vbCrLf i TheString och att den därför inte splittar korrekt på ", "...?

Prova med

TheString = Replace(TheString,Chr(13)&Chr(10),"")
TheArray = Split(TheString,", ")

**Redigerad!** 

Splitten kanske inte ska ha ett mellanslag, försök med:
TheArray = Split(TheString,", ")
om det inte fungerar med det första alt.

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

## #53 — @nders, 2002-08-16T03:59Z

> **trexter.com skrev:**
>
> Vild gissning: Det ska kanske inte vara några ' runt '" & TheArray(i) & "' iom att orderID är text?
> 
>  :q

Jo. ALLTID apostrofer runt värden om fälten är av texttyp.

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

## #54 — trexter.com, 2002-08-16T08:35Z

Ponta: Välkommen till Wf!  :bire 

Jag kör nu dokumentet nedan. **Fortfarande plockas inte bara ett värde ur Arrayen ut utan istället hela strängen.** 
Men ett framsteg är iaf att din kod gjorde så att den splittar rätt. :)

Utskrift av Sent:

```
UPDATE orders SET Sent = '2002-08-16' WHERE orderID = '15,67,89'
```

Skulle du kunna förklara exakt vad den gör: 

```
TheString = Replace(TheString,Chr(13)&Chr(10),"")
```

Anders: :r Blandade ihop saker och ting.

If-blocket:

```
If Request.QueryString("Way") = "sent" Then
TheString = Request.Form("orderID")

TheString = Replace(TheString,Chr(13)&Chr(10),"") 
TheArray = Split(TheString,", ")
For i = 0 To Ubound(TheArray)
	Sent = "UPDATE orders SET Sent = '" & Date & "' WHERE orderID = '" & TheArray(i) & "' "
	Connect.Execute(Sent)
Next
End If
```

 :)

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

## #55 — ponta, 2002-08-16T08:46Z

```
TheString = Replace(TheString,Chr(13)&Chr(10),"") 
TheArray = Split(TheString,", ")
```

 

Den byter ut ev. radbrytningar vbCrLf (CarrigeReturn & LineFeed) mot "", dvs den tar bort alla radbrytningar. Har du provat med att splitta med:

TheArray = Split(TheString,",")

OBS! Utan mellanslag! Jag tror att det är radbrytningen som ser ut som ett mellanslag i webbläsaren. Kör koden igen och skriv ut TheArray(i) med response.write.

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

## #56 — trexter.com, 2002-08-16T08:49Z

Nu ser det ut så här när jag skriver ut Arrayen:
156787 :)

Ska testa att göra det genom en SQL-fråga istället nu, borde väl fungera?!

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

## #57 — trexter.com, 2002-08-16T08:55Z

Jaaaaaaaa!!!!! \*fyrverkeri och salut\*  :o Det fungerar!
\_Verkligen\_ tack till dig ponta och till @nders med.

 :bire  :bire  :bire  :bire  :bire

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/50213-skulle-gärna-vilja-ha-själp-med-några-saker-angående-byte-från-tal-till-text/page3  
Föregående sida: https://www.webforum.nu/amne/asp/50213-skulle-gärna-vilja-ha-själp-med-några-saker-angående-byte-från-tal-till-text/page2.md