Newsgroup: it.comp.lang.visual-basic
Titolo: [?] funz SPLIT di VB6 in VB5

salve a tutti
ho trovato in linea un esempio in cui viene usata la funzione Split di VB6
ecco:
'--------------------------------------------------------
            Dim varLines    As Variant
            Dim varLine     As Variant
            Dim strMessage  As String
            'Add atacchments
            strMessage = Message & vbCrLf & vbCrLf & m_strEncodedFiles
            m_strEncodedFiles = ""
            'Parse message to get lines (for VB6 only)
            varLines = Split(strMessage, vbCrLf)
            strMessage = ""
            'Send each line of the message
            For Each varLine In varLines
                Winsock1.SendData CStr(varLines) & vbLf
            Next
'------------------------------------------------------------
io purtroppo ho VB5
come posso sostituire questa funzione di VB6 con una compatibile con VB5
grazie a tutti
caccamo81

 come posso sostituire questa funzione di VB6 con una compatibile con VB5
Nella Knowledge Base: 188077
HOWTO: Simulate Visual Basic 6.0 String Functions in VB5
http://support.microsoft.com/default.aspx?scid=KB;en-us;188007&
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Usa un pò di inventiva(logica). Io mi sono fatto questa funzione che la
sostituisce, penso che può essere anche migliorata
Private Sub MyFunct(ByRef aParametri() As String, Stringa As String)
On Error GoTo ERR
Dim i As Long 'mi serve per scansionare la stringa
Dim j As Long 'mi serve per partire dal parametro successivo a quello
trovato
Dim k As Byte 'mi serve per aggiungere elementi nell'array
j = 1
For i = 1 To Len(Stringa)
    If Mid(Stringa, i, 1) = " " Or Mid(Stringa, i, 1) = vbTab Or Mid(Stringa, i,
1) = "," Then
        k = k + 1
        ReDim Preserve aParametri(k)
        aParametri(k - 1) = Trim(Mid(Stringa, j, i))
        j = i
    End If
Next
If Len(Stringa) > 0 Then
    k = k + 1
    ReDim Preserve aParametri(k)
    aParametri(k - 1) = Trim(Mid(Stringa, j, i))
End If
Exit Sub
ERR:
    MsgBox ERR.Number & " " & ERR.Description, vbCritical, "Pluto"
End Sub
Ciao
--------------------------------
Inviato via 
http://usenet.libero.it

 come posso sostituire questa funzione di VB6 con una compatibile con VB5
http://groups.google.com/groups?selm=apehs1%241nmm%241%40stargate1.inet.it
Bye, G.

 
http://support.microsoft.com/default.aspx?scid=KB;en-us;188007&
Io la StrReverse l'avrei fatta diversamente.
Innanzitutto usando Mid$ e non Mid, poi eliminando le lentissime
concatenazioni, e poi cercando di evitare le riallocazioni di memoria dovute
alla riassegnazione della stringa.
Vediamo (senza provare) :P
      Public Function StrReverse(ByVal sIn As String) As String
          Dim nC As Integer, sDummy As String, nLen As Long
          nLen = Len(sIn)
          For nC = 1 To nLen \ 2
              sDummy = Mid$(sIn, nC, 1)
              Mid$(sIn, nC, 1) = Mid$(sIn, nLen - nC + 1, 1)
              Mid$(sIn, nLen - nC + 1, 1) = sDummy
          Next nC
          StrReverse = sIn
      End Function
Così si riduce anche a metà il numero di iterazioni, purtroppo si
quadruplica il numero di chiamate a Mid$, ma a occhio siamo ancora in
vantaggio.
Qualcuno vuole verificare? :)
Ciao
--
using System.Gtk.Forms = "
http://www.neodatatype.net/windowsforms/sgf.aspx
"
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"