Mensajes

que suerte/coincidencia hace unos días necesitaba hacer lo mismo y me arme esta función.

Código (vb) [Seleccionar] Expandir

'Ejemplo uso
'MsgBox (R_B("Hola soy: Daniel :)", ": ", " :)", "Pink"))


'replace_between
Private Function R_B(cadena As String, str1 As String, str2 As String, strReemplazo As String, Optional Count As Long = -1) As String
Dim Inicio As Long
Dim Fin As Long
Dim Largo As Long
Dim sRemplazar As String
Largo = Len(str1)
Inicio = InStr(1, cadena, str1)
If Inicio = 0 Then R_B = "": Exit Function
Inicio = Inicio + Largo
Fin = InStr(Inicio, cadena, str2)
If Fin = 0 Then R_B = "": Exit Function
sRemplazar = Mid(cadena, Inicio, Fin - Inicio)
cadena = Replace(cadena, sRemplazar, strReemplazo, 1, Count)
R_B = cadena
End Function

saludos

En vb.net se usa strdup.

Código (vbnet) [Seleccionar] Expandir

Dim i As Integer
        Dim cadena As String = ""
        Dim n As Integer
        n = 5
        For i = 1 To n
            cadena &= StrDup(i, "*") & vbCrLf
        Next
        MsgBox(cadena)


saludos

en vb6 hay una función que se llama string que te resolveria el problema casi completo.

por ejemplo. en (Pseudocódigo)



para i = 1 hasta n

micadena es igual a lo que contenga mi cadena y string(i,"caracter") & pongo y paso a una linea nueva.

saludos

Se me ocurrió algo masomenos así:

Código (python) [Seleccionar] Expandir

import re
cadena="hola que tal soy del norte"

for palabra in cadena.split(" "):
if len(palabra)==3:
  l1=re.match("[^aeiou]", palabra[-1])
  l2=re.match("[^aeiou]", palabra[0])
  l3=re.match("[aeiou]", palabra[1])
  if l1 and l2 and l3:
     print (palabra)
     print palabra[0]+palabra[-1]

Espero te sirva de ayuda. aunque no sea la forma mas eficiente. funciona para monosílabas de largo 3.

saludos

Yo tampoco pude, asi que envés de textbox use un control webbrowser, si te interesa, te doy el código amigo

A mi me funciona de las dos formas que te coloqué.


No gracias no necesito el código.

Con este ejemplo ya esta casi terminado lo que quieres. la próxima ayuda sera menor literal. porque tampoco me voy a poner a hacer todo por usted.

Código (python) [Seleccionar] Expandir

from Tkinter import *
import tkFileDialog
import os
v0=Tk()

list1=Listbox(v0,selectmode=EXTENDED)
list1.pack()
mivalor=StringVar()

def listar():
    dirname = tkFileDialog.askdirectory(parent=v0,initialdir="/",title='Selecciona una Carpeta')
    if len(dirname ) > 0:
        print "Directorio= %s" % dirname
        os.chdir(dirname)
        for files in os.listdir("."):
         if files.endswith(".jpg"):
          print files
          list1.insert(END,files)

def Borrar():
        items = list1.curselection()
        pos = 0
        for i in items :
            idx = int(i) - pos
            list1.delete( idx,idx )
            pos = pos + 1


b1=Button(v0,text="Insertar en Listbox",command=listar).pack()
b2=Button(v0,text="Insertar en Listbox2",command=Borrar).pack()
v0.mainloop()


Ponte a estudiar.

saludos

Coloca el textbox en multilinea.

Saludos

Que error te da?

tal vez así:

Código (vbnet) [Seleccionar] Expandir



Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString("http://localhost/versionf.txt")
Text1.Text=result



Saludos

En la Respuesta de abajo te hice casi todo el proyecto :S es cuestión de preocuparse por buscar un poco de info sobre Tkinter.

Saludos

Yo pensé en algo así 

Código (python) [Seleccionar] Expandir

from Tkinter import *
import tkFileDialog
import os
v0=Tk()

list1=Listbox(v0)
list1.pack()
mivalor=StringVar()

def listar():
    dirname = tkFileDialog.askdirectory(parent=v0,initialdir="/",title='Selecciona una Carpeta')
    if len(dirname ) > 0:
        print "Directorio= %s" % dirname
        os.chdir(dirname)
        for files in os.listdir("."):
         if files.endswith(".jpg"):
          print files
          list1.insert(END,files)
   

b1=Button(v0,text="Insertar en Listbox",command=listar).pack()

v0.mainloop()



Saludos