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 - Eleкtro

#2441
Cita de: aspiazu en 30 Abril 2017, 11:29 AM
Código (csharp,3) [Seleccionar]
public void Save() {
       // ...
       XmlTextWriter writer = new XmlTextWriter(@"D:\data.xml", null);
       writer.Formatting = Formatting.Indented;
       doc.Save(writer);
   }
}

Eso que estás haciendo es muy incorrecto, te va a saltar ua excepción si llamas a tu método Save() más de una vez. Debes asegurarte de liberar el stream encapsulado por la clase XmlTextWriter o de lo contrario no podrás volver a abrir el archivo para escribir ...puesto que seguirá estando abierto/en uso por la instancia anterior de la clase XmlTextWriter.

Añade una llamada al método writer.Close() al final de ese bloque de código, o en su defecto decora la declaración del objeto con la sentencia using.




Cita de: aspiazu en 30 Abril 2017, 11:29 AMAlguna idea de que editar en ese codigo para que funcione como quiero?

No entiendo qué quieres hacer exactamente.

Si lo que quieres es actualizar el valor de un elemento existente y/o agregar un nodo o elemento al nodo existente, pues simplemente carga el documento existente y haz tus modificaciones:

Código (cpp) [Seleccionar]
string name = "value";

XmlDocument doc = new XmlDocument();
doc.Load(@"D:\data.xml");
doc("Libro")("name").InnerText = name;
doc.Save(@"D:\data.xml");


Y bueno, si quieres utilizar una forma de leer y/o escribir un documento Xml paso a paso, entonces puedes utilizar las clases XmlTextReader y XmlTextWriter.

Código (csharp) [Seleccionar]
byte[] buffer = File.ReadAllBytes(@"D:\data.xml");

using (MemoryStream ms = new MemoryStream()) {
   ms.Write(buffer, 0, buffer.Length);
   ms.Seek(0, SeekOrigin.Begin);

   using (XmlTextReader reader = new XmlTextReader(ms)) {
   using (XmlTextWriter writer = new XmlTextWriter(ms, reader.Encoding)) {

           while (reader.Read()) {
               if (reader.IsStartElement()) {
                   switch (reader.Name) {
                       case "name":
                           break;
                       case "autor":
                           break;
                       default:
                           break;
                   }
               }
           }

           writer.Flush();

           using (FileStream fs = File.Create(@"D:\data_new.xml")) {
               ms.Seek(0, SeekOrigin.Begin);
               ms.CopyTo(fs);
           }
       }
   }

}


¡Saludos!
#2442
Hola.

No sé que pretendes hacer por "Boton favorito de Mozilla", pero para que tu instancia del WebBrowser ocupe todo el espacio del control contenedor simplemente asígnale el valor DockStyle.Fill a la propiedad WebBrowser.Dock. No necesitas asignarle manualmente un tamaño específico.


Saludos!
#2443
Cita de: wozsoft en 30 Abril 2017, 21:24 PMla pregunta es si estudio swift 3 y sale 4 lo aprendido en swift 3 sirve de algo.

Tanto en la futura versión 4.0 como en la 3.1 parecen haber implementado más mejoras que cambios drásticos de sintaxis:

Los únicos cambios de comportamiento parecen ser los que se mencionan en el artículo SE-0138:

No utilizo Swift, pero remitiendome a la lista de cambios oficiales supongo que si estudias Swift 3.0 simplemente omitirás algunas ventajas que ofrecerán las nuevas versiones. Por otro lado no me atrevo a decir nada, ya que es sabido que de la versión 2.0 a la 3.0 el código fuente generado en la v2.0 es incompatile (incompilable) en la v3.0, así que a lo mejor podría suceder lo mismo con los cambios finales de la versión 4.0. Yo me esperaría.

¡Saludos!
#2444
Hola.

A ver, antes de formular mis preguntas debo poneros en situacion. Os cuento...

Tengo la torre Thermalmake V71 (fijarse en la ventilación):


Aparte tengo pensado comprarme esta tarjeta gráfica de ASUS, que tiene 2 ventiladores:


Y por último tenía pensado comprarme este disipador Noctua (2 ventiladores más) para ventilar el chipset AM4 de un AMD Ryzen:





Bien. El caso es que en total suman unos 12 ventiladores, y el disipador de Noctua cuesta casi 100 pavos, y junto a los demás ventiladores individuales incluyendo los de la tarjeta GTX creo que al final eso hará un ruido HORRIBLE e INSUFRIBLE, así que tras meditar un rato pensando en cual sería la forma óptima de ventilar el equipo de forma barata y silenciosa pero eficiente, al final caí en la cuenta de que a lo mejor existe una alternativa mucho mejor y capaz de reemplazar a todos esos ventiladores: la refrigeración de agua destilada o refrigeración líquida.

He estado mirando packs de todo en uno (AIO) y por los 100 pavos que en un principio yo iba a gastarme en comprar el cooler para el AMD, bajo mi ignorancia a mi me parece que si subo el presupuesto un poco más, unos 100€ o 200€ como mucho, en lugar de comprarme ese cooler podría montarme un sistema de refrigeración de agua y saldria ganando en todos los sentidos, ¿me equivoco?, espero no haberme quedado corto con el presupuesto, pero por eso os pido ayuda, para que me corrijais en mis posibles conceptos equivocados...

Y aquí es donde necesito vuestra ayuda, por que toda la vida he usado el sistema de ventilación por aire, así que soy un completo ignorante del tema, y no la quiero pifiar con mi elección.

Por cierto me he leido estos artículos y video(s) para comprender lo básico de lo básico:

[youtube=640,360]https://www.youtube.com/watch?v=Dk3V64ZSsEI[/youtube]




Bueno, os explico lo que me gustaría hacer. Me gustaría montar un sistema de refrigeración por agua destilada para evitar la necesidad de usar ventiladores para la CPU y la GPU. Si no voy mal encaminado creo que esto se puede hacer, simplemente necesito dos "bloques de agua" (que no sé cuanto cuestan), uno para la CPU (que reemplazaría por completo al disipador de aire), y el otro bloque de agua para la GPU (que reemplazaría a los ventiladores de serie del fabricante).

Basicamente lo que pido y necesito es orientación (detallada). No sé que debo comprar, no sé que es lo más adecuado para mi, no sé si debo irme a por un todo-en-uno o a por otra cosa; pero como ya he dejado claro mi prioridad es que el sistema de refrigeración sea eficiente y SILENCIOSO, evidentemente busco una mejora en ese aspecto si pienso reemplazar los ventiladores de aire. El resto me da igual, no me interesa la estética de los tubos ni las demás florituras; de ahí que en un principio haya optado por fijar mi atención en el sistema de agua destilada en lugar del líquido de colores, el cual supuestamente trae corrosivos y sustancias que no son buenas en general para la eficiencia del sistema de refrigeración, pero no tengo ni idea de si un sistema vale más que el otro, ni si esa deficiencia será notable en comparación... que a lo mejor compensa comprar el líquido de color en lugar del agua destilada en el caso de que se vaya demasiado de precio, ¡no lo sé!, no sé nada al respecto.

Y nada, aparte de eso, la orientación, tengo una pregunta a la que no he encontrado respuesta:

¿Alguien sabe cómo se llama el "adaptador" que necesito comprar para refrigerar una tarjeta gráfica?. Me explico, he visto varios videos de técnicos ifnormáticos en Youtube montando sistemas de refrigeración líquida, y lo que hacen es desmontar/desatornillar por completo la tarjeta gráfica para quitarles los ventiladores y luego le ponen una especie de pegatina de doble cara entre los circuitos que hace como de conductor o algo raro, y por último le acoplan una carcasa muy rara que arriba lleva pegado el bloque de agua. No tengo ni idea de como se llama ese "adaptador" de tarjeta gráfica, pero os muestro una imagen de una Titan-X que lo lleva:



¡Muchas gracias a quien se haya tomado la molestia de leer hasta aqui, y el doble para el que me pueda ayudar o aconsejar!

PD: Tened paciencia conmigo, que tengo muchas dudas al respecto y no creo que nadie pueda aclarármelas en una sola respuesta :-/... que ojalá si.

¡Saludos!
#2445
Cita de: Constance en 30 Abril 2017, 01:46 AMEstás hablando en serio ??
Arrogancia es considerarte  más evolucionado que un insecto?? venga ya
La ciencia considera que somos más evolucionados que los primates y que el resto de los animales y resulta que no vamos a serlo más que un mosquito ...
Que yo defienda al resto de las especies, no significa que me identifique con ellas y piense que por defender a los insectos, felinos, peces, etc ...soy igual que ellos ..

Considerarse superior a otra especie es ser alguien arrogante (o grandioso o magnífico si prefieres usar un eufemismo). Me da igual la interpretación erronea que tu tengas, eso no cambia los hechos, pero de todas formas no te lo tienes que tomar como si fuese algo malo, simplemente es lo que es, y lo que la Ciencia es en muchos aspectos...




Cita de: Constance en 30 Abril 2017, 01:46 AMLas plantas son vegetales y no compares un humano con un vegetal

Eso son clasificaciones creadas por la arrogancia del ser humano. Si reduces la ecuación al mínimo entonces en esencia todos los seres vivos somos lo mismo: partículas de energía.

No sé como puedes hablar por un lado del principio de vibración, y meterte en una divagación Gnóstica (religión sectaría) sobre un mundo material y otro mundo paralelo energético y blah blah blah, y luego decir lo que acabas de decir. Es muy hipócrita todo lo que estás diciendo y haciendo, Constance, si realmente no te consideras igual que cualquier otro ser vivo entonces no tienes ningún derecho a defender ese tipo de ideas.




Cita de: Constance en 30 Abril 2017, 01:46 AMPues por supuesto que estamos a años luz en evolucíón de una planta, para empezar porque tenemos cerebro y sistema nervioso.

Las plantas tienen conciencia o inteligencia, y sienten mediante un sistema "nervioso" que es distinto al nuestro pero cumple la misma función básica: enviar y responder a estímulos. De hecho una planta es practicamente un cerebro por la cantidad de células que la componen.

[youtube=640,360]https://www.youtube.com/watch?v=vjK7yX4E7Aw[/youtube]

Y a todo esto podemos añadirle que las plantas están en este planeta desde mucho antes que nosotros apareciesemos en la linea de tiempo de la supuesta evolución, por ende, las plantas tienen mucho más tiempo de evolución... nos llevan cientos de millones de años de ventaja a los seres humanos, vaya.
( me refiero al humano, no al primate ni una célula con núcleo. )

En definitiva, ereer que somos organismos más complejos que una planta, aparte de ser una idea arrogante yo humildemente y sin ánimo de ofender a nadie lo considero un error, es mi opinión, pero claro... ¿qué persona está preparada para asumir que es inferior evolucionálmente hablando a otro ser vivo conocido?, nadie será capaz de darme la razón por que nadie puede aceptarlo, y no me extraña, si sabemos que nosotros los seres humanos somos únicos y especiales, somos el nova más en la cadena evolutiva de este planeta y de todo El Universo... somos incluso superiores a Dios, ¿verdad?.

En fin.




Cita de: Constance en 30 Abril 2017, 01:46 AMcuando una persona se queda en coma, o prácticamente muerta, se dice que está en estado vegetativo, o sea que ha perdido la mayoría de sus funciones vitales

Disculpa pero cada argumento que sacas me resulta más absurdo que el anterior, por que intentas defender una idea poniendo como argumentos frases hechas y comparaciones que no tienen nada que ver con los hechos.

Se le dice Vegetar a vivir maquinalmente con una disminuición funcional, vale, ¿y qué?, ¿qué importa que se compare ese estado de un ser humano con la movilidad de una planta?, no es ningún fundamento para atribuirte superioridad.

¡Saludos!
#2446
Citar
Cita de: ConstanceMe estás comparando la especie humana, con Insectos ...que no digo, que no sean animales y merezcan un respeto, pero estamos a años-luz de ellos ...

Cita de: #!drvy en 29 Abril 2017, 21:51 PMHipocresía...

No me esperaba esa mentalidad por tu parte, Constance, tú, que siempre afirmas estar en armonía o en tolerancia y comprensión con el resto de especies de seres vivos...
Supongo que muy pocos seres humanos se libran de cometer Arrogancia.

¿También crees que un ser humano está "a años luz" de una planta y que estamos más evolucionados?, ¿crees que somos biologicamente hablando organismos más complejos que una planta?; te sorprenderías de la respuesta y estudios científicos que evidencian lo contrario... y en lo referente a insectos las arañas tienen mucha tela...

¡Saludos!
#2447
Cita de: Orubatosu en 29 Abril 2017, 21:42 PM
Pues que no te lo parezca, el miedo a los un jabalí está mas que justificado

Un jabalí adulto puede matar a una persona con gran facilidad, sus colmillos son muy afilados y puede desventrar a su victima en un instante

Justificadísimo. Yo de pequeño tenía una idea parecida a la de Constance, no entendía el miedo a los jabalíes, los veía más o menos unos animales inofensivos parecido a un cerdo solo que con colmillos, de hecho en las acampadas/excursiones del colegio algunos saliamos al bosque a buscar jabalies (con 8 años más o menos) y yo sin preocupación ninguna, pues no entendía ese miedo por que pensaba que eran animales con poca movilidad, pero que equivocado estaba...

Un jabalí corre muchísimo, no como un cerdo. Si un jabalí divisa tu posición a 50 metros (por decir algo), éste cojerá una carrerilla impresionante y en menos de un segundo lo tendrás en frente de ti embistiendote los colmillos en el vientre o en la entrepierna o donde te pille, y reza para que no hayan crias cerca, por que sino el jabalí no cesará en las embestidas hasta matarte o que te alejes bien lejos de sus crias. ¡Son unos animales muy peligrosos, agresivos y territoriales!.

[youtube=640,360]https://www.youtube.com/watch?v=GQ_pWkwvnvU[/youtube]
Mirar en el minuto 2:00, a esa distancia, un cazador experimentado y sale huyendo cuando el jabalí carga...

¡Saludos!
#2448
En El Corte Inglés no compro ni loco, compañero. Todo demasiado caro, y si les pides un producto específico que no esté en Stock, tardan siglos para traer unidades.
EDITO: Bueno, bueno, a lo mejor me estoy precipitando... primero miraré a ver si tienen todos los productos que quiero, y si los precios me convencen intentaré. Gracias Nebire.

Me resigno, y paso de papeleo y trámites con el banco/VISA para pagar a palzos. Lo que haré es compar el PC por piezas, unas piezas cada mes, que al final es basicamente lo mismo que pagar a plazos (pero sin intereses), y bueno, he decidido hacerlo así por que no me urge nada tener el equipo montado hasta dentro de unos meses.

El AMD Ryzen 1700X y la GTX 1060 que en total suman 750€ approx. los comparé en APPInformática, que tengo una tienda de esas justo debajo de casa y ahí no tuve problemas de financiación años atrás (espero que sigan ofreciendo ese tipo de pago).

Doy el tema por "solucionado".
¡Saludos!
#2449
Un puñado de funciones para extender las posibilidades de la función built-in System.IO.Path.GetTempFileName()

Modo de empleo:

Código (vbnet) [Seleccionar]
Dim tmpFile1 As FileInfo = GetTempFile()
Dim tmpFile2 As FileInfo = GetTempFile("txt")
Dim tmpFile3 As FileInfo = GetTempFile(SpecialFolder.LocalApplicationData)
Dim tmpFile4 As FileInfo = GetTempFile(SpecialFolder.LocalApplicationData, "txt")
Dim tmpFile5 As FileInfo = GetTempFile(New DirectoryInfo("C:\Folder\"))
Dim tmpFile6 As FileInfo = GetTempFile(New DirectoryInfo("C:\Folder\"), "txt")
Dim tmpFile7 As FileInfo = GetTempFile("C:\Folder\", "txt")


Código (vbnet) [Seleccionar]
Dim tmpFilePath1 As String = GetTempFileName()
Dim tmpFilePath2 As String = GetTempFileName("txt")
Dim tmpFilePath3 As String = GetTempFileName(SpecialFolder.LocalApplicationData)
Dim tmpFilePath4 As String = GetTempFileName(SpecialFolder.LocalApplicationData, "txt")
Dim tmpFilePath5 As String = GetTempFileName(New DirectoryInfo("C:\Folder\"))
Dim tmpFilePath6 As String = GetTempFileName(New DirectoryInfo("C:\Folder\"), "txt")
Dim tmpFilePath7 As String = GetTempFileName("C:\Folder\", "txt")


Código fuente:

Código (vbnet) [Seleccionar]

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the system's default temporary folder
''' and returns the file.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As FileInfo = GetTempFile()
''' Console.WriteLine(tmpFile.FullName)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The resulting <see cref="FileInfo"/>.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFile() As FileInfo

    Return New FileInfo(Path.GetTempFileName())

End Function

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the specified folder
''' and returns the file.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As FileInfo = GetTempFile(SpecialFolder.LocalApplicationData)
''' Console.WriteLine(tmpFile.FullName)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="folder">
''' The folder where to create the temporary file.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The resulting <see cref="FileInfo"/>.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFile(ByVal folder As SpecialFolder) As FileInfo

    Return GetTempFile(Environment.GetFolderPath(folder), "tmp")

End Function

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the specified folder
''' and returns the file.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As FileInfo = GetTempFile(New DirectoryInfo("C:\Folder\"))
''' Console.WriteLine(tmpFile.FullName)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="dir">
''' The folder where to create the temporary file.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The resulting <see cref="FileInfo"/>.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFile(ByVal dir As DirectoryInfo) As FileInfo

    Return GetTempFile(dir.FullName, "tmp")

End Function

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the system's default temporary folder with the specified file extension
''' and returns the file.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As FileInfo = GetTempFile("txt")
''' Console.WriteLine(tmpFile.FullName)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="extension">
''' The file extension to assign to the temporary file.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The resulting <see cref="FileInfo"/>.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
''' <exception cref="ArgumentNullException">
''' extension
''' </exception>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFile(ByVal extension As String) As FileInfo

    Return GetTempFile(Environment.GetFolderPath(SpecialFolder.LocalApplicationData), extension)

End Function

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the specified folder with the specified file extension
''' and returns the file.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As FileInfo = GetTempFile(SpecialFolder.LocalApplicationData, "txt")
''' Console.WriteLine(tmpFile.FullName)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="folder">
''' The folder where to create the temporary file.
''' </param>
'''
''' <param name="extension">
''' The file extension to assign to the temporary file.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The resulting <see cref="FileInfo"/>.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
''' <exception cref="ArgumentNullException">
''' extension
''' </exception>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFile(ByVal folder As SpecialFolder, ByVal extension As String) As FileInfo

    Return GetTempFile(Environment.GetFolderPath(folder), extension)

End Function

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the specified folder with the specified file extension
''' and returns the file.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As FileInfo = GetTempFile(New DirectoryInfo("C:\Folder\"), "txt")
''' Console.WriteLine(tmpFile.FullName)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="dir">
''' The folder where to create the temporary file.
''' </param>
'''
''' <param name="extension">
''' The file extension to assign to the temporary file.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The resulting <see cref="FileInfo"/>.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
''' <exception cref="ArgumentNullException">
''' extension
''' </exception>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFile(ByVal dir As DirectoryInfo, ByVal extension As String) As FileInfo

    Return GetTempFile(dir.FullName, extension)

End Function

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the specified folder with the specified file extension
''' and returns the file.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As FileInfo = GetTempFile("C:\Folder\", "txt")
''' Console.WriteLine(tmpFile.FullName)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="dirPath">
''' The full path of the folder where to create the temporary file.
''' </param>
'''
''' <param name="extension">
''' The file extension to assign to the temporary file.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The resulting <see cref="FileInfo"/>.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
''' <exception cref="ArgumentNullException">
''' dirPath or extension
''' </exception>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFile(ByVal dirPath As String, ByVal extension As String) As FileInfo

    If String.IsNullOrWhiteSpace(dirPath) Then
        Throw New ArgumentNullException("dirPath")

    ElseIf String.IsNullOrWhiteSpace(extension) Then
        Throw New ArgumentNullException("extension")

    Else
        Dim dir As New DirectoryInfo(dirPath)
        If Not (dir.Exists) Then
            Try
                dir.Create()
            Catch ex As Exception
                Throw
                Return Nothing
            End Try
        End If

        Dim tmpFile As FileInfo = Nothing
        Dim newFilePath As String
        Dim defaultFolderPath As String = Environment.GetFolderPath(SpecialFolder.LocalApplicationData)
        Dim defaultFileExtension As String = "tmp"
        Do
            If (tmpFile IsNot Nothing) AndAlso (tmpFile.Exists) Then
                tmpFile.Delete()
            End If
            tmpFile = New FileInfo(Path.GetTempFileName())

            If Not (dir.FullName.Equals(defaultFolderPath, StringComparison.OrdinalIgnoreCase)) Then
                newFilePath = Path.Combine(dir.FullName, tmpFile.Name)
            Else
                newFilePath = tmpFile.FullName
            End If

            If Not (extension.Equals(defaultFileExtension, StringComparison.OrdinalIgnoreCase)) Then
                newFilePath = Path.ChangeExtension(newFilePath, extension)
            End If

        Loop Until (newFilePath.Equals(tmpFile.FullName, StringComparison.OrdinalIgnoreCase)) OrElse Not File.Exists(newFilePath)

        tmpFile.MoveTo(newFilePath)
        tmpFile.Refresh()

        Return tmpFile

    End If

End Function

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the system's default temporary folder
''' and returns the file path.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As String = GetTempFileName()
''' Console.WriteLine(tmpFile)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The full path of the temporary file.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFileName() As String

    Return Path.GetTempFileName()

End Function

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the specified folder
''' and returns the file path.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As String = GetTempFileName(SpecialFolder.LocalApplicationData)
''' Console.WriteLine(tmpFile)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="folder">
''' The folder where to create the temporary file.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The full path of the temporary file.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFileName(ByVal folder As SpecialFolder) As String

    Return GetTempFile(Environment.GetFolderPath(folder), "tmp").FullName

End Function

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the specified folder
''' and returns the file path.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As String = GetTempFileName(New DirectoryInfo("C:\Folder\"))
''' Console.WriteLine(tmpFile)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="dir">
''' The folder where to create the temporary file.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The full path of the temporary file.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFileName(ByVal dir As DirectoryInfo) As String

    Return GetTempFile(dir.FullName, "tmp").FullName

End Function

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the system's default temporary folder with the specified file extension
''' and returns the file path.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As String = GetTempFileName("txt")
''' Console.WriteLine(tmpFile)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="extension">
''' The file extension to assign to the temporary file.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The full path of the temporary file.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
''' <exception cref="ArgumentNullException">
''' extension
''' </exception>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFileName(ByVal extension As String) As String

    Return GetTempFile(Environment.GetFolderPath(SpecialFolder.LocalApplicationData), extension).FullName

End Function

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the specified folder with the specified file extension
''' and returns the file path.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As String = GetTempFileName(SpecialFolder.LocalApplicationData, "txt")
''' Console.WriteLine(tmpFile)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="folder">
''' The folder where to create the temporary file.
''' </param>
'''
''' <param name="extension">
''' The file extension to assign to the temporary file.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The full path of the temporary file.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
''' <exception cref="ArgumentNullException">
''' extension
''' </exception>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFileName(ByVal folder As SpecialFolder, ByVal extension As String) As String

    Return GetTempFile(Environment.GetFolderPath(folder), extension).FullName

End Function

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the specified folder with the specified file extension
''' and returns the file path.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As String = GetTempFileName(New DirectoryInfo("C:\Folder\"), "txt")
''' Console.WriteLine(tmpFile)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="dir">
''' The folder where to create the temporary file.
''' </param>
'''
''' <param name="extension">
''' The file extension to assign to the temporary file.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The full path of the temporary file.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
''' <exception cref="ArgumentNullException">
''' extension
''' </exception>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFileName(ByVal dir As DirectoryInfo, ByVal extension As String) As String

    Return GetTempFile(dir.FullName, extension).FullName

End Function

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Creates a uniquely named, zero-byte temporary file on the specified folder with the specified file extension
''' and returns the file path.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <example> This is a code example.
''' <code>
''' Dim tmpFile As String = GetTempFileName("C:\Folder\", "txt")
''' Console.WriteLine(tmpFile)
''' </code>
''' </example>
''' ----------------------------------------------------------------------------------------------------
''' <param name="dirPath">
''' The full path of the folder where to create the temporary file.
''' </param>
'''
''' <param name="extension">
''' The file extension to assign to the temporary file.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The full path of the temporary file.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
''' <exception cref="ArgumentNullException">
''' dirPath or extension
''' </exception>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetTempFileName(ByVal dirPath As String, ByVal extension As String) As String

    Return GetTempFile(dirPath, extension).FullName

End Function
#2450
Tangible Source Code Converters 17.4.12






Descripción



It Contains:
Instant C# (converts VB.NET code to C#)
Instant VB (converts C# code to VB.NET)
C++ to C# Converter
C++ to Java Converter
C++ to VB Converter
Java to C# Converter
Java to C++ Converter
Java to VB Converter
C# to Java Converter
VB to Java Converter
C# to C++ Converter
VB to C++ Converter

Convert Between VB and C#
Instant C# converts VB.NET code to C#
Instant VB converts C# code to VB.NET

Convert Between Java and C#
Java to C# Converter converts Java code to C#
C# to Java Converter converts C# code to Java

Convert Between C++ and C#
C++ to C# Converter converts C++ code to C#
C# to C++ Converter converts C# code to C++

Convert Between Java and C++
Java to C++ Converter converts Java code to C++
C++ to Java Converter converts C++ code to Java

Convert Between VB and C++
VB to C++ Converter converts VB.NET code to C++
C++ to VB Converter converts C++ code to VB.NET

Convert Between VB and Java
VB to Java Converter converts VB.NET code to Java
Java to VB Converter converts Java code to VB.NET

Imágenes














Descarga



http://www.mediafire.com/file/8okm7xfykkmrvts/Tangible+converters+by+Elektro.zip