Citat:
Ursprungligen postat av
MataRengi
Det här problemet förutsätter att citationstecken finns parvis, dvs har ett jämnt antal. Finns det ströfnuttar så skiter det sej.
Studera följande sträng;
...så kommer det att skita sej.
Men bortsett från strängar med udda fnuttar så
A: Plocka fram två förekomster av fnuttar.
B: Trimma allt mellan dessa.
C: Och håll på så länge du hittar nåt enligt A.
så fungerar det och det är inte allt för svårt att få ihop i vilket språk som helst.
Grejen är att jag ska dessutom ha en liknande funktion i VBScript.
Har provat skriva ihop följande, men får fel. Vad beror det på?
Public Function TrimQuotes(quoteString)
Dim currentIndex As Integer
currentIndex = 1
Dim newString As String
Do While (True)
Dim startIndex As Integer
startIndex = InStr(currentIndex, quoteString, Chr(34))
If startIndex < 1 Then
Exit Do
End If
Dim endIndex As Integer
endIndex = InStr(startIndex + 1, quoteString, Chr(34))
If endIndex < 1 Then
Exit Do
End If
Dim startLength As Integer
startLength = Len(quoteString)
newString = Mid(quoteString, 1, startIndex + 1) & Trim(Mid(quoteString, startIndex + 1, endIndex - startIndex)) & Mid(quoteString, endIndex)
currentIndex = endIndex + 1 + Len(quoteString) - startLength
Loop
TrimQuotes = newString
End Function