i en sträng

6 svar · 230 visningar · startad av asp 1 aug. 2003

aspMedlem sedan aug. 2002733 inlägg

Frågan1 aug. 2003 22:47#1

om jag vill kolla om det finns något ord som heter kompis i en sträng hur gör jag då?

så här liksom:

str = "jag har en kompis tror jag"
If [red]det innehåller kompis[/red] Then
 Response.Write("strängen innehåller ordet kompis")
Else
 Response.Write("inget resultat")
End if

aspMedlem sedan aug. 2002733 inlägg

1 aug. 2003 23:11#2

klarade det !!

Behöver istället hjälp med hur man kollar vad som finns mellan två mellanrum (blanksteg) och ett blanksteg+ett bindestreck.

Tex:

Match Cup[blue]  [/blue][red]GAIS[/red][blue] - [/blue]Amica

Blå bestämmer vad den skallb börja samt sluta och röd är resultaet.

GlitterMedlem sedan juli 2003465 inlägg

1 aug. 2003 23:23#3

a = instr(str, " ")
b = instr(str, " -")
text = mid(text, a, a - b)

borde funka har inte testat

aspMedlem sedan aug. 2002733 inlägg

1 aug. 2003 23:43#4

Error Type:
Körningsfel i Microsoft VBScript (0x800A0005)
Ogiltigt proceduranrop eller argument.: 'mid'

aspMedlem sedan aug. 2002733 inlägg

1 aug. 2003 23:48#5

Har stött på stora problem.

Det jag vill göra är att hämta information från en sträng. Detta vill jag hämta: datum, motstandare, spelplan, gjorda, inslappta samt typ av match.

Här är ett exempel på hur strängarna ser ut:

2003-08-01 21:00 Kompisligan: PCpriser.nu League div2
Team Mixon - Amica Wronki 0 - 2

2003-08-01 19:00 Träning
Palestora SV - Amica Wronki 3 - 0

2003-08-01 15:00 Kompisligan: Cuba Cola-ligan V
AC Pruttkudde - Amica Wronki 2 - 4

Skulle någon kunna göra detta är jag väldigt tacksam.

SebbeMedlem sedan jan. 20032 285 inlägg

3 aug. 2003 19:57#6

<%
strInfo = "2003-08-01 21:00 Kompisligan: PCpriser.nu League div2"
strMatch = "Team Mixon - Amica Wronki 0 - 2"
arrInfo = Split(strInfo)
arrMatch = Split(strMatch, " - ")

strDate = arrInfo(0)
strTyp = Left(arrInfo(2), 1)

If LCase(Trim(arrMatch(0))) = "amica wronki" Then
  strPlan = "Hemmaplan"

  For i = 1 To Len(arrMatch(1))
    If NOT IsNumeric(Mid(arrMatch(1), i, 1)) Then
      strMot = strMot & Mid(arrMatch(1), i, 1)
    Else
      Exit For
    End If
  Next
Else
  strPlan = "Bortaplan"
  strMot = arrMatch(0)
End If

intHemma = CInt(Right(arrMatch(1), 1))
intBorta = CInt(arrMatch(2))

With Response
  .Write("Datum: " & strDate & "<br>" & vbCrLf)
  .Write("Matchtyp: " & strTyp & "<br>" & vbCrLf)
  .Write("Spelplan: " & strPlan & "<br>" & vbCrLf)
  .Write("Motståndare: " & strMot & "<br>" & vbCrLf)
End With

If strPlan = "Hemmaplan" Then
  Response.Write("Gjorda: " & intHemma & "<br>" & vbCrLf)
  Response.Write("Insläppta: " & intBorta)
Else
  Response.Write("Gjorda: " & intBorta & "<br>" & vbCrLf)
  Response.Write("Insläppta: " & intHemma)
End If
%>

aspMedlem sedan aug. 2002733 inlägg

3 aug. 2003 20:32#7

man tackar så hemskt mkt Sebbe.