Detectar dos splits seguidos

[eeeee]

Hola:
Estoy intentando cerrar entre paréntesis a cualquier número que haya en un nombre de archivo, pero no quiero encerrarlo si el siguiente es también numérico.
Para ello estoy utilizando este código:

Código PHP:

  arreglo = split(OldName,"_")
for a = LBound(arreglo) to Ubound(arreglo)
 
for i=1900 to 2007
 
if IsNumeric(arreglo(a)) and IsNumeric(arreglo(a+1)) then
nada
else
NewName=replace(OldName,i,"("&i&")")
end if
next
next 
   

Pero me arroja el error '800a0009'
El subíndice está fuera del intervalo: '[number: 3]' en la linea del if IsNumeric

Alguien me puede dar una pista de cómo se puede hacer ??

Gracias

[Myakire]

Dame un ejemplo de que es lo que quieres, please

¿Archivo1.txt deberia ser archivo(1).txt pero Archivo11 no debe ser archivo(11)?

No me queda claro

[eeeee]

Hola Myakire:
El ejemplo está puesto en el código pero te pongo uno y así se ve mejor:
u2_the_best_of_1960_1970_front.jpg (no debe llevar los ())
u2_dublin_1993_back.jpg ( Debe quedar asi: u2_dublin_(1993)_back.jpg )
O sea cuado dos split seguidos sean numericos no hacer nada.
Salu2

[Myakire]

algo rápido (falta definir si siempre seguira ese criterio la cadena)

Código:

<%
'cadena = "u2_the_best_of_1960_1970_front.jpg"
cadena = "u2_dublin_1993_back.jpg"

vec = split(cadena, "_")
Cnt = 0
Veces = 0
For i=0 to Ubound(vec)
   On Error Resume Next
      Valor = CInt(vec(i))
   If Err.number<>0 then Valor = "" End If
	 If VarType(Valor)=2 Then
	    If Veces=0 Then Cnt = i End If  
			Veces = Veces + 1
	 End If
Next 
If Veces=1 Then vec(Cnt) = "(" & vec(Cnt) & ")" End If
NewCad = Join(vec,"_")

Response.Write Cadena & "  -> "& NewCad 
%>

[eeeee]

Bien Myakire, funciona perfecto pero si hay un split por ejemplo así: _1_
este 1 lo encierra entre paréntesis.
Yo necesito que vaya en el intervalo de 1900 hasta 2007.
Voy a intentar hacerle ese bucle aunque creo que tu lo implementarías mejor.

Salu2

[Myakire]

ok, dame unos minutos por que ando un poco ocupadillo, pero de hoy no pasa

[eeeee]

Ya le puse el bucle quedando el código así:

Código PHP:

  <%
cadena = "u2_the_best_of_1960_1970_front.jpg"
cadena = "u2_dublin_1993_back.jpg"
 
vec = split(cadena, "_")
for a=1900 to 2007
Cnt = 0
Veces = 0
For i=0 to Ubound(vec)
   On Error Resume Next
      Valor = CInt(vec(i))
   If Err.number<>0 then Valor = "" End If
     If VarType(Valor)=2 Then
        If Veces=0 Then Cnt = i End If  
            Veces = Veces + 1
     End If
Next 
If Veces=1 and a=CInt(vec(Cnt)) Then vec(Cnt) = "(" & vec(Cnt) & ")" End If
NewCad = Join(vec,"_")
next
 
Response.Write Cadena & "  -> "& NewCad &"<br>"
%> 
   

Y funciona bien, siempre que la cadena sea igual que está escrita arriba, pero si la cadena por ejemplo= "u2_dublin_(1993_back.jpg" , me pone entre paréntesis a u2.

Hay algo mal ??
Gracias

[Myakire]

A ver que te parece esto, disculpa lo carrereado pero en serio hoy no he tenido chance

Código:

<%
'cadena = "u2_the_best_of_1960_1970_front.jpg"
'cadena = "u2_dublin_1993_back.jpg"
cadena = "u2_dublin_(1_back.jpg"

vec = split(cadena, "_")
Cnt = 0
Veces = 0
For i=0 to Ubound(vec)
   On Error Resume Next
      Valor = CInt(vec(i))
   If Err.number<>0 then Valor = "" End If
	 If VarType(Valor)=2 Then
	    If Veces=0 Then Cnt = i End If  
			Veces = Veces + 1
	 End If
Next 
If Veces=1 Then
    Valor = CInt(vec(Cnt)) 
		If (Valor >= 1900 and Valor <= 2500) Then
       vec(Cnt) = "(" & vec(Cnt) & ")"
		End IF 
End If
NewCad = Join(vec,"_")

Response.Write Cadena & "  -> "& NewCad 
%>

[u_goldman]

Aqui nada mas como siempre donde no me llaman, pero esto se puede hacer mucho mejor con una expresion regular:

Código:

<%
cadena = "u2_the_best_of_1960_1970_front.jpg"
'cadena = "u2_dublin_1993_back.jpg"
Set ObjRegEx = new RegExp
ObjRegEx.Pattern = "(\d{4})"
ObjRegEx.Global = True 
ObjRegEx.IgnoreCase = True

Set Matches  = ObjRegEx.Execute(cadena)

if Matches.Count = 1 then
	cadena = ObjRegEx.Replace(cadena, "($1)")
end if

Response.Write(cadena)
%>

Salud

[eeeee]

OK ... Gracias a los dos por responder.

Los dos códigos funcionan a la perfección, pero me inclino en esta ocasión por el de Myakire, ya que el de u_goldman si la cadena ="u2_dublin_(1993_back.jpg", pone (1993 así: ((1993) y si ya tenía los dos paréntesis, los pone dobles, .Pero tomo nota del código de u_goldman ya que cre que me puede hacer falta en el futuro.
Resulta que hay 500.000 cadenas y estas son enviadas por usuarios que a veces tienen errores en la escritura.

Salu2

[u_goldman]

Bueno, todo es cuestion de trabajar con la expresion regular, el patron es demasiado sencillo pero se puede hacer tan complicado como se quiera hacer, ademas podrias poner N condiciones en el replace o trabajar la cadena -para eso son las expresiones regulares, el ejemplo a lo mejor no es el mejor porque solo tiene un patron de 4 digitos seguidos, pero estoy seguro que por ahi se encuentra la solucion.

Saludos