Newsgroup: it.comp.lang.visual-basic
Titolo: dichiarare valore variabile con doppi apici

ciao a tutti.
All'interno di un programma in visual basic ( quindi non leggendo da un
txt esterno) avrei bisogno di dichiarare un valore a delle variabili
includendo degli apici:
vado con la realta':
 
riga1 = "<html>"
riga2 = ""
riga3 = "<head>"
riga4 = "<meta http-equiv=& chr$(34) &Content-Language& chr$(34) &
content=& chr$(34) &it& chr$(34) &>"
riga5 = "<meta http-equiv=& chr$(34) &Content-Type& chr$(34) & content=&
chr$(34) &text/html; charset=windows-1252& chr$(34) &> "
riga6 = "<title>COMMESSA</title>"
riga7 = "</head>"
riga8 = ""
riga9 = "<body bgcolor=& chr$(34) &#00FFFF& chr$(34) &>"
riga10 = ""
riga11 = "<div align=& chr$(34) &center& chr$(34) &>"
riga12 = "    <table border=& chr$(34) &1& chr$(34) & width=& chr$(34) &0&
chr$(34) & id=& chr$(34) &table1& chr$(34) & bgcolor=& chr$(34) &#FF0000&
chr$(34) &>"
riga13 = "        <tr>"
riga14 = "            <td>"
riga15 = "            <p align=& chr$(34) &center& chr$(34) &><font
color=& chr$(34) &#FFFFFF& chr$(34) &><font size=& chr$(34) &5& chr$(34)
&><b> -&nbsp; "
riga16 = "            </b></font><b><font size=& chr$(34) &5& chr$(34)
&>EM.DISEGNI "
riga17 = "        PER&nbsp; SISTEMA ERP </font></b></font></td>"
riga18 = "        </tr>"
riga19 = "    </table></div>"
riga20 = "<table border=& chr$(34) &1& chr$(34) & height=& chr$(34) &91&
chr$(34) &>"
riga21 = "    <tr>"
riga22 = "        <td height=& chr$(34) &91& chr$(34) & width=& chr$(34)
&132& chr$(34) &>"
riga23 = "        <p align=& chr$(34) &center& chr$(34) &><font color=&
chr$(34) &#FF0000& chr$(34) & size=& chr$(34) &5& chr$(34)
&><b>COMMESSA</b></font></td>"
riga24 = "        <td height=& chr$(34) &91& chr$(34) & width=& chr$(34)
&125& chr$(34) &>"
riga25 = "        <p align=& chr$(34) &center& chr$(34) &><font color=&
chr$(34) &#FF0000& chr$(34) & size=& chr$(34) &5& chr$(34)
&><b>&nbsp;DATA</b></font></td>"
riga26 = "        <td height=& chr$(34) &91& chr$(34) & width=& chr$(34)
&135& chr$(34) &>"
riga27 = "        <p align=& chr$(34) &center& chr$(34) &><font color=&
chr$(34) &#FF0000& chr$(34) & size=& chr$(34) &5& chr$(34)
&><b>LISTA</b></font></td>"
riga28 = "        <td height=& chr$(34) &91& chr$(34) & width=& chr$(34)
&507& chr$(34) &>"
riga29 = "        <p align=& chr$(34) &center& chr$(34) &><font color=&
chr$(34) &#FF0000& chr$(34) & size=& chr$(34) &5& chr$(34)
&><b>&nbsp;DESCRIZIONE "
riga30 = "        </b></font> </td>"
riga31 = "        <td height=& chr$(34) &91& chr$(34) & width=& chr$(34)
&90& chr$(34) &>"
riga32 = "        <p align=& chr$(34) &center& chr$(34) &><font color=&
chr$(34) &#FF0000& chr$(34) & size=& chr$(34) &5& chr$(34)
&><b>PREIMP</b></font></td>"
riga33 = "    </tr>"
riga34 = "    <tr>"
riga35 = "    "
riga36 = "    </table>"
riga37 = "<p align=& chr$(34) &left& chr$(34) &><font size=& chr$(34) &4&
chr$(34) & color=& chr$(34) &#0000FF& chr$(34) &><b>"
Come vedete sopra tutto ciň deve generare un codice html. 
In pratica nell'esempio sopra avevo provato inserendo   & chr$(34) &
ma il compilatore visual basic "non l'ha bevuta".
Mi basterebbe anche una funzione che sostituisse tutti i  "& chr$(34) &" 
con dei doppi apici una volta saldate tra loro le variabili riga1 2 .... .
Non voglio leggere un txt: deve venire tutto imboscato nell'EXE finale.
Se qualcuno ha delle idee. Strano che il visual basic non abbia parole
riservate per la stringa del  doppio apice.
Ciao
grazie
Indriano
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 includendo degli apici:
NON ho il tempo di testarle .. hai provato a raddoppiarle
' esempio vbs
Set oShell = CreateObject("WScript.Shell")
  MsgBox "Irfan is not running"
   MsgBox """Irfan is not running"""
' cit (semre vbs)
set oShell = CreateObject("WScript.Shell")
riga4 = "<meta http-equiv=& chr$(34) &Content-Language& chr$(34) & content=& chr$(34) &it& chr$(34) &>"
Msgbox riga4
riga4a = "<meta http-equiv=& "" &Content-Language& "" & content=& "" &it& "" &>"
Msgbox riga4a
--
Fosco

 (CUT)
Senza che ti impelaghi troppo in ricerche e consultazioni, la realtà è che 
tu includi la sequenza chr$(34) dentro la stringa, quindi il compilatore la 
prende così com'è, esattamente come farebbe per qualsiasi altra sequenza di 
caratteri...
Per inserire il carattere doppio apice, mentre allochi una variabile 
stringa, devi semplicemente chiudere i doppi apici precedenti e continuare 
l'assegnazione.
Ti faccio un esempio, usando una delle tue righe:
riga9 = "<body bgcolor=& chr$(34) &#00FFFF& chr$(34) &>"
E' SBAGLIATO!
riga9 = "<body bgcolor=" & chr$(34) & "#00FFFF" & chr$(34) & ">"
E' ESATTO.
Ciao

 Fosco
Probabilmente avrebbe funzionato anche il vostro metodo ma trovandomi a
casa col modem a 56 k e la voglia di finire il programma, scartabellando
un pò il capitale di sorgenti personali ho fatto
cosi:
ho al posto del multicarattere   & chr634 &  ho usato  la u tedesca con
l'umlaut  che si produce con  alt-154   ( Ü  )
Poi   nei moduli ho messo la funzione che segue:
=========================================================
Public Function RisolviUtedesca(strStringa As String) As String
  Dim i As Integer, k As Integer
 
' ho messo la U tedesca perchè i doppi apici non li zuzza
' scrivo quella poi vado di funzione....
' e ti inchiappetto il Bill Gates
  k = 1
Riconta:
  For i = k To Len(strStringa)
    If Mid(strStringa, i, 1) = "Ü" Then
      strStringa = Left(strStringa, i - 1) & Chr(34) & Right(strStringa,
Len(strStringa) - i)
      k = i
      k = k + 2
      GoTo Riconta
    End If
  Next i
  RisolviUtedesca = strStringa
End Function
=========================================================
E' chiaro che nella form ho fatto
buffer = RisolviUtedesca(buffer)    dove buffer era diventato la somma di
tutte le righe tramite &.
La funzione che ho messo fra
=========
=========
risolve mille di questi problemi di testo.  Visitatore  occasiona di  
it.comp.lang.visual-basic  tientela stretta. E' un bel regalo
di............ solleone.



Volevo proporti una soluzione simile ma mi sembrava fuori luogo.
A questo punto anzichè la tua funzione ti consiglio questa:
str = Replace(str, "Ü", """")
Ciao