my.resources.source.replace(variable, variable) Ayuda codedom

[70N1]

Lo que quiero es pasar una variable temporal a my.resource.source

Me explico bien?
Espero buestra ayuda

algo como:

button1_click

Código [Seleccionar] Expandir


dim cadena as string = "toni"

my.resources.source.replace("%1%", cadena)


my.resources.source.txt

Código [Seleccionar] Expandir

dim toni as string = %1%

Me tira error. no reconoce el caracter.... no se.

[Keyen Night]

My.Resources.Source es String?
Replace es una intrucción que devuelve el reemplazo no que lo ejecuta. Por ejemplo:

Código (vb.net) [Seleccionar] Expandir


Dim X As String = "Texto de Ejemplo"
X = X.Replace("Texto de ", "") 'Ahora X vale "Ejemplo"


Pero si lo hacemos así, no pasa nada:

Código (vb.net) [Seleccionar] Expandir


Dim X As String = "Texto de Ejemplo"
X.Replace("Texto de ", "") 'X sigue teniendo el mismo valor


En tal caso sería:

Código (vb.net) [Seleccionar] Expandir


Dim cadena As String = "toni"

Dim toni As String = My.Resources.Source.Replace("%1%", cadena)

' dim toni as string = %1% 'Esta linea no tiene sentido no estas en cmd %1% no quiere decir nada

Lo que hace el código es bucar el texto %1% y remplazarlo por el valor de la variable cadena ("toni") y luego lo guarda en la variable toni.

[70N1]

Código [Seleccionar] Expandir

Dim cadena1 As String = my.resources.source1


       cadena1 = My.Resources.source1.Replace("cadena", cadena.ToString)

En cadena.tostring ahi un exe en formato ascii y me tira errores de carateres no validos
en la depuracion.


Si puedes ayudar se te agradeceria.
Porsierto, muchas gracias por tu explicacion, es algo que no savia.


Esta es la llamada a la funcion para crear el exe

Código [Seleccionar] Expandir

CompileCode(New Microsoft.VisualBasic.VBCodeProvider(), _VBSourceCode, Nothing, SaveFileDialog1.FileName, Nothing, Nothing, _Errors)

Y esta es la funcion para generar el ejecutable

Código [Seleccionar] Expandir

Public Function CompileCode(ByVal _CodeProvider As System.CodeDom.Compiler.CodeDomProvider, ByVal _SourceCode As String, ByVal _SourceFile As String, ByVal _ExeFile As String, ByVal _AssemblyName As String, ByVal _ResourceFiles() As String, ByRef _Errors As String) As Boolean
       ' set interface for compilation
       Dim _CodeCompiler As System.CodeDom.Compiler.ICodeCompiler = _CodeProvider.CreateCompiler()

       ' Define parameters to invoke a compiler
       Dim _CompilerParameters As New System.CodeDom.Compiler.CompilerParameters()

       If _ExeFile IsNot Nothing Then
           ' Set the assembly file name to generate.
           _CompilerParameters.OutputAssembly = _ExeFile

           ' Generate an executable instead of a class library.
           _CompilerParameters.GenerateExecutable = True
           _CompilerParameters.GenerateInMemory = False
       ElseIf _AssemblyName IsNot Nothing Then
           ' Set the assembly file name to generate.
           _CompilerParameters.OutputAssembly = _AssemblyName

           ' Generate an executable instead of a class library.
           _CompilerParameters.GenerateExecutable = False
           _CompilerParameters.GenerateInMemory = False
       Else
           ' Generate an executable instead of a class library.
           _CompilerParameters.GenerateExecutable = False
           _CompilerParameters.GenerateInMemory = True
       End If


       ' Generate debug information.
       '_CompilerParameters.IncludeDebugInformation = true;

       ' Set the level at which the compiler
       ' should start displaying warnings.
       _CompilerParameters.WarningLevel = 3
       ' Set whether to treat all warnings as errors.
       _CompilerParameters.TreatWarningsAsErrors = False

       ' Set compiler argument to optimize output.
       _CompilerParameters.CompilerOptions = "/optimize"
       ' Set a temporary files collection.
       ' The TempFileCollection stores the temporary files
       ' generated during a build in the current directory,
       ' and does not delete them after compilation.
       _CompilerParameters.TempFiles = New System.CodeDom.Compiler.TempFileCollection(".", True)

       If _ResourceFiles IsNot Nothing AndAlso _ResourceFiles.Length > 0 Then
           For Each _ResourceFile As String In _ResourceFiles
               ' Set the embedded resource file of the assembly.
               _CompilerParameters.EmbeddedResources.Add(_ResourceFile)
           Next _ResourceFile
       End If


       Try
           ' Invoke compilation
           Dim _CompilerResults As System.CodeDom.Compiler.CompilerResults = Nothing

           If _SourceFile IsNot Nothing AndAlso System.IO.File.Exists(_SourceFile) Then
               ' soruce code in external file
               _CompilerResults = _CodeCompiler.CompileAssemblyFromFile(_CompilerParameters, _SourceFile)
           Else
               ' source code pass as a string
               _CompilerResults = _CodeCompiler.CompileAssemblyFromSource(_CompilerParameters, _SourceCode)
           End If

           If _CompilerResults.Errors.Count > 0 Then
               ' Return compilation errors
               _Errors = ""
               : For Each CompErr As System.CodeDom.Compiler.CompilerError In _CompilerResults.Errors
                   _Errors &= "Line number " & CompErr.Line & ", Error Number: " & CompErr.ErrorNumber & ", '" & CompErr.ErrorText & ";" & Constants.vbCrLf & Constants.vbCrLf
               Next CompErr

               ' Return the results of compilation - Failed
               Return False
           Else
               ' no compile errors
               _Errors = Nothing
           End If
       Catch _Exception As Exception
           ' Error occurred when trying to compile the code
           _Errors = _Exception.Message
           Return False
       End Try

       ' Return the results of compilation - Success
       Return True
   End Function

[Keyen Night]

Este problema es más común de lo que piensas, los Resources se guardan de 2 formas básicas para no entrar en detalles, en array de Bytes y en String, el problema común es creer que los resources como ejecutables, imagenes, etc; se guardan a forma de String cuando estos son realmentes Array de Bytes, otra cosa que suele pasar es aplicar .ToString creyendo que vamos a pasar los Bytes a String.

Ahora vamos con tu error concretamente, si My.Resources.Source1 es un ejecutable en resources, osea un Array de Bytes, y quieres reemplazar una palabra o cadena en especifico, debes pasar el resource a String cuidando el Encoding, reemplazar el texto y devolverlo a Array Bytes algo parecido a esto:

Código (vb.net) [Seleccionar] Expandir


System.Text.Encoding.Dafult.GetBytes(System.Text.Encoding.Dafult.GetString(My.Resources.Source1).Replace("Eliminar", ""))

Claro hay está todo en una línea.

[70N1]

Al final el problema era que tenia que cortar el string en lineas y ponerle al final de cada linea la ( _  varra baja) y encapsularlo con chr(34) que es en ascii ( "  las comillas)


Muchas gracias por la voluntad.

Código [Seleccionar] Expandir


dim cadena as string = "exe en base64string"

my.resources.source.replace("%1%", formato(cadena))

function formato
splitstring tal cual pin pan.