Mensajes

ok gracias

he realizado el procedimiento de otra forma, pero no lo he terminado, haber que les parece esta otra forma??

espero que me puedan ayudar a terminarlo.

Código (vbnet) [Seleccionar] Expandir


Dim leer_ip, leer_nombre, leer_comentario As String
        Const fichero As String = "C:\examen_carlos_barea\ExamenFicheros\windows2\copi_hosts"
        Dim sr As New System.IO.StreamReader(fichero)

        leer_ip = "1.1.1.1"

        If My.Computer.FileSystem.FileExists(fichero) = True Then
            Do Until (leer_ip = Nothing)
                leer_ip = sr.ReadLine
                leer_nombre = sr.ReadLine
                leer_comentario = sr.ReadLine
                If leer_ip = Nothing Then
                    Exit Do
                End If
                S_ip(S_ip.Length - 1).ip = Microsoft.VisualBasic.Mid(sr.ReadLine(), 1, 3)
                S_ip(S_ip.Length - 1).ip = Microsoft.VisualBasic.Mid(sr.ReadLine(), 5, 7)
                S_ip(S_ip.Length - 1).ip = Microsoft.VisualBasic.Mid(sr.ReadLine(), 9, 9)
                S_ip(S_ip.Length - 1).ip = Microsoft.VisualBasic.Mid(sr.ReadLine(), 11, 12)
                S_ip(S_ip.Length - 1).nombre = leer_nombre
                S_ip(S_ip.Length - 1).comentario = leer_comentario
                sr.ReadLine()
                'If (S_ip(S_ip.Length - 1).ip = Microsoft.VisualBasic.Mid(sr.ReadLine(), 1, 3) = leer_ip And S_ip(S_ip.Length - 1).ip = Microsoft.VisualBasic.Mid(sr.ReadLine(), 5, 7) = leer_ip) And (S_ip(S_ip.Length - 1).ip = Microsoft.VisualBasic.Mid(sr.ReadLine(), 9, 9)) And (S_ip(S_ip.Length - 1).ip = Microsoft.VisualBasic.Mid(sr.ReadLine(), 11, 12)) Then
                '    MessageBox.Show("ok")
                'End If
                ' aumento la matriz
                ReDim Preserve S_ip(S_ip.Length)
            Loop
            sr.Close()
        Else
            MessageBox.Show("El fichero de inicio no existe...", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If


haber si me pueden ayudar a realizar este procedimiento, el procedimiento es el siguiente:

  Al pulsar buscar y reemplazar (SI LA IP A BUSCAR esta en el fichero HOSTS) la reemplazara por la nueva, o no mostrando un mensaje.

tengo un formulario en el cual tengo 8 textbox, 1 para cada grupo de numeros de la ip y lo que tengo que realizar es lo siguiente:

  tengo un fichero el cual tiene varias ip y lo que tiene que hacer es que yo le introduzco una ip en los 4 textbox y si existe esa ip en el fichero la reemplaza por la ip que coloque en los 4 textbox ultimos.

el codigo que yo he realizado es el siguiente:

Código (vbnet) [Seleccionar] Expandir


Const fichero As String = "C:\ejer\Ficheros\windows2\copi_hosts"

' 1. camino o estrean para cargar la informacion
           Dim sr As New System.IO.StreamReader(fichero)
           ' 2. leer el archivo
           leer_ip = sr.ReadLine
           leer_nombre = sr.ReadLine
           leer_comentario = sr.ReadLine

           ip_buscar = CStr(txt_B1.Text(Mid(1, 3)) & "." & txt_B2.Text(Mid(5, 7)) & "." & txt_B3.Text(Mid(9, 9)) & "," & txt_B4.Text(Mid(11, 12)))
               MessageBox.Show("ip_buscar: " & ip_buscar)

       Catch ex As Exception

       End Try


aunque creo que seria una mejor forma de realizarlo haciendo lo siguiente:
    mirar la estructura del fichero hosts y crear una estructura y una matriz de estructuras que recoja esa información. cuando lo reemplacemos lo cambiaremos en la matriz de estructuras y después enviamos toda la matriz al fichero.

espero haberme explicado bien, si tienen alguna duda preguntenme

Hola a todos

tengo una pequeña duda que creo que no es muy complicada de resolver. me gustaría saber cual es el método que tengo que utilizar para elegir de una cadena que me lea un numero de caracteres concreto, por ejemplo;

mis ordenadores

y me devuelva 8 caracteres:

is orden

saludos

ok

yo la que he instalado es la de 32 bits, le he intentado instalar los paquetes des de el CD pero no me lo coge y si yo el repositorio cogi el de suiza que creo que es bastante estable, pero no puedo instalar nada.

alguien me podría decir que puedo hacer???

hola a todos,  me he instalado una maquina virtual de debian "sin entorno gráfico", a la cual le quiero indicar que para instalar los diferentes paquetes los coja de internet, ya que ahora los coge del CD-ROM, creo que para cambiar esto hay que hacerlo en:
     /etc/apt/sources.list
en la que le he añadido las siguientes lineas de código:
     deb http://ftp.de.debian.org/debian/  testing main contrib non-free
     deb-src http://ftp.de.debian.org/debian/  testing main contrib non-free

estas creo que no son pero también las he probado:
     deb http://ftp.us.debian.org/debian/  stable main contrib non-free
     deb-src http://ftp.us.debian.org/debian/  stable main contrib non-free
-------
     deb http://ftp.de.debian.org/debian/  sarge main contrib non-free
     deb-src http://ftp.de.debian.org/debian/  sarge main contrib non-free

la versión de debian que he instalado es:
     debian testing 32 bits

espero que me puedan ayudar!!!!

Saludos

solucionado!!!!!

Hola a todos, estoy realizando un Script en Bash y tengo algunas dudas las cuales me gustaría que me las resolvieran a medida que voy haciendo el script.

Enunciado del Script:

   Crear un script que permita generar una factura por pantalla. para ello, se debera pedir en primer lugar, nombre y dni del usuario, y a continuacion cuantos articulos se van a comprar. a partir de ahi, existe un fichero en la misma carpeta del scipt, llamado productos.txt, donde estan los codigos, los nombres y el precio de cada producto. el usuario mostrara en pantalla el codigo de cada uno de los productos que desea comprar y la cantidad de ellos, y el script ira guardando todo esto en un fichero pra generar despues lafacura que recogera lo siguiente:

Código [Seleccionar] Expandir

######################################################
FACTURA
######################################################
Fecha: ----------------
Cliente: --------
DNI: -----------
######################################################
Codigo####Descripcion####Cantidad####U.P.####Total####
######################################################
C.2110 producto1 3 5.30  15.90
C.2012 producto2 8 15.20 121.60
######################################################
      SUBTOTAL: 137.50
IVA 18%:  24.75
###############
IMPORTE: 162.25

     IDEA: usar la calculadora bc: c=$(echo 22.5 + 3.75 | bc) y el comando cut para acceder a los codigos, precio y nombres de los productos. el fichero productos.txt puede ser el siguiente:

C.001#caja de CD's 32x 25uds, Verbatin#5.25
C.002#raton laser, logitec#4.50
C.003#pen drive 8GB, Kingston#7.10
C.004#kiingston micro SD 4GB#3.90

Ahora os pongo el codigo que he realizado y os comento la duda dentro del código:

Código (bash) [Seleccionar] Expandir


#!/bin/bash

echo ""
echo "LISTADO DE PRODUCTOS"
echo "-------------------------------------------"
cat /home/barea/unity/ejercicios_de_Scipt_en_Bash/cut/ejer57/productos.txt
echo "-------------------------------------------"
echo ""

i=1
read -p "elige el producto $i que desees o S para salir: " prod
echo "prod1: "$prod

#        en la variable codig quiero guardar la primera columna del fichero, pero me sale toda la columna en una linea y creo que es
# por eso por lo que no me funciona lo que he realizado mas adelante de del head | tail, como lo tendria que hacer???
codig=$(cat /home/barea/unity/ejercicios_de_Scipt_en_Bash/cut/ejer57/productos.txt | cut -d "#" -f 1 | grep '^[C,c]\.[0-9]\{3\}$')
echo "Codig: "$codig

while [ $prod != 'S' ]
do
echo "i: "$i
linea_cod_fich=$(head -$i /home/barea/unity/ejercicios_de_Scipt_en_Bash/cut/ejer57/productos.txt | tail -1)
i=$(expr $i \+ 1)
read -p "elige el producto $i que desees o S para salir: " prod
echo "prod1: "$prod
echo "Cod_fich: "$cod_fich
echo "linea_cod_fich: "$linea_cod_fich
exit while
done


Espero que me puedan ayudar, saludos

ok ya lo he solucionado!!!