sorter i string

Måske sådan her:

    strStreng = "ProductNumber;Vendor;ProductName;Category;ShowAsNews"
    arrStreng = Split(strStreng, ";")
   
    For i = arrStreng.LBound() To arrStreng.UBound()
        If Not i = 3 And Not InStr(arrStreng(i)) = """ Then
            strStreng = strStreng & """ & arrStreng(i) & """
        Else
            strStreng = strStreng & arrStreng(i)
        End If
    Next

(det er ikke testet!)

//>Rune

Brug Chr(34)!

Altså, med inspiration fra medions svar (der ikke duer (sorry, medions ;o), man SKAL bruge chr(34) for at indsætte et " i en string):

Dim strStreng As String
Dim arrStreng() As String
Dim strNYstreng As String
Dim i As Integer
strStreng = "ProductNumber;Vendor;ProductName;Category;ShowAsNews" '<- denne linie indlæser du vel fra en fil
arrStreng = Split(strStreng, ";")

arrStreng(1) = Chr(34) & arrStreng(1) & Chr(34)
arrStreng(4) = Chr(34) & arrStreng(4) & Chr(34)

For i = LBound(arrStreng) To UBound(arrStreng) - 1
  arrStreng(i) = arrStreng(i) & ";"
Next i

strNYstreng = arrStreng(0) & arrStreng(1) & arrStreng(2) & arrStreng(3) & arrStreng(4)
MsgBox strStreng & Chr(13) & " bliver til " & Chr(13) & strNYstreng

Nu har du ideen - så er det bare at passe til :o)

Så så, martin_moth, rolig nu. Det er rigtigt at medions' svar ikke umiddelbart virker, men det er altså ikke kun Chr(34) der dur. Man kan også skrive:

sStreng = """" & sStreng & """"

Altså med dobbelt-" i en strengkonstant. Det er lidt en kæphest hos mig at man ikke skal bruge Chr() hvis der er en anden måde at skrive det på, ligesom vbLf i stedet for Chr(10). Det er mere læseligt og selvdokumenterende, imo.

venne: Så lærte jeg også noget i dag :o)
Netop chr(10), chr(13) og chr(34) bruger jeg altid - når man har lært dem synes jeg det øger(!) læsevenligheden. Nok en smagssag :o)

medions/gizom: Sorry, at jeg skrev at man SKAL bruge chr(34). Dummeslag til mig...

ÅK, det ser godt ud. Ingen dumme slag fra min side :>
Jeg prøver det lige af.
Gizom

det virker fint, deler point i mellem jer håber det er ok!