[VB.NET] Sostituzione carattere "a capo"

**maurizio127** · 14-07-2007, 09:57

ciao...

ho un db SQL server, in questo db memorizzo una serie di descrizioni per ogni articolo.
le descrizioni contengono anche gli "a capo" che però nelle celle visualizzo come un quadratino.

quando pesco i dati, come posso fare a sostituire quel carattere con
??

esiste una tabella dove vengono riportare le corrispondenze tra questi caratteri speciali e comandi VB??

**alka** · 14-07-2007, 10:22

Se stiamo parlando di ASP.NET, non è questa l'area adatta.

**maurizio127** · 14-07-2007, 10:36

no..no... non parliamo di ASP.NET

parliamo di VB.NET

spiego un dettaglio... un programma VB mi deve pescare dati dal DB e crearmi un file di testo, dove metterò le descrizioni. vorrei che ogni descrizione articolo venga scritta su una sola riga, e dove ci sono gli a capo venga sostituito il carattere
.

che poi il file di testo venga utilizzato da una pagina ASP, è tutt'altro discorso.

**alka** · 15-07-2007, 11:45

Originariamente inviato da maurizio127
no..no... non parliamo di ASP.NET
parliamo di VB.NET

La sezione è comunque sbagliata. Sposto la discussione...

**maurizio127** · 15-07-2007, 12:09

perdono... pensavo di essere nel posto giusto... cmq...

ho trovato... in realtà era più semplice di quello che pensavo.
Replace(stringa, vbCrLf, "
")

ho provato così senza effettivamente sperare funzionasse, e invece...

altro problema... se posso continuare su questo post...

questa descrizione, una volta sostituiti gli a capo con
, la vorrei salvare in un comunissimo file di testo. e fin qui ok.

succede però che se la descrizione è troppo lunga questa mi va a capo ugualmente come se ci fosse un limite massimo sulla lunghezza della riga. (forse mi va a capo dopo 256 caratteri...)

è un limite del file di testo, di Visual Basic o cosa?? perchè io avrei proprio la necessità che ogni descrizione occupi una sola riga (e avrei difficoltà a fare descrizioni più brevi)

**maurizio127** · 20-07-2007, 09:30

qualche idea??

**massimodan** · 30-09-2007, 13:13

spero ;-) che sia di tuo gradimento

sintassi : StripHTMLTags(testo)

dagli in pasto il testo che contiene "
" e la function lo converte in vbCrLf

ciaus

codice:

 
Public Function StripHTMLTags(ByVal strContent As String) As String

    ' ---
    '
    ' Receives strContent, expecting it to c
    '     ontain
    ' html tags, and returns it
    ' with tags removed (as best as it can)
    '
    ' ---
    On Error Resume Next
    '
    Dim mString As String
    Dim mStartPos As Long
    Dim mEndPos As Long
    Dim i As Long
    Dim j As Long
    ' --------------------------------------
    '     -------------
    ' Start process
    '
    ' FIRST, REMOVE ALL LINE BREAKS
    '
    strContent = Replace$(strContent, vbCr, "")
    strContent = Replace$(strContent, vbLf, "")
    '
    ' now, replace 
 and <br /&g
    '     t; tags
    '
    strContent = Replace$(strContent, "
", vbCrLf)
    strContent = Replace$(strContent, "
", vbCrLf)
    strContent = Replace$(strContent, "
", vbCrLf)
    '
    ' DIVS and SPANS and PARAGRAPHS -- conve
    '     rt to vbCrLf x2
    strContent = Replace$(strContent, "<div", vbCrLf & vbCrLf & "<div")
    strContent = Replace$(strContent, "<span", vbCrLf & vbCrLf & "<span")
    strContent = Replace$(strContent, "<p", vbCrLf & vbCrLf & "<p")
    '
    ' IF THERE IS A <head> section, ge
    '     t rid of it
    ' since the lines beyond this will not p
    '     roperly
    ' pick up javascript
    '


    If InStr(1, strContent, "<head", vbTextCompare) > 0 Then
        Dim lastChar As Long
        lastChar = InStr(2, strContent, "</head>", vbTextCompare) + 6
        strContent = Right$(strContent, Len(strContent) - lastChar)
    End If

    '
    ' NOW LETS TRY TO REMOVE ALL TAGS
    '
    mStartPos = InStr(strContent, "<")
    mEndPos = InStr(strContent, ">")
    '


    Do While mStartPos <> 0 And mEndPos <> 0 And mEndPos > mStartPos
        mString = Mid(strContent, mStartPos, mEndPos - mStartPos + 1)
        strContent = Replace(strContent, mString, "")
        mStartPos = InStr(strContent, "<")
        mEndPos = InStr(strContent, ">")
    Loop

    '
    '
    ' Translate common escape sequence chars
    '     ------------------
    '
    strContent = Replace(strContent, "_", " ")
    strContent = Replace(strContent, "&", "&")
'    strContent = Replace(strContent, """, "'")
    strContent = Replace(strContent, "?", "#")'ecc eccc
    
 
    strContent = LTrim(Trim(strContent))
    '
    ' THERE ARE A BOATLOAD MORE OF THESE, BU
    '     T DON'T WANT TO
    ' SLOW DOWN TOO MUCH
    ' but feel free to add your own to this
    '     section
    ' --------------------------------------
    '     -------------------
    '
    ' Remove leading/trailing space
    Do While Left(strContent, 1) = Chr$(13) Or Left(strContent, 1) = Chr$(10)
        strContent = Mid(strContent, 2)
    Loop

    '
    '
    ' SEND BACK THE RESULT
    '
    StripHTMLTags = strContent
End Function

**alka** · 30-09-2007, 15:56

Originariamente inviato da massimodan
spero ;-) che sia di tuo gradimento

Risollevare discussioni vecchie di un paio di mesi per proporre soluzioni in un linguaggio diverso da quello indicato nel titolo non è, in generale, una buona mossa.

**maurizio127** · 30-09-2007, 17:32

Ringrazio comunque!!! in realtà non ricordo più neanche come ho risolto....

Thankx!!!

Discussione: [VB.NET] Sostituzione carattere "a capo"

Strumenti discussione

Ricerca discussione

Visualizza

[VB.NET] Sostituzione carattere "a capo"

Moderazione

Moderazione

Permessi di invio