Foro - Perl en Español

por **explorer** » 2011-10-04 17:13 @759

¿"creo"?

Yo creo que crees mal

perldoc -f sprintf

La verdad, no veo nada que me permita imprimir una cadena de caracteres.

%% a percent sign
%c a character with the given number
%s a string
%d a signed integer, in decimal
%u an unsigned integer, in decimal
%o an unsigned integer, in octal
%x an unsigned integer, in hexadecimal
%e a floating-point number, in scientific notation
%f a floating-point number, in fixed decimal notation
%g a floating-point number, in %e or %f notation

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $celda = "SELECCIONE LA FRASE QUE DESEA VER.\r\n\r\n\r\n\r\n";
$celda .= sprintf("Frase: %s \r\n\r\n", $text);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-10-05 09:27 @436

string significa, en inglés, "cadena".

En informática, se refiere, casi siempre, a una "cadena de caracteres".

https://secure.wikimedia.org/wikipedia/es/wiki/String

por **Txemaracas** » 2011-10-06 18:44 @822

Hola, me gustaría que me dierais vuestra opinión. Quiero poder añadir un comentario en la base de datos de las palabras. Tengo una interfaz en la que muestro en un Grid , como en la pantalla que subí en uno de los post anteriores, mostrando el nombre en español en una columna, en otra la palabra en español y en otra un check_box. Me gustaría saber si es buena idea cuando se activa un check_box activar el botón "Añadir Comentario" y que aparezca una ventana en la cual introduzcas el comentario que desees y pulsar el botón añadir. Había pensado en poner un botón en la última columna de cada fila pero no se puede poner botones en las celdas. ¿Se os ocurre otra posible solución?

por **explorer** » 2011-10-06 19:05 @837

Aunque no se puedan poner botones, yo creo que puedes hacer que el contenido de la celda sea un texto como "Agregar comentario...", y cuando recibas el evento de que se ha pulsado sobre él, sacar la ventana de recepción del comentario...

Bueno, es una idea...

por **Txemaracas** » 2011-10-07 05:22 @265

Sí me parece buena idea, explorer...

por **Txemaracas** » 2011-10-07 11:07 @505

Hola, tengo un problema con este bucle.

Lo que hace, o debería, es recorrer la columna 2 que es donde están los check_box. En las celdas de esa columna que no tengan check_box he puesto un "*" para cuando me la encuentre, saltarla. El problema del bucle es que sin la condición del while(), por ejemplo, pongo un dos o un 4, funciona bien, me crea el documento, pero si pongo un 8, la variable $max_row me hace como si fuera un bucle infinito. No sé cual es el error que estoy pasando por alto.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

       my $conexion = ConectarDBtrad->connect();
        my $estado;
        my $max_row = $GridA->GetRows();
        my $row=2;
        my $col=2;
        my ($fila,$palabra,$texto);
        
        my $oWriter = Win32::Word::Writer->new();
        
        $oWriter->WriteParagraph("LISTA DE PALABRAS ");
        $oWriter->WriteParagraph("");
        $oWriter->WriteParagraph("");
        $oWriter->WriteParagraph("");
        
        while($row<$max_row){
            
            print "Entro en el while.","\n";
            
            if ($GridA->GetCellText($row, $col) ne "*"){
                
                print "Entro en el ifde "*".","\n";
            
                $estado = $GridA->GetCellCheck( $row, $col);
                print "Fila:",$row,"col:",$col,"Estado:",$estado,"\n";
                $fila  =  &devolverFila($row);
                $palabra = $GridA->GetCellText($fila, 1);
                print "Palabra.",$palabra,"\n";
            
                if ($estado == 1){
                    print "Entro en el ifde estado.","\n";
                
                    $texto =  $GridA->GetCellText($row, 3);
                    print "Pal Ingl.",$texto,"\n";
                    my $sth = $conexion->prepare("SELECT * FROM $palabra WHERE ingles=?");
                    $sth->execute($texto);
                    
                    my $ref = $sth->fetchrow_hashref();
                    
                    #Adding text and paragraphs with different styles
                    
                    $oWriter->WriteParagraph("-Palabra:     ");
                    $oWriter->Write($palabra);
                    $oWriter->WriteParagraph("-Palabra Ingles:    ");          
                    $oWriter->Write($ref->{'ingles'});
                    $oWriter->WriteParagraph("-Fecha:     ");                            
                    $oWriter->Write($ref->{'fecha'});
                    $oWriter->WriteParagraph("-Comentario:      "); #Normal
                    $oWriter->Write($ref->{'comentario'});
                    $oWriter->WriteParagraph("");
                    $oWriter->WriteParagraph("");
                    $oWriter->WriteParagraph("");
                    
                    $sth->finish();  
 
                    $oWriter->Checkpoint();
                    $row++;
                    print "Fila fianl:",$row,"\n";
                }
            }else{
                print "Entro en el else de "*".","\n";
                $row++;
                
            }
        }
 
        print "Estoy fuera.","\n";
        #Save the document
        $oWriter->SaveAs("otro.doc");     
        
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-10-09 06:14 @301

Yo tampoco veo nada raro... pero me remito a mi comentario del 2011-10-03 17:50.

por **Txemaracas** » 2011-10-09 14:32 @647

Encontré el fallo. Hay que añadir un $row++; entre la línea 57 y 58.

por **Txemaracas** » 2011-10-17 05:17 @261

Hola, explorer. Me gustaría saber si sabes cómo hacer lo que me dijiste en el mensaje del Vie Sep 30, 2011 10:00 am, lo de poner la celda de la derecha no editable.

Foro - Perl en Español

Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Publicidad

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

¿Quién está conectado?