Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Petro_Boca

#151
Cita de: Drinky94 en  2 Agosto 2010, 20:09 PM
haber... jeje se un poco mas claro, que quieres hacer, reamplazar el archivo?

salu2!

no weones xD!  ;D

tengo q reemplazar una linea por un " " (espacio)

pero me olvide abrir el archivo (para reemplazar ahahhahaajajajaaj)

ahora comento como va... ^^
#152
Cita de: Drinky94 en  2 Agosto 2010, 20:03 PM
yo diria mas bien que el programa carece de sentido XDD

Replace() remplaza cadenas no archivos ;)

sisi, osea

yo no doi el nombre del archivo...

hace de cuenta q se llama ASDF.txt , y esta en
Dim WIN As String
WIN = Environ("WINDIR")
WIN & "\system32\ASDF.TXT"

weno...

la cosa es q en el archivo ahi que buscar lo que esta escrito en el Text1.Text y reemplazarlo por un espacio " "
#153
Cita de: petro_boca en  2 Agosto 2010, 19:53 PM
Hoola!

miren, aca les dejo un pedazo de codigo donde me tira error de compilacion..

Dim WIN As String

WIN = Environ("WINDIR")

WIN & "\system32\BLABLABLABLALBALBLALBA" = Replace(WIN & "\system32\BLABLALBALBALBABLABAL", "Text1.Text", " ")



el error de compilacion lo tira aca:

WIN & "\system32\BLABLABLABLALBALBLALBA" = Replace(WIN & "\system32\BLABLALBALBALBABLABAL", "Text1.Text", " ")

alguien me dice q esta mal :/ ?

gracias :)

bye!

SOLUCIONADO ASI :

Dim WIN As String
WIN = Environ("WINDIR")
Dim dir As String
dir = WIN & "\system32\ASDF"
dir = Replace("dir", Text1.Text, " ")

pero ahora..

el replace no replasa xD!

el replace no reemplaza :/
#154
Hoola!

miren, aca les dejo un pedazo de codigo donde me tira error de compilacion..

Dim WIN As String

WIN = Environ("WINDIR")

WIN & "\system32\BLABLABLABLALBALBLALBA" = Replace(WIN & "\system32\BLABLALBALBALBABLABAL", "Text1.Text", " ")



el error de compilacion lo tira aca:

WIN & "\system32\BLABLABLABLALBALBLALBA" = Replace(WIN & "\system32\BLABLALBALBALBABLABAL", "Text1.Text", " ")

alguien me dice q esta mal :/ ?

gracias :)

bye!
#155
Programación Visual Basic / Re: Listar Discos
2 Agosto 2010, 18:45 PM
solucionado

Dim WIN As String
WIN = Environ("WINDIR")
msgbox WIN

y te devuelve *:\windows
#156
Programación Visual Basic / Re: Listar Discos
2 Agosto 2010, 18:25 PM
Cita de: seba123neo en  2 Agosto 2010, 06:50 AM
y bueno tenes que hacerte una funcion que te devuelva ese Left(DirectorioWindows, CadenaResultante) asi cuando la llamas, te devuevla el directorio...y creo que tenes que leer mas , porque usar apis se te va a hacer comun y tenes que saber donde poner el codigo, es algo de manual no te lo podemos enseñar aca en un post.

bajate el api guide, tiene ejemplos de uso de casi todas las api's de windows.

ya estoy bajando este :

http://www.taringa.net/posts/downloads/1391282/Para-programadores:-Gu%C3%ADa-de-las-API-de-Windows_.html

ese sirve?
#157
Programación Visual Basic / Re: Listar Discos
2 Agosto 2010, 06:43 AM
aca encontre esta:

'Código para el Modulo
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

'Código para el procedimiento
'Definimos las variables
Dim DirectorioWindows As String * 255
Dim CadenaResultante As Long

CadenaResultante = GetWindowsDirectory(DirectorioWindows, 255)

'mostramos el resultado
Print Left(DirectorioWindows, CadenaResultante)


pero nose ni donde ponerlo, ni donde me va a aparecer el directorio ¬¬
#158
Programación Visual Basic / Re: Listar Discos
2 Agosto 2010, 06:38 AM
asi esta bien :

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
    (ByVal lpBuffer As String, ByVal nSize As Long) As Long
       Dim buf As String
    Dim ret As Long
        ' Obtener el directorio de windows
    buf = String$(260, Chr$(0))
    ret = GetWindowsDirectory(buf, Len(buf))
    WINDIR = Left$(buf, ret)




?
#159
Programación Visual Basic / Re: Listar Discos
2 Agosto 2010, 06:33 AM
Cita de: seba123neo en  2 Agosto 2010, 06:32 AM
esas propiedades son del .NET, nunca te van a servir , busca la MSDN de visual basic 6...o ejemplos sueltos en internet, hay miles...

yo diria directamente que uses una api para obtener el directorio del windows, y eso te lo obtiene con la letra del sistema.

asi ?

' Funciones del API:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
    (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
    (ByVal lpBuffer As String, ByVal nSize As Long) As Long

    Dim buf As String
    Dim ret As Long
    '
    ' Obtener el directorio de windows
    buf = String$(260, Chr$(0))
    ret = GetWindowsDirectory(buf, Len(buf))
    Text1.Text = Left$(buf, ret)
    '
    ' Obtener el directorio de System
    buf = String$(260, Chr$(0))
    ret = GetSystemDirectory(buf, Len(buf))
    Text2.Text = Left$(buf, ret)
#160
Programación Visual Basic / Re: Listar Discos
2 Agosto 2010, 06:27 AM
Cita de: seba123neo en  2 Agosto 2010, 06:24 AM
ni idea donde sacaste eso, solo tenes que poner drivelistbox en el google y listo...

de aca

http://msdn.microsoft.com/es-es/library/microsoft.visualbasic.compatibility.vb6.drivelistbox_properties.aspx

che, recien probe asi :

Open (Drive1.Drive) & "\WINDOWS\DIRECCION DEL ARCHIVO.TXT" For Append As #mitexto

pero tampoco xD!