Temas

Hola a todos.

Tengo el siguiente codigo:

Código [Seleccionar] Expandir

   Dim vDatos() As String
   Dim Item As ListItem
   Dim i As Long

   vDatos = Split(enlace.text, "http://")

   For i = LBound(vDatos) To UBound(vDatos)
       Set Item = lstListing.ListItems.Add(, , vDatos(i))
   Next


El cual tengo un textbox donde pego enlaces, y los separa uno a uno para posteriormente añadirlos en orden en una listview, todo es correcto, pero cuando se añade todo a la listview, siempre me deja un espacio que es lo ultimo que añade, quedandose así:



No tengo mucha idea de que sucede, alguien puede ayudarme?

Muchas gracias.

Hola a todos.

Por mas que intento no puedo pasar este código, que es para obtener la Steam ID de un usuario de Steam con un sencillo codigo en VB.NET:

Código [Seleccionar] Expandir

Imports System.Text.RegularExpressions 
Imports System.IO 
Imports Microsoft.Win32 

Public Class SteamID 
    Public Function GetSteamID() As String 
        Dim regKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Valve\Steam\", True) 
        Dim path As String = regKey.GetValue("InstallPath") 
        Dim location As String = path & "steam.log" 
        Dim content As String 
        Dim read As New StreamReader(location) 
        content = read.ReadToEnd() 
        read.Close() 
        read.Dispose() 
        Dim id = Regex.Match(content, "d:d:d{8}") 

        Return id.ToString() 
    End Function 
End Class

Alguien tendría la amabilidad de ayudarme pasando este código a dialecto de VB6?

Muchas gracias