Temas

gente tengo un xxx.xml con lineas

cada linea contiene bloques que podriamos ponerle como delimitardor comillas(cada bolque de texto esta encerrado entre comillas)

lo que necesito es ahcer un script q me recorra el archivo y me compare todos los numeros del bolque 6 y elimine los repetidos

osea en todas las lineas, en el bloque 6 hay un numero quiero q compare cada uno con cada bloque 6 de cada linea y si encuentra repetidos que elimine las lienas completas, PERO conservado uno de esos blokes repetidos

ejemplo con 3 bloques (comparando bloque 2):


"asdhgjg" "123" "sdfjhsdfl"
"asdhgjg" "321" "sdfjhsdfl"
"asdhgjg" "456" "sdfjhsdfl"
"asdhgjg" "654" "sdfjhsdfl"
"asdhgjg" "123" "sdfjhsdfl"
"asdhgjg" "789" "sdfjhsdfl"
"asdhgjg" "987" "sdfjhsdfl"
"asdhgjg" "123" "sdfjhsdfl"
"asdhgjg" "000" "sdfjhsdfl"
"asdhgjg" "123" "sdfjhsdfl"
"asdhgjg" "111" "sdfjhsdfl"
"asdhgjg" "123" "sdfjhsdfl"


esta repetido el "123"

quiero q se eliminen todas las lineas completas q contengan el "123" solamente conservando una de ellas...quedando:


"asdhgjg" "123" "sdfjhsdfl"
"asdhgjg" "321" "sdfjhsdfl"
"asdhgjg" "456" "sdfjhsdfl"
"asdhgjg" "654" "sdfjhsdfl"
"asdhgjg" "789" "sdfjhsdfl"
"asdhgjg" "987" "sdfjhsdfl"
"asdhgjg" "000" "sdfjhsdfl"
"asdhgjg" "111" "sdfjhsdfl"


pense en hacerlo con un cut pero la verdad que estoy medio perdido...quiza para algunos es una boludes hacerlo


desde ya muchas gracias

hola a todos

queria pedir ayuda para automatizar una tarea con un bat, la idea es crear un trial resset para el kaspersky

si alguien utilizó alguno me va a entender que despues de ejecutar el trail resset tenemos que volver a activar el kaspesky nosotros, lo que quiero es que se vuelva a activar solo

yo logre crear el bat q me resetea el periodo de prueba y me vuelve a abrir el kaspersky, cuando este se abre lo primero que aparece es la pantallita para volver a activarlo

se tendria que autoseleccionar la 2da opcion (activar la versión de evaluacion)

muchas gracias!


PD: me dio la idea un trial resset que encontre del avira antivir que te lo autoactiva todo solo, rellena formularios y todo

MOD :
Ortografía.

hola a todos

necesito agregar una clave de registro con valor exa, asi la agrego desde un .reg:

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]
"link"=hex:00,00,00,00

lo que hace es omitir el "acceso directo a" cuando creamos un acceso directo y desde un .cmd utilizo esto para agregar

AÑADIR CLAVE EN EL REGISTRO

REG ADD clave [/v nvalor | /ve] [/t tipo] [/s separador] [/d datos] [/f]

  clave      [\\equipo\]tclave
             Equipo     nombre del equipo remoto. Si se omite se usa el
                        equipo actual. Sólo HKLM y HKU están disponibles
                        para equipos remotos.
             tclave     CLAVERAIZ\subclave
             CLAVERAIZ  [ HKLM | HKCU | HKCR | HKU | HKCC ]
             subclave   Nombre completo de una clave de registro en la
                        CLAVERAIZ seleccionada.

  /v         Nombre del valor en la clave seleccionada para agregar

  /ve        Agrega el nombre de valor vacío <sin nombre>

  /t         Tipos de datos de clave de registro
             [ REG_SZ    | REG_MULTI_SZ  | REG_DWORD_BIG_ ENDIAN    |
               REG_DWORD | REG_BINARY    | REG_DWORD_LITT LE_ENDIAN |
               REG_NONE  | REG_EXPAND_SZ ]
             Si se omite, se asume REG_SZ

  /s         Especifica el carácter que usa como separador en su cadena
             de datos para REG_MULTI_SZ. Si se omite, se usa "\0" como
             separador

  /d         Datos que se asignan a nvalor del registro que se agrega

  /f         Fuerza la sobrescritura de entradas de registro existentes
             sin avisar.

Ejemplos:

  REG ADD \\ABC\HKLM\Software\MiCo
    Agrega una clave HKLM\Software\MiCo en el equipo remoto ABC

  REG ADD HKLM\Software\MiCo /v datos /t REG_BINARY /d fe340ead
    Agrega un valor (nombre: datos, tipo: REG_BINARY, datos: fe340ead)

pero no se como agregar un valor exa


si me pueden ayudar...gracias

tengo este comando para examinar carpetas y derivar la ruta a un textbox
alguien sabe como adaptarlo apra q aparezcan losarchivos tmb y no solo la ruta de carpetas?


'CREE UN BOTON Y UN CUADRO DE TEXTO en un formulario nuevo

Option Explicit
DefLng A-Z
'DECLARACIONES
' Este es el tipo que se pasa a la función del API SHBroseForFolder
Private Type BROWSEINFO
hWndOwner As Long 'ventana propietaria del dialogo de buscar carpetas
pidlRoot As Long 'puntero al ItemID de la carpeta raíz
pszDisplayName As String 'el nombre mostrado del objeto
lpszTitle As String 'el titulo de la ventana de dialogo
uFlags As Integer 'modificadores - ver abajo
lpfn As Long 'direccion de una funcion "callback" (opcional)
lParam As Long 'para el "callback", no utilizado
iImage As Long 'para el "callback", no utilizado
End Type
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "Shell32" Alias "SHBrowseForFolderA" (lpbi As BROWSEINFO) As Long
Const BIF_RETURNONLYFSDIRS As Integer = 1 'Devolver sólo directorios del Sistema de Ficheros
'--------------------------------------------------------------------------------------
' Muestra un diálogo de buscar carpetas y devuelve el path a la carpeta escogida
' o una cadena vacía si la operación se canceló. Nótese que este procedimiento sólo
' devuelve carpetas del sistema de ficheros, no carpetas virtuales como Mi Ordenador o
' el Panel de Control
'--------------------------------------------------------------------------------------
Private Function BrowseForFolder(ByVal f_HWnd As Long, Optional lpTitle As Variant) As String
On Error Resume Next
Dim lpiidl As Long, lResult As Long
Dim lpbi As BROWSEINFO
Dim lpszBuf As String
Dim lpszNameSpace As String
lpszBuf = String$(255, Chr$(0))
lpszNameSpace = String$(255, Chr$(0))
'fijar los valores iniciales
With lpbi
.hWndOwner = f_HWnd 'el propietario del diálogo (para operación modal o no modal)
.pidlRoot = vbNullString 'comenzar a partir del Escritorio
.lpszTitle = lpTitle 'el texto por encima del árbol de carpetas (NO el "caption" del diálogo)
.pszDisplayName = lpszBuf 'contendrá al volver el nombre del objeto seleccionado
.uFlags = BIF_RETURNONLYFSDIRS 'devolver sólo carpetas del sistema de ficheros
.lpfn = vbNullString 'no hay función de "callback"
.lParam = 0& 'para el "callback", no utilizado
.iImage = 0& 'para el "callback", no utilizado
End With
' Mostrar el diálogo de buscar carpetas y obtener el puntero al ItemID asociado a la carpeta escogida
lpiidl = SHBrowseForFolder(lpbi)
' Si el usuario canceló el diálogo o ocurrió un error, devolver una cadena vacía
If lpiidl = 0 Then BrowseForFolder = "": Exit Function
' Obtener el path del objeto seleccionado a partir del itemID
lResult = SHGetPathFromIDList(lpiidl, lpszNameSpace)
If lResult = 1 Then 'la función devuelve 1 si tuvo éxito, 0 si hubo algún fallo
' Devolver el path a la carpeta, quitando los caracteres nulos extras
BrowseForFolder = Left$(lpszNameSpace, InStr(lpszNameSpace, Chr$(0)))
End If
End Function


Sub Command1_Click()
Dim ShellPath As String
ShellPath = BrowseForFolder(Me.hWnd, "Escoja una carpeta")
If ShellPath <> "" Then
Text1.Text = Left(ShellPath, Len(ShellPath) - 1)
Else
MsgBox "¡Operación cancelada!"
End If
End Sub

queria agregar a un programita q estoy haciendo

un textbox en donde al apretar un boton me muestre la clave del windows xp y vista

segun lo q creo es leyendo esta clave

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents]
"OOBETimer"=hex:fe,e5,71,d6,8b,6a,8d,6f,d5,33,93,jd

pero no se como pasar ese numero hexa a letras...porque al hacerlo me muestra signos como:

Ö
ÿ

gracias

holaa

queria saber como poder ingresar en un combobox  ejemplo:3 nombre

Martin

maria

julio

y que al seleccionar alguno me ponga en visible un frame y me esconda los otros 2

PD: hay un frame creado para cada nombre

ej: si selecciono martin (el frame1 tiene los datos de martin, esconodo los otros 2 frame)

frame1.visible=true
frame2.visible=false
frame3.visible=false


graciass

diseñe un programa parecido a la opciond e windows para personalizar el menu de inico

elimnar o motrar mi pc, panle de control, mis documentos, conexiones de red, etc

el tema es q los cambios se realizan despues de reiniciar la pc

queria saber como refrescar el menu inico para q aparezcan o desaparezcan las opciones que pongo, el de windows lo refresca cuando le damos en aplicar...


graciass!!

como crear un punto de restauracion instantaneo???

esto es en .vbs por si alguien sabe como pasarlo a vb6

rp = "Scripted Restore Point by " & WScript.ScriptName GetObject("winmgmts:.rootdefault:Systemrestore").CreateRestorePoint rp, 0, 100

gracias

esta es la clave de registro q guarda la pag de inico de IE

HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page

me gustaria q en un textbox se muestre la pagina actual establecida


gracias

quiero editar esta clave para desbloquear la pagina de inicio de IE

HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel

pero como "Internet Explorer" y "Control Panel"


son palabras separadas no realiza ningun cambio :S


como puedo hacer

quisiera saber como modificar el registro de windows desde vb6

me refiero a crear claves o cadenas, borrarlas o modificarlas

necesito cambiarle el nombre a una conexion de red a travez de un .bat

el tema es q no se cual es el directorio por defecto de conexiones de red

alguien tiene idea de como hacerlo?


gracias

buenas


para visual basic 6 a ver si alguien me puede ayudar


quisiera un comando q me elimine todos los archivos "aaa.txt" de un directorio (mejor dicho de una carpeta y todas sus subcarpetas)

se supone q una carpeta "c:\xxx" contiene un archivo "aaa.txt"(no puede contenet 2 xq no va a haber mas d 1 archivo con el mismo nombre jajaj) ademas contiene subcarpetas:

c:\xxx
c:\xxx\yyy
c:\xxx\yyy\ddd
c:\xxx\hhh\
c:\xxx\hhh\jjj

bueno en fin se supone q tambien en cada una de ellas existe el archivo "aaa.txt" el cual quiero eliminar

pero OJO!! solo ese archivo....no todos los archivos q se encuentran en las carpetas, ni tampoco todos los *.txt de las carpetas, solo los q contengan ese nombre completo

================================================== ==============================

tambien necesito reemplazar un archivo, que tengo en la carpeta del proyecto de visual basic(osea junto al .exe y los otros archivos de mi proyecto), en todo un directorio

siguiendo el ejemplo anterior, suponiendo que en la carpeta del proyecto de vb tengo un "aaa.txt" el cual quiero reemplazarlo porr cada uno de los q se encuentra en la carpeta c:\xxx y en sus subcarpetas


si alguien tiene alguna idea


muchas gracias

tengo una carpeta que contiene un "aaa.txt" ademas contiene muchas subcarpetas en las que tambien se encuentra ese "aaa.txt"

necesito un comando que le cambie la extensión a todos esos "aaa.txt" pero sin eliminarlos... osea seria copiarlos en la misma carpeta pero con otra extensión

ej: en cada carpeta y subcarpetas de estas tiene que quedar un "aaa.txt" y un "aaa.bat" (por decir una extensión)


C:\test\aaa.bat
C:\test\aaa.txt
C:\test\test
C:\test\test\aaa.bat
C:\test\test\aaa.txt
C:\test\test\test
C:\test\test\test\aaa.bat
C:\test\test\test\aaa.txt
C:\test\test\test\test
C:\test\test\test\test\aaa.bat
C:\test\test\test\test\aaa.txt

el problema es q no se cuantas subcarpetas hay ni cuales contienen el archivo "aaa.txt".....

lo unico que conozco es  la ubicacion de la carpeta principal. Ademas de que hay otros archivos con extensión .txt así q no me sirve cambiar solamente la extensión...ti ene que ser unicamente los archivos con ese nombre completo ("aaa.txt)


graciass


PD: comando de batch por si alguien le da una idea de como hacerlo en vb6

cd /d "C:\test"
for /r "C:\test" %%- in (aaaa.txt) do (                           
copy /y "%%-" "%%~pn-aaa.bat" > nul 2>&1   
)






lo mas cercano que encotre fue esto

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/8.htm

esto me busco y enlisto todos los archivos q necesitaba en un "listbox"

pero no encuentro la manera de hacer una copia de cada uno de ellos en su propio directorio...

hay alguna forma de trabar con cada linea que se escribe en el "listbox"? seria lo ideal!!!!


muchas gracias

ayuda!!

por favor alguien podria explicarme como ejecutar comandos batch en vb6?

yo tengo 2 .bat que los lanzo con un shell desde un menu de visual basic 6 pero me gustaria ejecutar los comando directamente desde vb sin tener que llamar a ningun .bat


alguien tiene idea de como hacerlo???


o saber si todo lo que hago con un .bat lo puedo hacer en vb ?¿?

esta es una de las cosas que ahce el .bat

cd "%programfiles%\xxx\"  (se situa en %programfiles%\xxx\)            
if exist "aaabackup.txt" goto :nolob (si en esa carpeta existe "aaabackup.txt" salta...si no existe sale)
exit
:nolob (es el salto)
FOR /R %%x in ("aaa.dll") DO (del "%%x") (elimina todos los archivos "aaa.dll" que se enceuntran en la carpeta %programfiles%\xxx\ y en todas sus subcarpetas, se spone que hay un archivo "aaa.dll" en la carpeta principal y uno en cada subcarpeta)
FOR /R %%x in ("aaabackup.txt") DO (rename "%%x" "aaa.dll") (renombra todos los archivos "aaabackup.txt" que se enceuntran en la carpeta %programfiles%\xxx\ y en todas sus subcarpetas)



desde ya muchas gracias!

hola

tengo una carpeta (carpeta "ejemplo") dentro de  "C:\Archivos de programa" , adentro hay una dll ("ejemplo.dll") y varias subcarpetas que tambien contienen la misma dll

lo que necesito es un comando que me renombre todas las "ejemplo.dll" (la que se encuentra en la carpeta "ejemplo" y en todas las subcarpetas de esta...

logre hacerlo ejecutando un .bat desde dentro de la carpeta "ejemplo"...pero lo que necesito es un comando que funcione ejecutando el .bat desde cualqueir ubicacion


muchas gracias

Mod: no dejar mail's