estrapolare stringa

[christian08]

vorrei ricarvare una stringa da una o più parole


es stringa

ciao ciao (223)
prova (22)
s s s (1)
s(aaaa)
io su ogni stringa avrò sempre (**)
devo riuscire ad ottenere la stringa senza le parentesi e il valore all'interno

quindi nel caso riportato sopra

dovrei ottenere:

ciao ciao
prova
s s s
s
come posso fare?

[KataKlism2002]

stringaConParentesi = "ciao ciao(123)"
stringaDaStampare = left(stringaConParentesi, instr(stringaConParentesi,"(")-1)

[lukeonweb]

dim stringa, s

stringa = "ciao ciao (223)"

s = split(stringa, "(")

response.write s(0)

[Fichico]

supponendo che il testo arrivi da un campo text denominato "testo" di una form:

dim strin1, testo
strin1 = Split(request.form("testo"),"(")
testo = strin1(0)
response.Write Left(testo,Len(testo)-1)

questo ti da già il testo senza lo spazio che precede la parentesi:

ciao ciao (123) -> "ciao ciao"

[willybit]

ciao a tutti,

i metodi proposti vanno bene se le parentesi sono solo alla fine della stringa... e se ce ne fossero di più? del tipo
"ciao ciao (223) prova (22) s s s (1) s(aaaa)"

visto che me piacciono tanto le RegularExpression dico pure la mia :gren:

Set RE = CreateObject("VBScript.RegExp")
RE.Pattern="\([^)]*\)"
RE.Global=true
stringa = "ciao ciao (223) prova (22) s s s (1) s(aaaa)"
stringa2 = RE.Replace(stringa,"")

[christian08]

grazie mille a tutti ora li provo