|
9751
|
Programación / .NET (C#, VB.NET, ASP) / Re: Buscar cadenas de texto dentro de un archivo
|
en: 5 Febrero 2013, 16:43 pm
|
como Elektro cerro el tema pues abro este. Yo no lo cerré, no soy moderador de esta sección, también me cerraron mi post por desgracia.
Dim Texto As String = My.Computer.FileSystem.ReadAllText("C:\Archivo.txt") Dim Pos As Integer = InStr(Texto, "String") MsgBox(Pos)
Dim Text_Pos As String = InStr(My.Computer.FileSystem.ReadAllText("C:\Archivo.txt"), "String") MsgBox(Text_Pos)
|
|
|
9752
|
Programación / .NET (C#, VB.NET, ASP) / Re: [APORTE] Snippets !! (Posteen aquí sus snippets)
|
en: 5 Febrero 2013, 03:05 am
|
Para cambiar los cursores de Windows (En el sistema, fuera del form) #Region " Set System Cursor Function " ' [ Set System Cursor Function ] ' ' Examples : ' ' Set_System_Cursor("C:\Cursors\Arrow.ani", System_Cursor.ARROW)) ' MsgBox(Set_System_Cursor("C:\Cursors\Cross.cur", System_Cursor.CROSS)) ' Set System Cursor [ API declarations ] Private Declare Function SetSystemCursor Lib "user32.dll" (ByVal hCursor As IntPtr, ByVal id As Integer) As Boolean Private Declare Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As IntPtr ' Set System Cursor [ API Constants ] Private Enum System_Cursor As UInt32 APP_STARTING = 32650 ARROW = 32512 CROSS = 32515 HAND = 32649 HELP = 32651 I_BEAM = 32513 NO = 32648 SIZE_ALL = 32646 SIZE_NESW = 32643 SIZE_NS = 32645 SIZE_NWSE = 32642 SIZE_WE = 32644 UP = 32516 WAIT = 32514 End Enum ' Set System Cursor [ Function ] Private Function Set_System_Cursor(ByVal Cursor_File As String, ByVal Cursor_Type As System_Cursor) As Boolean If SetSystemCursor(LoadCursorFromFile(Cursor_File), Cursor_Type) = 0 Then Return False ' Error loading cursor from file Return True End Function #End Region
Hotmail sender (Envía correos desde hotmail) * Es necesario descargar la librería EASENDMAIL (Es gratis aunque se puede comprar licencia): http://www.emailarchitect.net/webapp/download/easendmail.exe PD: Sé que esto se puede hacer con la class system.net.mail, pero con esto no dependemos de puertos, y el SSL de los servidores que usemos en la librería se detecta automáticamente... #Region " Hotmail Sender Function " ' [ Hotmail Sender Function ] ' ' // By Elektro H@cker ' ' * First add a reference to "EASendMail" into the project. ' ' Examples : ' ' MsgBox(Hotmail_Sender("ElektroHacker@hotmail.com", "MyPass", "Anonym@gmail.com", "Test subject", "Test body", {"C:\File1.txt", "C:\File2.txt"})) Private Function Hotmail_Sender(ByVal Account_User As String, ByVal Account_Password As String, ByVal Mail_To As String, ByVal Mail_Subject As String, ByVal Mail_Body As String, Optional ByVal Mail_Attachments() As String = Nothing) As Boolean Dim Hot_Mail As New EASendMail.SmtpMail("TryIt") Dim Hot_Server As New EASendMail.SmtpServer("smtp.live.com") Dim Hot_Smtp As New EASendMail.SmtpClient() Hot_Server.User = Account_User Hot_Server.Password = Account_Password Hot_Server.ConnectType = EASendMail.SmtpConnectType.ConnectSSLAuto Hot_Mail.From = Account_User Hot_Mail.To = Mail_To Hot_Mail.Subject = Mail_Subject Hot_Mail.TextBody = Mail_Body If Mail_Attachments IsNot Nothing Then For Each Attachment In Mail_Attachments : Hot_Mail.AddAttachment(Attachment) : Next Try : Hot_Smtp.SendMail(Hot_Server, Hot_Mail) : Return True Catch ex As Exception : Return False : End Try End Function #End Region
|
|
|
9753
|
Programación / .NET (C#, VB.NET, ASP) / Re: ¿Como monitorizar unidades de dispositivos PENDRIVE?
|
en: 5 Febrero 2013, 01:14 am
|
Keyen, muchas gracias por la info, a pesar de que ahora pienses que soy un vago quizás por culpa de lo que siempre anda comentando spiritdead... a mi cualquier información que me den me sirve para empezar, y no te preocupes que buscaré.
Me dejas bastante perdido porque yo siempre he usado la API de windows para realizar funciones y cambios, sin necesidad de hacer gran cosa, pero no para recibir/interceptar/monitorizar datos, y no sé si será tán fácil como almacenarlo en una variable cada cierto tiempo para comprobar el valor del resultado y ya está, pero bueno, ya lo busco.
Saludos
|
|
|
9755
|
Programación / .NET (C#, VB.NET, ASP) / Re: Hacer que un Form se descargue un archivo a traves de cadenas de texto:
|
en: 5 Febrero 2013, 00:51 am
|
si muy bien spiritdead, yo ya sabía que la class system.io tiene methods que lo hacen mucho más extensivo que usar my.computer.filesystem, que este último se queda corto en "opciones", y también sé que downloadfile necesita escribir mediante un stream, que no hace mágia, vale, pero no por eso yo iba a ser adivino y saber que es una mala práctica usar my.computer, porqué lo vi en los snippets de Microsoft al empezar en VB.NET, que como te recuerdo, llevo poco tiempo, y cuando ves que en la propia información del VS usan my.computer para todo, tanto tu, como yo, y cualquiera, tendería a pensar que está ahí porque es lo más correcto, no lo más sencillo, ahora, gracias por la aclaración, a pesar de tus insultos.
Saludos.
|
|
|
9758
|
Programación / .NET (C#, VB.NET, ASP) / Re: Hacer que un Form se descargue un archivo a traves de cadenas de texto:
|
en: 5 Febrero 2013, 00:13 am
|
al igual que métodos como My.Computer.FileSystem tienen su uso correcto en System.IO, entre otros ejemplos. Hola, no quiero poner en duda lo que dices Keyen, porque te considero muy avanzado en .NET, pero al leer eso, pienso que más que ser de uso incorrecto en realidad es una simple preferencia de gustos, por una contundente razón: - Los snippets originales que incorpora el VS, usan My.Computer. para casi todo, en lugar de usar System.IO. u otros métodos como tu indicas.
Y por esa razón, pienso que los propios desarrolladores del VisualStudio no habrían empleado malas prácticas para sus propios snippets... ¿No estás deacuerdo conmigo?. Sé que no tiene mucho que ver con el tema de este post, pero bueno, cualquier lugar es bueno para aprender algo, por eso te quiero preguntar, ¿Es más bien una cuestión de gustos, o en realidad se considera una mala práctica el uso de My.computer.?, ¿Puedes dar más datos de porqué se considera una mala práctica? Gracias por leer.
|
|
|
9759
|
Programación / Scripting / Re: ¿Cual es el lenguaje scripting mas rapido?
|
en: 4 Febrero 2013, 23:46 pm
|
Los lenguajes de scripting no se pueden compilar, se interpretan (añades el intérprete + tu script, lo juntas todo en un .exe y tachán), así que la velocidad en ese aspecto es la misma, porque se usa el intérprete en los dos casos xD, aunque al ""compilar"", el código y las librerías que uses tienen que descomprimirse a una carpeta temporal, y eso puede ralentizar bastante el tiempo de inicio de ejecución si se trata de librerías muy pesadas de tamaño. Sobre lo otro, al menos yo no te lo puedo aclarar al 100%, pero sin duda alguna Batch es el más lento de la lista, porque tiene que usar executables para casi todo, y porque es procesamiento por lotes. Siempre he escuchado que el más veloz es Perl, aunque debe estar bastante equilibrado Perl/python/ruby, Pero de todas formas no tiene mucha importancia si python/perl/ruby es más rápido o más lento, si la idea es programar aplicaciones no vas a notar la diferencia entre uno y otro... (Menos en Batch, ahí si que se nota mucho). Pero si se quiere conseguir el máximo performance para usar python/ruby/perl en programación web, eso ya me parece más útil, y hay varios tests en Google: Ruby vs. Python: Web Performance
Everything was benchmarked by running multiple iterations of apache-bench from the terminal on my MBP. I used Green Unicorn as my test WSGI server, and Thin for Rack apps.
WSGI (PyPy 1.6.0): ~5300 req/sec WSGI (Python 2.6.1): ~3200 req/sec WSGI (Python 2.7.2): ~3000 req/sec
Rack (Ruby 1.9.2 MRI): ~4500 req/sec Rack (Ruby 1.8.7 MRI): ~4050 req/sec
Rawr/WSGI (PyPy 1.6.0): ~4900 req/sec Rawr/WSGI (Python 2.6.1): ~2750 req/sec Rawr/WSGI (Python 2.7.2): ~2700 req/sec
Sinatra/Rack (Ruby 1.9.2 MRI): ~1900 req/sec Sinatra/Rack (Ruby 1.8.7 MRI): ~1399 req /sec EDITO: Aquí tienes otro test Ruby 1.9 vs Python 3, algunas cosas las procesa más rápido Ruby, y en otras Python: http://benchmarksgame.alioth.debian.org/u32/benchmark.php?test=all&lang=yarv&lang2=pythonUn saludo.
|
|
|
|
|
|
|