Tja!

Har en textsträng som kan se ut enligt följande:

blabla (c) bla bla *blabla* *blabla*
eller
blabla *blabla* *blabla*

Just nu anväder jag jag koden:
<code>
title = rss.titles(i)
arrTitle = Split(title,"*")
strTitle = arrTitle(0)
</code>

Men jag skulle vilja att den även splittar vid "(" på de strängar som har det tecknet.
Summa summarum: Jag vill endast skriva ut det första "blabla"

Någon som kan visa hur jag ska göra :)

Mvh Andreas

Har inte riktigt koll på vad du menar, men såhär kanske?

<code>
title = rss.titles(i)
arrTitle = Split(title,"*")
arrTitle = Split(title,"(")
strTitle = arrTitle(0)
</code>

/Johan

använd regular expressions.
Det finns bra dokumentation om den i MSDN library.

Du kan också kolla på funktionerna Replace, Mid och Instr. För att få bort "(c)" från strängen kan du köra Replace(title, "(c)", ""). Med hjälp av Mid och Instr kan du lätt välja ut en viss del av en sträng. Eller... använda regular expressions som är bättre men något krångligare.

/Pelle

<code>
Dim tempString As String
tempString = "blabla (c) bla bla *blabla* *blabla*"
tempString = Left(tempString, InStr(1, tempString, " ") -1)
</code>

Thomas

Med din snutt får jag bara ut det första ordet. Kanske ska tillägga att en sträng även kan se ut såhär:
"blabla blabla (c) bla bla *blabla* *blabla*"

Vill alltså ha med det 2 första blabla :)

Mvh Andreas

Vad tror du om det här.

Visserligen VB-kod men...

<code>
Sub main()

Dim title As String
Dim strTitle As String

title = "blabla (c) bla bla *blabla* *blabla*"
strTitle = getTextstartDelimiter(title, "*")
strTitle = getTextstartDelimiter(strTitle, "(c)")
Debug.Print strTitle

title = "blabla *blabla* *blabla*"
strTitle = getTextstartDelimiter(title, "*")
strTitle = getTextstartDelimiter(strTitle, "(c)")
Debug.Print strTitle

title = "blabla blabla (c) bla bla *blabla* *blabla*"
strTitle = getTextstartDelimiter(title, "*")
strTitle = getTextstartDelimiter(strTitle, "(c)")
Debug.Print strTitle

End Sub



Public Function getTextstartDelimiter(ByVal aText As String, Optional ByVal delimiter As String = " ") As String
On Error Resume Next
getTextstartDelimiter = Split(aText, delimiter)(0)
End Function
</code>


//
Janne

Hmm... du skrev först att du bara ville ha ut det första ordet?
>Summa summarum: Jag vill endast skriva ut det första "blabla"

Exakt vad är det du vill göra? Ha ut dom två första orden? Eller ha ut allt som kommer före något tecken (tex "(")? Eller nått annat?


Thomas

Sorry... jag formulerade mig lite klantigt.

Jag vill ha ut allt som är innan (c).
Men alla strängar har inte ett (c) utan då är det allt innan * som gäller.


Hoppas jag förklarat lite mer korrerkt nu :)

Mvh Andreas

<code>
Dim s As String

'välj vilken sträng som gäller:
's = "blabla (c) bla bla *blabla* *blabla*"
s = "blabla *blabla* *blabla*"

If InStr(1, s, "(c)") > 1 Then
s = Left(s, InStr(1, s, "(c)" -1))
Else
s = Left(s, InStr(1, s, "*") -1))
End If
</code>

Det där borde fungera...

Thomas

Tja!

Jag får felet:
Slut på programsats förväntas.
s = Left(s, InStr(1, s, "*") -1))

Dessutom kan jag inte skriva "Dim s As String". Då ballar den ur.

Vad gör jag för fel?

<code>
For Each i in rss.Results

title = rss.titles(i)

Dim s
s = title

If InStr(1, s, "(c)") > 1 Then
s = Left(s, InStr(1, s, "(c)" -1))
Else
s = Left(s, InStr(1, s, "*") -1))
End If
</code>


Mvh Andreas

Oj... jag såg inte att det var asp det handlade om.

<code>
Dim s

'välj vilken sträng som gäller:
's = "blabla (c) bla bla *blabla* *blabla*"
s = "blabla *blabla* *blabla*"

If InStr(1, s, "(c)") > 1 Then
s = Left(s, InStr(1, s, "(c)") -1)
Else
s = Left(s, InStr(1, s, "*") -1)
End If
</code>

Thomas

Så.... nu funkar det :) Danke shöööööön!

Mvh Andreas