Temas

Buen día,

Actualmente me encuentro recorriendo un archivo de texto con el siguiente código, mi problema es que necesito ir comparando si la linea 1 se repite n veces las sume todas, para mi seria facil con un for solo que no tengo idea como cambiarlo por este porque no tengo el numero de lineas

Código (php) [Seleccionar] Expandir

$num_lineas = 0;
            $archivo = fopen("test.txt","r");

            if ($archivo) {
                while(!feof($archivo)){
                  //cargo un arreglo de la linea en donde esta el puntero
                  $linea = fgets($archivo);
                  //separo el arreglo por comas
                  $contenido=explode(",",$linea);
                   //muestro el contenido 1 donde es el nombre y contenido 2 es la cantidad                                                                                                                                                                                           
                     //acumulo una en la variable número de líneas
                     $num_lineas++;
                    }

            }
           //aqui imprimo la cantidad de lineas que existen en el archivo de texto
          echo "Lineas: " . $num_lineas . "<br>";

[Mod: No escribir en mayúsculas]

Que tal amigos, solicito de su apoyo con un split que compre en STEREN el modelo es el COM-480; lo compre con la idea de usar los 8 monitores independientes solo que en todos se me muestra un espejo de mi equipo principal.

Mi duda es si puedo hacer cada monitor un escritorio individual ya que las configuraciones que he encontrado del xorg son para la resolucion.

O algun tip por donde empezar  

Mod: No escribir en mayúsculas

[buen dia amigos, no me funciona del menu>aplicaciones, estuve moviendole a el siguiete archivo: /etc/xdg/menus/applications.menu y pues ahora no me despliega las aplicaciones que tengo instaladas, todas estoy llamandolas por terminal, alguien puede decirme como recuperar deperdis el archivo o idealmente me despliegue todas las aplicaciones que tengo en mi pc, algun tip???Saludos!]

buen dia amigos, no me funciona del menu>aplicaciones, estuve moviendole a el siguiete archivo: /etc/xdg/menus/applications.menu y pues ahora no me despliega las aplicaciones que tengo instaladas, todas estoy llamandolas por terminal, alguien puede decirme como recuperar deperdis el archivo o idealmente me despliegue todas las aplicaciones que tengo en mi pc, algun tip???

Saludos!

[Hola amigos, para hacer mas bonitas nuestras consultas traigo estas gráficas para que puedan sacarle jugo, son alrededor de 22, existen muchas mas pero son de pago, pero por el momento con estas la hacemos, aqui les dejo unos ejemplos:]

Hola amigos, para hacer mas bonitas nuestras consultas traigo estas gráficas para que puedan sacarle jugo, son alrededor de 22, existen muchas mas pero son de pago, pero por el momento con estas la hacemos, aqui les dejo unos ejemplos:


Link de Descarga:
http://www.megaupload.com/?d=PJSWTV2K
Si quieren usar el ejemplo que viene incluido dentro, esta es la ruta:

Código (php) [Seleccionar] Expandir

http://localhost:8000/FusionCharts/Code/PHP/BasicExample/SimpleChart.php
También dentro incluye un archivo HTML que viene como utilizarlas en PHP y otros lenguajes
Espero y les gusten, Salu2!

[Hola amigos, instale back track 5 y resulta que llevo 2 dias tratando de instalar la tarjeta Intel PRO/Wireless 2200BG para tener internet y no he logrado hacerla funcionar correctamente.]

Hola amigos, instale back track 5 y resulta que llevo 2 dias tratando de instalar la tarjeta Intel PRO/Wireless 2200BG para tener internet y no he logrado hacerla funcionar correctamente. 

[Hola amigos, resulta que en mi ciudad se creo un grupo de usuarios linux y vamos por nuestra segunda sesión. Conocen algún manual que contenga lo necesario para instalar linux por red a todos?Saludos!!!]

Hola amigos, resulta que en mi ciudad se creo un grupo de usuarios linux y vamos por nuestra segunda sesión. Conocen algún manual que contenga lo necesario para instalar linux por red a todos?

Saludos!!!

[Hola amigos, como podría recorrer el listview1 al mismo tiempo que el listview2pretendo compararlos y si son iguales poner en el listview3 el nombre y la cantidad ya sumadaMe imagino que es un for dentro de otro for pero ya hice pruebas y no me sale, me podrían orientar porfavor]

Hola amigos, como podría recorrer el listview1 al mismo tiempo que el listview2

pretendo compararlos y si son iguales poner en el listview3 el nombre y la cantidad ya sumada

Me imagino que es un for dentro de otro for pero ya hice pruebas y no me sale, me podrían orientar porfavor

[Hola amigos, disculpen tengo una pregunta, se puede mediante algun comando simular un enter en la terminal?]

Hola amigos, disculpen tengo una pregunta, se puede mediante algun comando simular un enter en la terminal?

[Hola, amigos disculpen me pueden ayudar con el código que deben llevar los botones de abajo para que funcionen igual que los de arriba]

Hola, amigos disculpen me pueden ayudar con el código que deben llevar los botones de abajo para que funcionen igual que los de arriba



Esto es lo que tienen los que están en el menú pero no me funciona al ponerlo en los botones de abajo

Código (actionscript) [Seleccionar] Expandir

onClipEvent (load)
{
num = 2;
this.hitArea = this.area;

}
Saludos!!!

[Hola, tengo una consulta SQL generada desde Access, y me gustaria poder mandarla a llamar desde vb.net y mi pregunta es como debo de utilizar el OleDbcommand para hacer eso?]

Hola, tengo una consulta SQL generada desde Access, y me gustaria poder mandarla a llamar desde vb.net y mi pregunta es como debo de utilizar el OleDbcommand para hacer eso?   


Tengo el siguiente código pero no me esta generando un nuevo registro

Código (vbnet) [Seleccionar] Expandir

Private Sub InsertTransaccionTipo()
        Dim cmd As OleDb.OleDbCommand 'creo variable para comunicar BD
        'Me conecto a la base
        Dim Connection As New OleDbConnection(Cadena)       
        'Establezco cual es la consulta a ejecutar
        cmd = New OleDb.OleDbCommand("IsertTransaccionTipo", Connection)   ' Quiero mandar llamar el INSERT INTO formado en access
        'Avisamos que vamos a ejecutar la consulta SQL generada en Access
        Connection.Open()       'abrimos la conexion
        cmd.ExecuteNonQuery()
        Connection.Close()
    End Sub

[Hola,amigos espero y me puedan ayudar, tengo un problema con esta consulta, me gustaría saber como puedo buscar este tipo de consultas en google, o un buen tutorial porque no encuentro muchos ejemplos para access y me falla mucho la sintaxis, gracias]

Hola,amigos espero y me puedan ayudar, tengo un problema con esta consulta, me gustaría saber como puedo buscar este tipo de consultas en google, o un buen tutorial porque no encuentro muchos ejemplos para access y me falla mucho la sintaxis, gracias

[Hola amigos, disculpen pero que error de sintaxis puede tener mal, estoy intentando almacenar la información que existe en los textbox y me tira el siguiente error:Error de sintaxis en la instrucción INSERT INTO]

Hola amigos, disculpen pero que error de sintaxis puede tener mal, estoy intentando almacenar la información que existe en los textbox y me tira el siguiente error:
Error de sintaxis en la instrucción INSERT INTO
Los campos de la tabla ya los cheque y los copie y pegue para no equivocarme

Código (vbnet) [Seleccionar] Expandir


        Dim sql As String
        sql = "INSERT INTO Usuarios (Name,LastName,NameSesion,Password,Fecha,active) values ('" & TextBox1.Text & "', '" & TextBox4.Text & "','" & TextBox3.Text & "','" & TextBox2.Text & "','" & Date.Today & "','1')"
        Dim cnn As OleDbConnection
        cnn = New OleDbConnection(Cadena)
        '  ' crear comando
        Dim Comando As New OleDbCommand(sql, cnn)
        '  ' crear DataReader
        Dim DataReader As OleDbDataReader
        cnn.Open()
        DataReader = Comando.ExecuteReader() ' obtener DataReader

[Hola amigos, estoy utilizando el siguiente código para llenar un Listview pero me carga a medias la tabla y mi pregunta es como puedo agregarle el campo Descripcion y el campo Activo]

Hola amigos, estoy utilizando el siguiente código para llenar un Listview pero me carga a medias la tabla y mi pregunta es como puedo agregarle el campo Descripcion y el campo Activo

Código (vbnet) [Seleccionar] Expandir

Dim cmdselect As New OleDb.OleDbCommand("Select *  From Rol where Activo=yes", conn)
            Dim datareader As OleDb.OleDbDataReader = cmdselect.ExecuteReader()

            While datareader.Read()
                '=======Agregar elementos al ListView ========
                Dim subelemento As ListViewItem
                'Dim codigo As String = datareader("idRol")
                Dim codigo As String = datareader("idRol")

                subelemento = New ListViewItem(codigo)
                subelemento.SubItems.Add(datareader("Nombre"))   
                'como seria esta linea para agregar Descripcion
                'como seria esta linea para agregar Activo
                ListView1.Items.Add(subelemento)

            End While

            datareader.Close()
            conn.Close()

[Hola, amigos, esta ventana se parece a un inputbox pero no se como se llama, mi intención es utilizarla en vb.net 2010Saludos!!!]

Hola, amigos, esta ventana se parece a un inputbox pero no se como se llama, mi intención es utilizarla en vb.net 2010
Saludos!!!

[Hola, disculpen pero como puedo recorrer un listbox y pasar los valores a un arreglo?, esto es lo que tengo...]

Hola, disculpen pero como puedo recorrer un listbox y pasar los valores a un arreglo?, esto es lo que tengo...

Código (vb) [Seleccionar] Expandir


Dim arreglo(100) As Integer
Dim l As Integer
Dim n As Integer
Dim valor As Integer
        For l = 0 To List1.ListCount - 1
            valor = List1.Text
                For n = 1 To List1.ListCount - 1
                    arreglo(n) = valor
                Next
        Next
'Por ultimo coloque unos textbox para confirmar que se guardaron los valores
Text1.Text = arreglo(1)                 'me sale 0 y en realidad es un 2
Text2.Text = arreglo(2)                 'me sale 0 y en realidad es un 4
Text3.Text = arreglo(3)                  'me sale 0 y en realidad es un 1


Hola, estoy haciendo la siguiente consuta, para el turno nocturno:

Código (sql) [Seleccionar] Expandir

SQL1 = "SELECT * FROM tablainformaciondelaunidad WHERE TURNO='" & Label7 & "' AND TECNICO='" & txtid & "'AND FECHA= '" & Label3 & "' AND HORA BETWEEN #" & Format("19:00", "Short Time") & "# AND #" & Format("23:59", "Short Time") & "#"
pero el turno termina al siguiente día a las 6:59 am,

quisiera agregarle algo como esto, pero se que no esta bien

Código (sql) [Seleccionar] Expandir

AND FECHA= #" & Label3+1 & "#AND HORA BETWEEN #" & Format("00:00", "Short Time") & "# AND #" & Format("05:59", "Short Time") & "# "

para que todo se muestre en la siguiente lista

Hola, disculpen me pueden ayudar?, es que no se donde debo de colocar mi correo para que me llegue lo que llenan en el formulario? 

Código (php) [Seleccionar] Expandir

<?php

if(!$_POST) exit;

$email = $_POST['email'];


//$error[] = preg_match('/\b[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}\b/i', $_POST['email']) ? '' : 'INVALID EMAIL ADDRESS';
if(!eregi("^[a-z0-9]+([_\\.-][a-z0-9]+)*" ."@"."([a-z0-9]+([\.-][a-z0-9]+)*)+"."\\.[a-z]{2,}"."$",$email )){
$error.="Invalid email address entered";
$errors=1;
}
if($errors==1) echo $error;
else{
$values = array ('name','email','message');
$required = array('name','email','message');
 
$your_email = "james@example.com";
$email_subject = "New Message: ".$_POST['subject'];
$email_content = "new message:\n";

foreach($values as $key => $value){
  if(in_array($value,$required)){
if ($key != 'subject' && $key != 'company') {
  if( empty($_POST[$value]) ) { echo 'PLEASE FILL IN REQUIRED FIELDS'; exit; }
}
$email_content .= $value.': '.$_POST[$value]."\n";
  }
}
 
if(@mail($your_email,$email_subject,$email_content)) {
echo 'Mensaje Enviado!'; 
} else {
echo 'ERROR!';
}
}
?>

Hola amigos, estoy intentando iniciar con la programacion de videojuegos, me encuentro en la carga del sistema de video pero haciendo pruebas este codigo me muestra un error que no entiendo:

Este es el error:
In function `SDL_main':|
error: number of arguments doesn't match prototype|

haciendome referencia a este header

SDL_main.h|57|error: prototype declaration|

Código (c) [Seleccionar] Expandir

/** The prototype for the application's main() function */
extern C_LINKAGE int SDL_main(int argc, char *argv[]);

Acá dejo el Código

Código (c) [Seleccionar] Expandir

// Creación de un degradado parcial, estableciendo un área de clipping
#include <stdio.h>
#include <SDL.h>


int main()               //<------- Aqui es donde me marca el error
{
SDL_Surface *pantalla, *color_base;
SDL_Rect posicion, clipping;
SDL_Event evento;
int i;
// Iniciamos el subsistema de video SDL
if( SDL_Init(SDL_INIT_VIDEO) < 0) {
fprintf(stderr, "No se pudo iniciar SDL: %s\n",SDL_GetError());
exit(1);
}
// Establecemos el modo de video
pantalla = SDL_SetVideoMode(640, 500, 24,SDL_HWSURFACE|SDL_DOUBLEBUF);
if(pantalla == NULL) {
fprintf(stderr, "No se pudo establecer el modo de video:%s\n",SDL_GetError());
exit(1);
}
atexit(SDL_Quit);
// Cargamos la imagen del personaje principal
color_base = SDL_LoadBMP("ima.bmp");
if(color_base == NULL) {
fprintf(stderr, "No se pudo cargar la imagen: %s\n",SDL_GetError());
exit(1);
}
// Establecemos el área de clipping
clipping.x = 0;
clipping.y = 0;
clipping.h = 500;
clipping.w = 100;
SDL_SetClipRect(pantalla, &clipping);
// Vamos a dibujar 10 tiras
for(i = 1; i <= 50; i++) {
// Ajustamos las propiedades del canal alpha para las transparecnias
SDL_SetAlpha(color_base, SDL_SRCALPHA|SDL_RLEACCEL, i * 5.1);
// Establecemos donde vamos a dibujar las tiras
posicion.x = 0;
posicion.y = 10 * (i - 1);
posicion.w = color_base->w;
posicion.h = color_base->h;
// Copiamos la imagen en la superficie principal
SDL_BlitSurface(color_base, NULL, pantalla, &posicion);
}
// Mostramos la pantalla "oculta" del búffer
SDL_Flip(pantalla);
// Liberamos los recursos que no necesitamos
SDL_FreeSurface(color_base);
// Ahora mantenemos el resultado en pantalla
// hasta cerrar la ventana
for(;;) {
while(SDL_PollEvent(&evento)) {
if(evento.type == SDL_QUIT) // Si es de salida
return 0;
}
}
}


espero y me puedan ayudar para no morir en el intento, Gracias

Hola a todos, me imagino que han visto la pelicula de Iron Man y pues me intriga escuchar que la PC responde a lo que tu le consultas y me gustaria saber si existe una forma de agregar librerias o algo asi de ciertos programas que leen texto como por ejemplo
Text Aloud
Loquendo
Dragon Naturally Speaking

Todo esto creado desde visual studio empezando por encender la pc y que me diga que deseo hacer hoy o que deseo buscar etc etc

Por adelantado gracias por sus ides y documentare toda la info posible...

hola, estoy haciendo una pequeña base de datos en donde se almacenan articulos, existen cuatro turnos, pero los turnos nocturnos me crean conflicto al momento de almacenar despues de las 00:00 hrs porque me cambia la fecha y mi duda es como le hago para ajustar la misma fecha y que no cambie por ejemplo:
si es 25-jul-10 y el siguiente registro es 26-jul-10 pero es el mismo turno siga siendo entonces debe seguir siendo 25-jul-10 

[Cuando trato de ejecutar SSLstrip (0.7) en terminal me sale este mensaje:sudo sslstripTraceback (most recent call last):File "/usr/bin/sslstrip", line 27, in from twisted.web import httpImportError: No module named twisted.web]

Cuando trato de ejecutar SSLstrip (0.7) en terminal me sale este mensaje:

sudo sslstrip
Traceback (most recent call last):
File "/usr/bin/sslstrip", line 27, in
from twisted.web import http
ImportError: No module named twisted.web

[Errores:]

Me atore y no se x que y creo que todo esta bien declarado y el archivo.txt se encuentra dentro de la carpeta donde guarde mi proyecto

Errores:
26 `FuncionVulnerable' undeclared (first use this function)
39 invalid conversion from `char' to `const char*'
39 initializing argument 1 of `FILE* fopen(const char*, const char*)'
56`int FuncionVulnerable(char*)' used prior to declaration

Código (cpp) [Seleccionar] Expandir

#include <cstdlib>
#include <iostream>

using namespace std;

/* declaramos la funcion que usaremos para leer el fichero*/

int LeerFichero(char*, char*, int);


int main()

{

/* esta es la funcion principal en la que declaramos una variable de tipo char que
contendra el string recogido desde "archivo.txt"*/
       
        char buffer[1000];
        char nombre[]="archivo.txt";

/* tras declarar las variables llamamos a la funcion leer fichero() que metera en la
variable buffer el contenido del archivo.txt, luego llamaremos a la funcion vulnerable
para que copie el contenido de este a una variable de buffer de menor tamaño que esta */

        LeerFichero(buffer,nombre,1000);
        FuncionVulnerable(buffer);
        system("pause");
        return 0;
}

/* la funcion leer fichero, abre el fichero, lo lee y lo guarda en la variable buffer */

int LeerFichero(char*Fbuffer, char Fnombre, int Limite)
{
        int c;
        int n=0;

        FILE *f;
        f=fopen(Fnombre,"r");
        while ((c=getc(f))!=EOF)
        {
                if(n<Limite)
                {Fbuffer[n++]=c;}
        }
        Fbuffer[n++]=0;
        fclose(f);
        return 0;
}

/* funcion vulnerable. Esta funcion es lo importante de este codigo, en esta función
recibimos el puntero donde se encuentra la variable que contiene el texto introducido
en archivo.txt. La funcion copiara el contenido de esta variable a una variable de tipo char
de un tamaño inferior a la variable buffer. seguidamente mostrara el contenido de esta.*/

int FuncionVulnerable(char *cptr)
{
        char buff[300]= "Datos";
        strcpy(buff,cptr);
        printf("%s\n\n",buff);
        return 0;
}


/* Funcion Oculta. Ninguna de las otras funciones anteriares llama a esta */

int FuncionOculta()
{
        printf("Este texto nunca deberia de mostrarse");
        return 0;
}
/code]



 Es necesario consultar 3 campos en el listview para determinar que no esta repetido (material,medidaancho y medidalargo) si estos 3 son verdadero entonces que me mande un mensaje que ya esta en la lista

Private Sub cmdagregar_Click()
'validar que esten seleccionados los campos
If txtmaterial.Text = "" Then MsgBox " Seleccione el tipo de Material", vbInformation, "Aviso": Exit Sub
If Combo2.Text = "" Then MsgBox "Seleccione Medida de Largo", vbInformation, "Aviso": Exit Sub
If Combo3.Text = "" Then MsgBox "Seleccione la Cantidad a Imprimir", vbInformation, "Aviso": Exit Sub
If Combo1.Text = "" Then MsgBox "Desea Aplicar Descuento", vbInformation, "Aviso": Exit Sub
If txtentrega.Text = "" Then MsgBox "Seleccione Fecha de Entrega", vbInformation, "Aviso": Exit Sub
'validar que el producto no se encuentre ya en el detalle
Dim i As Long
Dim j As Long
With ListView1
    .View = lvwList
For i = 1 To .ListItems.Count
For j = i + 1 To .ListItems.Count
If .ListItems.item(i).ListItems.item(i).SubItems(1) And .ListItems.item(i).SubItems(2) = .ListItems.item(j) And _
                                                                 .ListItems.item(j).SubItems(1) And .ListItems.item(j).SubItems(2) Then
MsgBox "Esa Información ya existe en la lista de Facturación", vbInformation, "Aviso": Exit Sub
End If
If j = .ListItems.Count Then
Exit For
End If
Next

With RsTemporalFacturaPlotter
    .Requery
    .AddNew
    !material = txtmaterial.Text
    !medidaancho = CDbl(txtancho.Text)
    !medidalargo = CDbl(txtlargo.Text)
    !cantidad = txtcantidad.Text
    !descuento = CDbl(txtdescuento.Text)
    !importe = CDbl(txtimporte.Text)
    !semana = lblsemana.Caption
    !Hora = lblhora.Caption
    .Update
End With
agregar                     'llena el listview1 con los datos que meti
'calcular los totales
txtsubtotal.Text = Sumar    'suma toda la lista de precios del campo precio del listview1
txtiva.Text = txtsubtotal.Text * 0.1
txttotal.Text = txtsubtotal.Text + txtsubtotal.Text * 0.1
limpiar         'limpia todo el pedo
End Sub

Gracias por su atención

A la hora de guardar la lista en mi base de datos
With RsDetalleFacturaPlotter
    .Requery
    .AddNew
>  !material = ListView1.ListItems(1)
    !medidaancho = ListView1.ListItems(2)
    !medidalargo = ListView1.ListItems(2)
    !cantidad = ListView1.ListItems(4)
    !descuento = ListView1.ListItems(5)
    !importe = ListView1.ListItems(6)
    !fechadeentrega = ListView1.ListItems(7)
    .Update
End With
Me aparece un error que dice:
El indice está fuera de los limites
Si necesitan mas información porfavor preguntenme esque no me se explicar muy bien ya busque información y los ejemplos que encontré no son lo que yo necesito  -------------------------------------------:huh:--------------------------------------------

Lo que deseo es que cuando seleccione en el DTPiker inicial y el DTPfinal un rango de fechas me filtre las facturas creadas en esas fechas y me lo muestre en un List1

'------------------Module Sentence---------------------------------------------------
Sub main()
With Base   
    .CursorLocation = adUseClient
    .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sistemaelangel.mdb;Persist Security Info=False"
    LoginForm.Show
End With
End Sub
'------------------Module Declare-----------------------------------------------------
Global Base As New ADODB.Connection

Global RsFactura As New ADODB.Recordset



------------------Código en el Form--------------------------------------------------
Sub llenalista1()
Dim sqllista1 As String
sqllista1 = "SELECT COUNT(fecha) as cantidad FROM TablaFactura AND  fecha BETWEEN #" & Format(DTPicker1, "mm/dd/yyyy") & "# AND #" & Format(DTPicker2, "mm/dd/yyyy") & "#"

List1.Clear
Do While Not TablaFactura.EOF
List1.AddItem TablaFactura.Fields("cantidad")
TablaFactura.MoveNext
Loop

End sub