Försökte med detta men det funkar förstås inte eftersom det finns ganska många nödvändiga kommatecken!
Dim strsql, strPos
strsql = "Select * from A,A leif,"
strPos = 1
Do Until strPos = 0
strPos = InStr(strPos, strsql, ",")
If strPos > 0 Then
strsql = Left(strsql, strPos - 1) & "." & Right(strsql, Len(strsql) - strPos)
'MsgBox strsql
End If
Loop
MsgBox strsql
------------------
Spango om handikappanpassning av site:
Får man den att funka i Lynx betyder det att man inte runkar loss för mycket i grafiska orgier, vilket blinda/gravt synskadade brukar ha svårt att ta till sig.
[Redigerat av clarkbones den 08 jan 2002]
[Redigerat av clarkbones den 08 jan 2002]