''' <summary> ''' Permet de convertir une chaine en code VB ''' </summary> ''' Renvoie la largeur de la console si ce paramètre est = à 1 ''' <returns>Renvoie la chaine convertir en code Vb</returns> ''' <remarks></remarks> ''' Function ConvertStringToCode(ByVal Chaine As String) As String Chaine = Chaine.Replace("""", """""") Chaine = Chaine.Replace(vbCrLf, """" & " & vbCrLf & " & """") Return Chaine End Function
""Ceci"" "Est" ""Une" "Chaine"" " "De caractère" "
""""Ceci""""" & vbCrLf & "" & vbCrLf & """Est""" & vbCrLf & " """"Une""" & vbCrLf & " ""Chaine""""" & vbCrLf & """ ""De caractère"" ""
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question"Ceci est une "chaine de caractères"" " ""Abc""Def"" "
"""Ceci est une ""chaine de caractères"""" & vbCrLf & vbCrLf & """ """"Abc""""Def"""" "" "
Public Class Form1 Private mystring As String Private Sub Button1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseClick mystring = TextBox1.Text End Sub End Class
Chr(34)si on accepte de conserver Microsoft.VisualBasic. Sinon on peut utiliser
ConvertFromUtf32(34), mais il faut alors importer la classe System.Char.