Mensajes

Código (vbnet,3,8) [Seleccionar] Expandir

For X As Integer = 0 To Elementos.Count - 1 Step 4

    MessageBox.Show(
        String.Format("{0} {1} {2} {3}",
                      Elementos(X),
                      If(Not (X + 1) >= Elementos.Count, Elementos(X + 1), String.Empty),
                      If(Not (X + 2) >= Elementos.Count, Elementos(X + 2), String.Empty),
                      If(Not (X + 3) >= Elementos.Count, Elementos(X + 3), String.Empty), "Cuatro Elementos"))

Next X

Fíjate bien en los cambios, esto puedes hacerlo sin ayuda

Código (vbnet,3,8) [Seleccionar] Expandir

For X As Integer = 0 To Elementos.Count - 1 Step 4

    ListBox1.Items.Add(
        String.Format("{0} {1} {2} {3}",
                      Elementos(X),
                      If(Not (X + 1) >= Elementos.Count, Elementos(X + 1), String.Empty),
                      If(Not (X + 2) >= Elementos.Count, Elementos(X + 2), String.Empty),
                      If(Not (X + 3) >= Elementos.Count, Elementos(X + 3), String.Empty)))

Next X

Saludos!

[mDrinky]

@Nicolas
No formaré parte de la discusión pero creo que deberías sentirte agradecido por el esfuerzo que hacen el resto de compañeros para mostrarte códigos, ya sé que @mDrinky escribió poco, pero podría no haberte escrito nada.

quiero generar los reportes de los IP que esten ocupados por usuarios, lo ideal seria tener el nombre del usuario y su ip en el caso de que estuviece ocupado

No llego a comprender muy bien lo que quieres hacer, pero pareces dar a entender que estás intentando sacar el nombre de usuario de una IP que no está asignada en tu red/grupo de trabajo ( Ejemplo: www.google.com ).

El tema Redes no es lo mio así que quizás estoy equivocado con mis conjeturas pero vamos, yo nunca he oido decir que esto sea algo posible... dudo mucho que sea posible acceder a esa información tan relevante teniendo una misera IP... un Lookup a una IP externa no muestra información acerca del nombre de usuario del SO al que está asignada una IP.

Por otro lado, si es en tu red local y estás usando AD entonces puedes usar priméramente el comando nbtstat para obtener el nombre del equipo de una IP:

Código [Seleccionar] Expandir

nbtstat -a IP

Y luego puedes usar el comando net view para listar los usuarios del dominio de ActiveDirectory.

Código [Seleccionar] Expandir

net view /Dominio:ad

...Por último solo tendrías que usar el comando find y/o findstr para filtrar la salida del comando net view buscando el nombre del equipo que obtuviste usando el comando de nbtstat y listo, ahí verás el nombre de usuario.

No te muestro código porque no puedo manejar esos comandos en mi PC, y tampoco sé si es eso lo que quieres, pero es bin facil de hacer solo tendrías que usar FOR /F para iterar el output de cada comando y quedarte con el valor importante de cada uno.

Saludos!

si, parece que el conversor online se comío las clausulas ' Where' y 'Select' xD, no me di cuenta y tampoco testeé el código en C#.

Me alegro de que lo hayas solucionado.

saludos

[revisaba función por función que me podía servir]

Una prima me enseño 2 comandos en QBasic
LOCATE y PRINT, cuando tenia como 10 años. Sin embargo deseaba hacer más y me puse a buscar en la documentación que en el mismo programa incluía y con diccionario en mano (ya que estaba en inglés) revisaba función por función que me podía servir

Si señor, esa es la manera en la que todos deberían aprender, leyendo del tirón todos los Métodos/Operadores/Classes/etc... junto a sus descripciones para ir conociéndolos por extenso que sea el lenguaje, pero por desgracia hay demasiado vago que siempre suelen preguntar lo más básico de lo más básico (¿Como hacer un print?), ¿Porque? porque no han leido nada, y yo no se para que demonios se ponen a programar esas personas ...si no se lo toman en serio.

En fín, bravo @egyware, me encantó leer tu experiencia.

Saludos

La cosa es que quiero generar los reportes de los IP q

Se te olvido escribir lo más importante. :-/

Saludos

necesito obtener la ruta de un archivo que se está ejecutando

Supongo que por "un archivo que se está ejecutando" te referirás a un proceso en ejecución, de lo contrario explíca mejor.


Te hice un ejemplo (en VB.NET) usando LINQ.

PD:  La razón de porque devuelvo un Array es porque puede haber varias instancias abiertas de un programa multi-instancia con el mismo nombre pero desde distintos directorios (Ej: C:\Proceso.exe, C:\Carpeta\Proceso.exe )

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private Shadows Sub Load() Handles MyBase.Load

       Dim ProcessPaths As String() = GetProcessPath("svchost.exe")

       For Each Path As String In ProcessPaths
           MsgBox(Path )
       Next

   End Sub

   ' Get Process Path
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MsgBox(GetProcessPath("notepad.exe").First)
   '
   ''' <summary>
   ''' Gets the absolute path of a running process.
   ''' </summary>
   ''' <param name="ProcessName">Indicates the name of the process.</param>
   ''' <returns>System.String[][].</returns>
   Public Function GetProcessPath(ByVal ProcessName As String) As String()

       If ProcessName.EndsWith(".exe", StringComparison.OrdinalIgnoreCase) Then
           ProcessName = ProcessName.Remove(ProcessName.Length - 4)
       End If

       Return (From p As Process In Process.GetProcesses
               Where p.ProcessName.Equals(ProcessName, StringComparison.OrdinalIgnoreCase)
               Select p.MainModule.FileName).ToArray

   End Function

End Class

Conversión instantanea a C#:

Código (csharp) [Seleccionar] Expandir


using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
public class Form1
{


private new void Load()
{
string[] Processes = GetProcessPath("svchost.exe");

foreach (string path in Processes) {
Interaction.MsgBox(path);
}

}

// Get Process Path
// ( By Elektro )
//
// Usage Examples:
// MsgBox(GetProcessPath("notepad.exe").First)
//
/// <summary>
/// Gets the absolute path of a running process.
/// </summary>
/// <param name="ProcessName">Indicates the name of the process.</param>
/// <returns>System.String[][].</returns>
public string[] GetProcessPath(string ProcessName)
{

if (ProcessName.EndsWith(".exe", StringComparison.OrdinalIgnoreCase)) {
ProcessName = ProcessName.Remove(ProcessName.Length - 4);
}

return (from p in Diagnostics.Process.GetProcesseswhere p.ProcessName.Equals(ProcessName, StringComparison.OrdinalIgnoreCase)p.MainModule.FileName).ToArray;

}
public Form1()
{
Load += Load;
}

}

//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================


Saludos

x64Core, ¿tu eres tonto sin razón, o solo disimulas tener un derrame cerebral?

Ya se que me tienes mucho amor, pero si vas a decir algo ...hazlo con argumentos, deja de decir estúpideces con sarcasmo.

Ale,
Saludos!

[Nasosoft transform]

Una Helper Class para la librería de pago Nasosoft transform, para convertir text RTF a HTML y viceversa.

Código (vbnet) [Seleccionar] Expandir

' ***********************************************************************
' Author   : Elektro
' Modified : 02-05-2014
' ***********************************************************************
' <copyright file="DocumentConverter.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************

#Region " Example Usages "

'MsgBox(DocumentConverter.Html2Rtf("Hello World!"))
'MsgBox(DocumentConverter.Rtf2Html("{\rtf1\ansi\fbidis\ansicpg1252\deff0{\fonttbl{\f0\fswiss\fcharset0 Times New Roman;}{\f1\fswiss\fcharset2 Symbol;}}{\colortbl;\red192\green192\blue192;}\viewkind5\viewscale100{\*\bkmkstart BM_BEGIN}\pard\plain\f0{Hello World!}}"))

'Dim HtmlText As String = DocumentConverter.Rtf2Html(IO.File.ReadAllText("C:\File.rtf"), TextEncoding:=Nothing)
'Dim RtfText As String = DocumentConverter.Html2Rtf(IO.File.ReadAllText("C:\File.html"), TextEncoding:=Nothing)
'Dim PlainTextFromRtf As String = DocumentConverter.Rtf2Txt(IO.File.ReadAllText("C:\File.rtf"), TextEncoding:=Nothing)
'Dim PlainTextFromHtml As String = DocumentConverter.Html2Txt(IO.File.ReadAllText("C:\File.html"), TextEncoding:=Nothing)

#End Region

#Region " Imports "

Imports Nasosoft.Documents.Transform
Imports System.IO
Imports System.Text

#End Region

''' <summary>
''' Performs document conversion operations.
''' </summary>
Public Class DocumentConverter

#Region " Public Methods "

    ''' <summary>
    ''' Converts RTF text to HTML.
    ''' </summary>
    ''' <param name="RtfText">Indicates the RTF text.</param>
    ''' <param name="TextEncoding">Indicates the text encoding.</param>
    ''' <returns>System.String.</returns>
    Public Shared Function Rtf2Html(ByVal RtfText As String,
                                    Optional ByVal TextEncoding As Encoding = Nothing) As String

        TextEncoding = If(TextEncoding Is Nothing, Encoding.Default, TextEncoding)

        Dim RtfStream As New MemoryStream(TextEncoding.GetBytes(RtfText))
        Dim HtmlStream As New MemoryStream
        Dim HtmlText As String = String.Empty

        Using Converter As New RtfToHtmlTransform()
            Converter.Load(RtfStream)
            Converter.Transform(HtmlStream)
        End Using

        HtmlStream.Position = 0

        Using StrReader As New StreamReader(HtmlStream)
            HtmlText = StrReader.ReadToEnd
        End Using

        RtfStream.Close()
        HtmlStream.Close()

        Return HtmlText

    End Function

    ''' <summary>
    ''' Converts RTF text to TXT (Plain text).
    ''' </summary>
    ''' <param name="RtfText">Indicates the RTF text.</param>
    ''' <param name="TextEncoding">Indicates the text encoding.</param>
    ''' <returns>System.String.</returns>
    Public Shared Function Rtf2Txt(ByVal RtfText As String,
                                    Optional ByVal TextEncoding As Encoding = Nothing) As String

        TextEncoding = If(TextEncoding Is Nothing, Encoding.Default, TextEncoding)

        Dim RtfStream As New MemoryStream(TextEncoding.GetBytes(RtfText))
        Dim TextStream As New MemoryStream
        Dim PlainText As String = String.Empty

        Using Converter As New RtfToTextTransform()
            Converter.Load(RtfStream)
            Converter.Transform(TextStream)
        End Using

        TextStream.Position = 0

        Using StrReader As New StreamReader(TextStream)
            PlainText = StrReader.ReadToEnd
        End Using

        RtfStream.Close()
        TextStream.Close()

        Return PlainText

    End Function

    ''' <summary>
    ''' Converts HTML text to RTF.
    ''' </summary>
    ''' <param name="HtmlText">Indicates the HTML text.</param>
    ''' <param name="TextEncoding">Indicates the text encoding.</param>
    ''' <returns>System.String.</returns>
    Public Shared Function Html2Rtf(ByVal HtmlText As String,
                                    Optional ByVal TextEncoding As Encoding = Nothing) As String

        TextEncoding = If(TextEncoding Is Nothing, Encoding.Default, TextEncoding)

        Dim HtmlStream As New MemoryStream(TextEncoding.GetBytes(HtmlText))
        Dim RtfStream As New MemoryStream
        Dim RtfText As String = String.Empty

        Using Converter As New HtmlToRtfTransform()
            Converter.Load(HtmlStream)
            Converter.Transform(RtfStream)
        End Using

        RtfStream.Position = 0

        Using StrReader As New StreamReader(RtfStream)
            RtfText = StrReader.ReadToEnd
        End Using

        HtmlStream.Close()
        RtfStream.Close()

        Return RtfText

    End Function

    ''' <summary>
    ''' Converts HTML text to TXT (Plain text).
    ''' </summary>
    ''' <param name="HtmlText">Indicates the HTML text.</param>
    ''' <param name="TextEncoding">Indicates the text encoding.</param>
    ''' <returns>System.String.</returns>
    Public Shared Function Html2Txt(ByVal HtmlText As String,
                                    Optional ByVal TextEncoding As Encoding = Nothing) As String

        TextEncoding = If(TextEncoding Is Nothing, Encoding.Default, TextEncoding)

        Dim HtmlStream As New MemoryStream(TextEncoding.GetBytes(HtmlText))
        Dim TextStream As New MemoryStream
        Dim PlainText As String = String.Empty

        Using Converter As New HtmlToTextTransform()
            Converter.Load(HtmlStream)
            Converter.Transform(TextStream)
        End Using

        TextStream.Position = 0

        Using StrReader As New StreamReader(TextStream)
            PlainText = StrReader.ReadToEnd
        End Using

        HtmlStream.Close()
        TextStream.Close()

        Return PlainText

    End Function

#End Region

End Class

Ahí está, salió de su guarida el típico Troll de turno al que yo me refería (x64core tenia que ser, como yo me imaginaba), imagino que tu ilustrativo, interesante, e informativo comentario va dirigido hacia mi persona ya que soy el único que ha comentado algo relevante en este post. siempre disfruto con tu patética forma de intentar Trollear mencionando en esta ocasión a ¿Hackers y Batch?, tu sabrás lo que quieres decir con todo eso (pero porfavor, no vengas a contarmelo, no me interesa).

Bueno,
Saludos!

xD

Vale, lo reconozco, me pasé (@0xDani aunque no se si eso es lo que quieres decir con resbalarse), y tampoco soy el más indicado para hablar mal de C++ por lo muy poco que lo he tocado, mil perdones chavales, pero es que me saca de quizio que en estos temas donde se mencionan o se debaten distintos lenguajes de programación siempre acabe apareciendo alguien al que le gusta criticar un comentario ajeno sobre "X" lenguaje para poner verde al lenguaje opuesto y favorecer al lenguaje criticado, y he visto que eso siempre suele pasar con las críticas de C++. (@0xDani no lo digo por tu comentario, ni por nadie en especial).

Saludos!