cortar cadenas de String

Laura
26 de Abril del 2004
tengo la siguiente cadena de string:
lin = DB_DIRECTORY &"contentcon" & id&".xml"
y nesecito cortar el string en el "." antes del xml y descpues del con para extraer el id...

Gracias

Miguel
26 de Abril del 2004
No acabo de entenderlo, por el codigo que pones, id es una variable que concatenas para formar LIN, por tanto el id que te interesa està en esa variable, simplemente usala.

laura
26 de Abril del 2004
gracias ya lo resolvi.. esto es lo que nesecitaba... pero gracias igual..
besos

Dim dig
Dim IdFinal, numero, i
Dim largo
Dim MiComprobacion

largo = len(sFile)
dig = mid(sFile, largo - 7, 4)
MiComprobacion = IsNumeric(dig)

if MiComprobacion= False then
for i=1 to 4
numero=mid(dig,i,1)

MiComprobacion = IsNumeric(numero)
if MiComprobacion = true then
IdFinal= IdFinal & numero
end if
next
end if
sNode = "siteinfo/pages/page[id="& IdFinal &"]"
else
sNode = URLDecode(oFO.Form("node"))
end if