Mensajes

[drvy | BSM]

Muchas gracias drvy | BSM, ya me funciona perfectamente.

Edit: tengo otro pequeño problemilla,aver si alguien me puede ayudar, con este código,que anteriormente e puesto

Código (php) [Seleccionar] Expandir

<?php 
function buscarCadena($video,$palabra) {
if (strstr($video,$palabra)) {
$b = ereg_replace("[^&\w]+$", "", $video);
$c = str_replace("&", "", $b);
echo "<iframe width='480' height='390' src='http://www.youtube.com/embed/".$c."' frameborder='0' allowfullscreen></iframe>";
echo $c;
} else {
        echo "<iframe width='480' height='390' src='http://www.youtube.com/embed/".$video."' frameborder='0' allowfullscreen></iframe>";
    }
}
    $video="http://www.youtube.com/watch?v=aZqanpeONw4&feature=feed";
    $palabra="&";
$video = str_replace("http://www.youtube.com/watch?v=", "", $video);
    echo buscarCadena($video,$palabra);
 
?>

uso esta expresión regular

Código (php) [Seleccionar] Expandir

[^&\w]+$

y me extrae la dirección de un video de youtube desde el primer &

Código (php) [Seleccionar] Expandir

http://www.youtube.com/watch?v=aZqanpeONw4&feature=feed

pero si ya hay más de un &,no lo saca bien, por ejemplo:

Código (php) [Seleccionar] Expandir

http://www.youtube.com/watch?v=aZqanpeONw4&feature=feed&search=algo

en este caso me devuelve

aZqanpeONw4feature=feed

sé que el problema debe de estar en la expresión regular,pero ya me he mirado unos cuantos tutoriales de expresiones regulares y no consigo solucionarlo, ¿alguien sabria decirme que es lo que ocurre y cómo podría solucionarlo?.

Gracias a todos!

hola,tengo un problema, hice el siguiente código:

Código (php) [Seleccionar] Expandir

<?php 
function buscarCadena($video,$palabra)   
       { if (strstr($video,$palabra))
$b = ereg_replace("[^&]*$", "", $video);
$c = str_replace("&", "", $video);
echo "<iframe width='480' height='390' src='http://www.youtube.com/embed/".$c."' frameborder='0' allowfullscreen></iframe>";
else
            echo "<iframe width='480' height='390' src='http://www.youtube.com/embed/".$video."' frameborder='0' allowfullscreen></iframe>";
    }
    $video="http://www.youtube.com/watch?v=AxUOUj9koCs&abc";
    $palabra="&";
$video = str_replace("http://www.youtube.com/watch?v=", "", $video);
    echo buscarCadena($video,$palabra);

?>

el caso es que me da error en el else

Código (php) [Seleccionar] Expandir

else

Código (php) [Seleccionar] Expandir

Parse error: syntax error, unexpected T_ELSE in /home/web/public_html/youtube.php on line 14

pero si pongo lo siguiente no me da error

Código (php) [Seleccionar] Expandir

<?php 
function buscarCadena($video,$palabra)   
       { if (strstr($video,$palabra))
echo "Asi no da error";
else
            echo "<iframe width='480' height='390' src='http://www.youtube.com/embed/".$video."' frameborder='0' allowfullscreen></iframe>";
    }
    $video="http://www.youtube.com/watch?v=AxUOUj9koCs&abc";
    $palabra="&";
$video = str_replace("http://www.youtube.com/watch?v=", "", $video);
    echo buscarCadena($video,$palabra);

?>

¿A qué se debe esto?. Gracias por la ayuda.

Un saludo!

[EDIT:]

hola, lo que estoy haciendo es que através de un commondialog yo seleccione un archivo y el nombre de este archivo me lo ponga dentro de un picturebox,para ello tengo este código:

Código (vb) [Seleccionar] Expandir

CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Picture1.Cls
mensaje = CommonDialog1.FileTitle
Me.Picture1.Print mensaje
Else
Picture1.Cls
mensaje = "No se seleccionó ningún archivo"
Me.Picture1.Print mensaje

el caso es que esto me sirve para solo 1 archivo,si vuelvo a seleccionar otro me remplaza la primera línea de texto del picturebox.
Lo que necesito saber es como puedo hacer para que en el commondialog pueda seleccionar varios archivos y al seleccionarlos cuente el número de archivos que se han seleccionado y haga X lineas de texto en el picturebox. ¿Cómo podría hacer esto? Gracias

EDIT: he encontrado éste código que sirve para seleccionar varios archivos en através de common dialog y luego los añade en un listbox.

Código (vb) [Seleccionar] Expandir

Option Explicit

' Colección para guardar los archivos
Dim mColFiles           As Collection

' -----------------------------------------------------------------------------------
' \\ - Sub para agregar los archivos a la colección
' -----------------------------------------------------------------------------------

Private Sub mAddFiles(arrFiles() As String)

On Local Error GoTo error_handler
   
   With mColFiles
       ' Si el array tiene un solo elemento, es por que se seleccionó un solo fichero ( Es decir Contiene la ruta completa : Dir + FileName)
       If UBound(arrFiles) = 0 Then
           ' Comprobar que la colección tiene elementos ...
           If .Count > 0 Then
               Call .Add(arrFiles(0), arrFiles(0), 1) ' agregar item en el primer lugar
           ' si no hay elementos ...
           Else
                Call .Add(arrFiles(0), arrFiles(0))
           End If
           
       ' Si no, Hay mas de un archivo ....
       Else
           ' El primer elemento del array es el directorio ( Guardar el path en la variable  )
           Dim sDir As String
           sDir = arrFiles(0)
           
           ' verificar el separador de path
           If Right(sDir, 1) <> "\" Then sDir = sDir & "\"
           ' Los archivos ( solo el nombre sin el path )
             
           Dim i As Integer
           For i = 1 To UBound(arrFiles)
              ' REcorrer el array y agregarlos a la colección
              If .Count > 0 Then
                  Call .Add(sDir & arrFiles(i), sDir & arrFiles(i), 1) 'agregar primero
              Else
                  Call .Add(sDir & arrFiles(i), sDir & arrFiles(i))
              End If
            Next
       End If
   End With
Exit Sub
error_handler:
If Err.Number = 457 Then
   Resume Next ' ignorar error cuando se agrega el mismo archivo
Else
   MsgBox Err.Description
End If
End Sub

' -----------------------------------------------------------------------------------
' \\ - Botón para seleccionar los archivos
' -----------------------------------------------------------------------------------
Private Sub cmdAddFiles_Click()

   On Local Error Resume Next
   
   ' Configurar el cuadro de diálogo
   ' ---------------------------------------------------------
   With CD
       ' Limpiar la propiedad FileName
       .FileName = vbNullString
       ' Establecer Flag para poder seleccionar múltiples archivos desde el cd
       .Flags = .Flags Or cdlOFNExplorer Or cdlOFNAllowMultiselect
       
       ' Tamaño de Buffer para el FileName
       .MaxFileSize = 32767 ' <- máximo 32 K
       
       ' Establecer filtro
       .Filter = "Todos los Archivos|*.*"
       
       ' Abrir
       .ShowOpen
       
       ' Verificar que el FileName no sea una cadena vacía
       If .FileName <> vbNullString Then
         
          ' Array para obtener las rutas
          Dim arrPaths() As String
          arrPaths = Split(.FileName, Chr(0))

         
          ' Enviar array de archivos para agregar a la colección
          Call mAddFiles(arrPaths)
          Erase arrPaths
         
          ' Actualizar listado
          Call mUpdateList(lstFiles)
       End If
               
       .FileName = vbNullString
       
   End With
   
   ' Error
   Exit Sub
error_handler:
   MsgBox Err.Description, vbCritical

End Sub


' -----------------------------------------------------------------------------------
' \\ - Actualizar el contenido del listbox
' -----------------------------------------------------------------------------------

Private Sub mUpdateList(lBox As ListBox)
   With lBox
       ' limpiar listbox y volver a cargar
       .Clear
       Dim xItem As Variant
       ' recorrer items de la colección
       For Each xItem In mColFiles
           .AddItem CStr(xItem)
       Next
       ' seleccionar el primero
       If .ListCount > 0 Then
           .ListIndex = 0
           .SetFocus
       End If
   End With
End Sub

' -----------------------------------------------------------------------------------
' \\ - Eliminar todo
' -----------------------------------------------------------------------------------
Private Sub cmdClear_Click()
   Set mColFiles = Nothing
   Set mColFiles = New Collection
   Call mUpdateList(lstFiles)
End Sub

' -----------------------------------------------------------------------------------
' \\ - Eliminar selección
' -----------------------------------------------------------------------------------

Private Sub cmdDelete_Click()
   Dim i As Integer
   ' recorrer items y comprobar si se encuentran seleccionados
   With lstFiles
       For i = 0 To .ListCount - 1
           If .Selected(i) Then
               Call mColFiles.Remove(.List(i)) ' eliminar con el método Remove el item de la colección
           End If
       Next
   End With
   ' volver a cargar los items en el control
   Call mUpdateList(lstFiles)
End Sub


Private Sub Form_Load()
   
   ' Crear nueva colección para guardar los archivos
   Set mColFiles = New Collection
   
   cmdAddFiles.Caption = "Agregar archivos"
   cmdDelete.Caption = "Eliminar selección"
   cmdClear.Caption = "Eliminar todo"
   
End Sub

Este código me sería muy útil si me sacara sólo los nombres de los archivos y no la ruta de los archivos seleccionados,pero si cambio el .FileName por .FileTitle me da error y no me deja. ¿Alguien sabe porque? Gracias

ok,ya funciona, gracias por la ayuda!

le puse GET al formulario y estamos en las mismas que en el primer mensaje:

Código (php) [Seleccionar] Expandir


Notice: Undefined index: id in C:\xampp\htdocs\editar\1.php on line 2

y falta el ?id= en la url que me devuelve

Código (php) [Seleccionar] Expandir

http://localhost/editar/1.php?nombre=10+Minutes+aaaa&embed=embed&imagen=http%3A%2F%2F...

si hago lo que me dices no devuelve las variables atraves de la url,queda esto:

Código (php) [Seleccionar] Expandir


http://localhost/editar/1.php?id=2

y el mismo error:

Código (php) [Seleccionar] Expandir

Notice: Undefined index: id in C:\xampp\htdocs\editar\1.php on line 2

[editar_pelicula.php]

hola,tengo el siguiente código ya que estoy intentando editar los registros de mi base de datos pero no lo consigo:

editar_pelicula.php

Código (php) [Seleccionar] Expandir

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sin título</title>
<style type="text/css">
<!--
body {
background-color: #9FE0FF;
}
-->
</style></head>

<body><?
  include("config.php");
$id=$_GET['id'];
 $link=Conectarse();
  $result=mysql_query("select * from pelis WHERE id=$id",$link);
  while($row = mysql_fetch_array($result)) {
  $id2 = $row["id"];
  $nombre = $row["nombre"];
  $embed = $row["embed"];
  $imagen = $row["imagen"];
  $duracion = $row["duracion"];
  $descripcion = $row["descripcion"];
  $descarga = $row["descarga"];
  }
  mysql_free_result($result);
  mysql_close($link);
?>
<table width="40%" border="0" align="center">
 <tr>
   <td align="center"><p><b>Editar película</b><br></td>
 </tr>
 <tr>
   <td align="center"><form id="form1" name="form1" method="request" action="1.php?id=<? echo $id2; ?>">
     <p>
       <label>
         Nombre:
         <input name="nombre" type="text" id="textfield" value="<? echo $nombre; ?>" size="50" />
       </label>
     </p>
     <p>Embed: <br>
       <textarea name="embed" cols="40" rows="8" id="textfield2"><? echo $embed; ?></textarea>
     </p>
     <p>Imagen:
       <input name="imagen" type="text" id="textfield3" size="50" value="<? echo $imagen; ?>" />
     </p>
     <p>Duración:
       <input name="duracion" type="text" id="textfield4" size="50" value="<? echo $duracion; ?>" />
     </p>
     <p>Descripción:<br>
       <textarea name="descripcion" cols="40" rows="8" id="textfield5"><? echo $descripcion; ?></textarea>
     </p>
     <p>Descarga:<br>
       <label>
         <textarea name="descarga" cols="40" rows="8" id="textfield6"><? echo $descarga; ?></textarea>
       </label>
     </p>
     <p>
       <label>
         <input type="submit" name="button" id="button" value="Editar" />
       </label>
     </p>
     <p>&nbsp;</p>
   </form></td>
 </tr>
</table>
</body>
</html>

1.php

Código (php) [Seleccionar] Expandir

<?php
$id = $_GET["id"];
$nombre = $_REQUEST["nombre"];
$embed = $_REQUEST["embed"];
$imagen = $_REQUEST["imagen"];
$duracion = $_REQUEST["duracion"];
$descripcion = $_REQUEST["descripcion"];
$descarga = $_REQUEST["descarga"];

$con = mysql_connect("localhost","root","");
if (!$con)
  {
  die('Could not connect: ' . mysql_error());
  }
mysql_select_db("pruebas", $con);
mysql_query("UPDATE pelis SET nombre = '$nombre', embed = '$embed', imagen = '$imagen', duracion = '$duracion', descripcion = '$descripcion', descarga = '$descarga' WHERE id = '$id'");
mysql_close($con);
?>

el caso es que me da error cuando me lleva a 1.php

Código (php) [Seleccionar] Expandir

Notice: Undefined index: id in C:\xampp\htdocs\editar_spraycine\1.php on line 2

como bien dice la direccion me devuelve todos los parametros menos el id y sin esta no sabe que registro editar

Código (html4strict) [Seleccionar] Expandir

http://localhost/editar/1.php?nombre=10+Minutes+aaaa&embed=embed&imagen=http%3A%2F%2Fwww.web.com%2Fimages%2F10min.jpg&duracion=68+minutos&descripcion=desc&button=Editar

el caso es que he revisado el código y no se porque no aparece,aver si me podeis ayudar, gracias de antemano.

Un saludo!

hola,he estado googleando sobre un emulador de aplicaciones para blackberry o iphone pero no he encontrado nada util,sabeis si existe algun emulador de este tipo?

gracias!

hola,pues vi en varias páginas que la gente pone banners de publicidad en lo que es encima del reproductor flash de páginas como xvideos,pornhub,etc,y cuando dan click al anuncio desaparece y muestra el reproductor flash con el video.

El caso es como se podría hacer eso y si realmente resulta beneficioso para la página,ya que al darle click al anuncio eso cuenta ya como un click y después se muestra el video.¿Qué piensan ustedes y cómo se podría hacer esto?

Gracias

ok muchas gracias *PsYkE1* voy a probar el codigo.