elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 [7] 8 9 10 11 12 13 14 15 16 17 18 19 20 21
61  Programación / PHP / Re: problemilla else en: 8 Mayo 2011, 15:19
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
  1. <?php
  2. function buscarCadena($video,$palabra) {
  3. if (strstr($video,$palabra)) {
  4. $b = ereg_replace("[^&\w]+$", "", $video);
  5. $c = str_replace("&", "", $b);
  6. echo "<iframe width='480' height='390' src='http://www.youtube.com/embed/".$c."' frameborder='0' allowfullscreen></iframe>";
  7. echo $c;
  8. } else {
  9.        echo "<iframe width='480' height='390' src='http://www.youtube.com/embed/".$video."' frameborder='0' allowfullscreen></iframe>";
  10.    }
  11. }
  12.    $video="http://www.youtube.com/watch?v=aZqanpeONw4&feature=feed";
  13.    $palabra="&";
  14. $video = str_replace("http://www.youtube.com/watch?v=", "", $video);
  15.    echo buscarCadena($video,$palabra);
  16.  
  17. ?>

uso esta expresión regular

Código
  1. [^&\w]+$

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

Código
  1. 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
  1. http://www.youtube.com/watch?v=aZqanpeONw4&feature=feed&search=algo

en este caso me devuelve

Citar
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!
62  Programación / PHP / problemilla else en: 8 Mayo 2011, 14:28
hola,tengo un problema, hice el siguiente código:

Código
  1. <?php
  2. function buscarCadena($video,$palabra)  
  3.       { if (strstr($video,$palabra))
  4. $b = ereg_replace("[^&]*$", "", $video);
  5. $c = str_replace("&", "", $video);
  6. echo "<iframe width='480' height='390' src='http://www.youtube.com/embed/".$c."' frameborder='0' allowfullscreen></iframe>";
  7. else
  8.            echo "<iframe width='480' height='390' src='http://www.youtube.com/embed/".$video."' frameborder='0' allowfullscreen></iframe>";
  9.    }
  10.    $video="http://www.youtube.com/watch?v=AxUOUj9koCs&abc";
  11.    $palabra="&";
  12. $video = str_replace("http://www.youtube.com/watch?v=", "", $video);
  13.    echo buscarCadena($video,$palabra);
  14.  
  15. ?>

el caso es que me da error en el else

Código
  1. else

Código
  1. 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
  1. <?php
  2. function buscarCadena($video,$palabra)  
  3.       { if (strstr($video,$palabra))
  4. echo "Asi no da error";
  5. else
  6.            echo "<iframe width='480' height='390' src='http://www.youtube.com/embed/".$video."' frameborder='0' allowfullscreen></iframe>";
  7.    }
  8.    $video="http://www.youtube.com/watch?v=AxUOUj9koCs&abc";
  9.    $palabra="&";
  10. $video = str_replace("http://www.youtube.com/watch?v=", "", $video);
  11.    echo buscarCadena($video,$palabra);
  12.  
  13. ?>

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

Un saludo!

63  Programación / Programación Visual Basic / ayuda commondialog y texto en picturebox en: 17 Abril 2011, 20:43
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
  1. CommonDialog1.ShowOpen
  2. If CommonDialog1.FileName <> "" Then
  3. Picture1.Cls
  4. mensaje = CommonDialog1.FileTitle
  5. Me.Picture1.Print mensaje
  6. Else
  7. Picture1.Cls
  8. mensaje = "No se seleccionó ningún archivo"
  9. 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
  1. Option Explicit
  2.  
  3. ' Colección para guardar los archivos
  4. Dim mColFiles           As Collection
  5.  
  6. ' -----------------------------------------------------------------------------------
  7. ' \\ - Sub para agregar los archivos a la colección
  8. ' -----------------------------------------------------------------------------------
  9.  
  10. Private Sub mAddFiles(arrFiles() As String)
  11.  
  12. On Local Error GoTo error_handler
  13.  
  14.    With mColFiles
  15.        ' Si el array tiene un solo elemento, es por que se seleccionó un solo fichero ( Es decir Contiene la ruta completa : Dir + FileName)
  16.        If UBound(arrFiles) = 0 Then
  17.            ' Comprobar que la colección tiene elementos ...
  18.            If .Count > 0 Then
  19.                Call .Add(arrFiles(0), arrFiles(0), 1) ' agregar item en el primer lugar
  20.            ' si no hay elementos ...
  21.            Else
  22.                 Call .Add(arrFiles(0), arrFiles(0))
  23.            End If
  24.  
  25.        ' Si no, Hay mas de un archivo ....
  26.        Else
  27.            ' El primer elemento del array es el directorio ( Guardar el path en la variable  )
  28.            Dim sDir As String
  29.            sDir = arrFiles(0)
  30.  
  31.            ' verificar el separador de path
  32.            If Right(sDir, 1) <> "\" Then sDir = sDir & "\"
  33.            ' Los archivos ( solo el nombre sin el path )
  34.  
  35.            Dim i As Integer
  36.            For i = 1 To UBound(arrFiles)
  37.               ' REcorrer el array y agregarlos a la colección
  38.               If .Count > 0 Then
  39.                   Call .Add(sDir & arrFiles(i), sDir & arrFiles(i), 1) 'agregar primero
  40.               Else
  41.                   Call .Add(sDir & arrFiles(i), sDir & arrFiles(i))
  42.               End If
  43.             Next
  44.        End If
  45.    End With
  46. Exit Sub
  47. error_handler:
  48. If Err.Number = 457 Then
  49.    Resume Next ' ignorar error cuando se agrega el mismo archivo
  50. Else
  51.    MsgBox Err.Description
  52. End If
  53. End Sub
  54.  
  55. ' -----------------------------------------------------------------------------------
  56. ' \\ - Botón para seleccionar los archivos
  57. ' -----------------------------------------------------------------------------------
  58. Private Sub cmdAddFiles_Click()
  59.  
  60.    On Local Error Resume Next
  61.  
  62.    ' Configurar el cuadro de diálogo
  63.    ' ---------------------------------------------------------
  64.    With CD
  65.        ' Limpiar la propiedad FileName
  66.        .FileName = vbNullString
  67.        ' Establecer Flag para poder seleccionar múltiples archivos desde el cd
  68.        .Flags = .Flags Or cdlOFNExplorer Or cdlOFNAllowMultiselect
  69.  
  70.        ' Tamaño de Buffer para el FileName
  71.        .MaxFileSize = 32767 ' <- máximo 32 K
  72.  
  73.        ' Establecer filtro
  74.        .Filter = "Todos los Archivos|*.*"
  75.  
  76.        ' Abrir
  77.        .ShowOpen
  78.  
  79.        ' Verificar que el FileName no sea una cadena vacía
  80.        If .FileName <> vbNullString Then
  81.  
  82.           ' Array para obtener las rutas
  83.           Dim arrPaths() As String
  84.           arrPaths = Split(.FileName, Chr(0))
  85.  
  86.  
  87.           ' Enviar array de archivos para agregar a la colección
  88.           Call mAddFiles(arrPaths)
  89.           Erase arrPaths
  90.  
  91.           ' Actualizar listado
  92.           Call mUpdateList(lstFiles)
  93.        End If
  94.  
  95.        .FileName = vbNullString
  96.  
  97.    End With
  98.  
  99.    ' Error
  100.    Exit Sub
  101. error_handler:
  102.    MsgBox Err.Description, vbCritical
  103.  
  104. End Sub
  105.  
  106.  
  107. ' -----------------------------------------------------------------------------------
  108. ' \\ - Actualizar el contenido del listbox
  109. ' -----------------------------------------------------------------------------------
  110.  
  111. Private Sub mUpdateList(lBox As ListBox)
  112.    With lBox
  113.        ' limpiar listbox y volver a cargar
  114.        .Clear
  115.        Dim xItem As Variant
  116.        ' recorrer items de la colección
  117.        For Each xItem In mColFiles
  118.            .AddItem CStr(xItem)
  119.        Next
  120.        ' seleccionar el primero
  121.        If .ListCount > 0 Then
  122.            .ListIndex = 0
  123.            .SetFocus
  124.        End If
  125.    End With
  126. End Sub
  127.  
  128. ' -----------------------------------------------------------------------------------
  129. ' \\ - Eliminar todo
  130. ' -----------------------------------------------------------------------------------
  131. Private Sub cmdClear_Click()
  132.    Set mColFiles = Nothing
  133.    Set mColFiles = New Collection
  134.    Call mUpdateList(lstFiles)
  135. End Sub
  136.  
  137. ' -----------------------------------------------------------------------------------
  138. ' \\ - Eliminar selección
  139. ' -----------------------------------------------------------------------------------
  140.  
  141. Private Sub cmdDelete_Click()
  142.    Dim i As Integer
  143.    ' recorrer items y comprobar si se encuentran seleccionados
  144.    With lstFiles
  145.        For i = 0 To .ListCount - 1
  146.            If .Selected(i) Then
  147.                Call mColFiles.Remove(.List(i)) ' eliminar con el método Remove el item de la colección
  148.            End If
  149.        Next
  150.    End With
  151.    ' volver a cargar los items en el control
  152.    Call mUpdateList(lstFiles)
  153. End Sub
  154.  
  155.  
  156. Private Sub Form_Load()
  157.  
  158.    ' Crear nueva colección para guardar los archivos
  159.    Set mColFiles = New Collection
  160.  
  161.    cmdAddFiles.Caption = "Agregar archivos"
  162.    cmdDelete.Caption = "Eliminar selección"
  163.    cmdClear.Caption = "Eliminar todo"
  164.  
  165. 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
64  Programación / PHP / Re: problemilla con $_GET en: 4 Marzo 2011, 00:05
ok,ya funciona, gracias por la ayuda!
65  Programación / PHP / Re: problemilla con $_GET en: 3 Marzo 2011, 23:23
le puse GET al formulario y estamos en las mismas que en el primer mensaje:

Código
  1. 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
  1. http://localhost/editar/1.php?nombre=10+Minutes+aaaa&embed=embed&imagen=http%3A%2F%2F...
66  Programación / PHP / Re: problemilla con $_GET en: 3 Marzo 2011, 22:49
si hago lo que me dices no devuelve las variables atraves de la url,queda esto:
Código
  1. http://localhost/editar/1.php?id=2

y el mismo error:

Código
  1. Notice: Undefined index: id in C:\xampp\htdocs\editar\1.php on line 2
67  Programación / PHP / problemilla con $_GET [solucionado] en: 3 Marzo 2011, 20:37
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
  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  2. <html xmlns="http://www.w3.org/1999/xhtml">
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  5. <title>Documento sin título</title>
  6. <style type="text/css">
  7. <!--
  8. body {
  9. background-color: #9FE0FF;
  10. }
  11. -->
  12. </style></head>
  13.  
  14. <body><?
  15.   include("config.php");
  16. $id=$_GET['id'];
  17.  $link=Conectarse();
  18.   $result=mysql_query("select * from pelis WHERE id=$id",$link);
  19.   while($row = mysql_fetch_array($result)) {
  20.   $id2 = $row["id"];
  21.   $nombre = $row["nombre"];
  22.   $embed = $row["embed"];
  23.   $imagen = $row["imagen"];
  24.   $duracion = $row["duracion"];
  25.   $descripcion = $row["descripcion"];
  26.   $descarga = $row["descarga"];
  27.   }
  28.   mysql_free_result($result);
  29.   mysql_close($link);
  30. ?>
  31. <table width="40%" border="0" align="center">
  32.  <tr>
  33.    <td align="center"><p><b>Editar película</b><br></td>
  34.  </tr>
  35.  <tr>
  36.    <td align="center"><form id="form1" name="form1" method="request" action="1.php?id=<? echo $id2; ?>">
  37.      <p>
  38.        <label>
  39.          Nombre:
  40.          <input name="nombre" type="text" id="textfield" value="<? echo $nombre; ?>" size="50" />
  41.        </label>
  42.      </p>
  43.      <p>Embed: <br>
  44.        <textarea name="embed" cols="40" rows="8" id="textfield2"><? echo $embed; ?></textarea>
  45.      </p>
  46.      <p>Imagen:
  47.        <input name="imagen" type="text" id="textfield3" size="50" value="<? echo $imagen; ?>" />
  48.      </p>
  49.      <p>Duración:
  50.        <input name="duracion" type="text" id="textfield4" size="50" value="<? echo $duracion; ?>" />
  51.      </p>
  52.      <p>Descripción:<br>
  53.        <textarea name="descripcion" cols="40" rows="8" id="textfield5"><? echo $descripcion; ?></textarea>
  54.      </p>
  55.      <p>Descarga:<br>
  56.        <label>
  57.          <textarea name="descarga" cols="40" rows="8" id="textfield6"><? echo $descarga; ?></textarea>
  58.        </label>
  59.      </p>
  60.      <p>
  61.        <label>
  62.          <input type="submit" name="button" id="button" value="Editar" />
  63.        </label>
  64.      </p>
  65.      <p>&nbsp;</p>
  66.    </form></td>
  67.  </tr>
  68. </table>
  69. </body>
  70. </html>

1.php
Código
  1. <?php
  2. $id = $_GET["id"];
  3. $nombre = $_REQUEST["nombre"];
  4. $embed = $_REQUEST["embed"];
  5. $imagen = $_REQUEST["imagen"];
  6. $duracion = $_REQUEST["duracion"];
  7. $descripcion = $_REQUEST["descripcion"];
  8. $descarga = $_REQUEST["descarga"];
  9.  
  10. $con = mysql_connect("localhost","root","");
  11. if (!$con)
  12.  {
  13.  die('Could not connect: ' . mysql_error());
  14.  }
  15. mysql_select_db("pruebas", $con);
  16. mysql_query("UPDATE pelis SET nombre = '$nombre', embed = '$embed', imagen = '$imagen', duracion = '$duracion', descripcion = '$descripcion', descarga = '$descarga' WHERE id = '$id'");
  17. ?>

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

Código
  1. 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
  1. 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!
68  Comunicaciones / Dispositivos Móviles (PDA's, Smartphones, Tablets) / emulador aplicaciones blackberry o iphone en: 2 Marzo 2011, 22:54
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!
69  Programación / Desarrollo Web / publicidad encima de un reproductor flash <embed> en: 13 Agosto 2010, 17:32
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
70  Programación / Programación Visual Basic / Re: seleccionar un texto determinado en un textbox en: 11 Agosto 2010, 01:22
ok muchas gracias *PsYkE1* voy a probar el codigo.
Páginas: 1 2 3 4 5 6 [7] 8 9 10 11 12 13 14 15 16 17 18 19 20 21
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines