Hej!

Har ett problem med funktionen Trim() i VB! Jag söker efter en sträng inuti en annan sträng med funktionen Instr(). Hittas den eftersökta strängen så ska strängen som söktes igenom splitas med funktionen split(). Efter det så vill jag ta bort alla mellanslag i en av de resulterande strängarna efter spliten. Använder Split() på sträng 2 i arrayen "temparray(1)". Har även provat LTrim() med samma resultat! Alltså mellanslag i början av strängen försvinner ej!
Någon som har ett tips?


Bifogar min syntax nedan!

Function GetProjNameInProjlistDat(prjastr, index)
Dim projectname, searchstr, s, tempArray, searchbvadm
searchstr = "prjName"
searchbvadm = "PRJA_VERSION"
if Instr(1, prjastr, searchstr, 1) Then
tempArray = Split(prjastr, "= ", -1, 1)
projectname = tempArray(1)
Trim(projectname)
prjaNameArray(index) = projectname 'skriver till array
ElseIf Instr(1, prjastr, searchbvadm, 1) Then
tempArray = Split(prjastr, "= ", -1, 1)
projectname = temparray(1)
Trim(projectname)
prjaVersionArray(index) = projectname 'skriver till array
End If
End Function


MVH // Roger

> Dim projectname, searchstr, s, tempArray, searchbvadm

Vad är det för mening att skriva så vad skall det vara för DataTyp ? Dim vadå ?

Att man kan skriva så här i VB gör att man kan kalla det hobbyspråk.

Sedan kan du kolla på Replace

Sedan skall du skriva Trim$ LTrim$ när du jobbar med strängar.

Roade mig med att snygga till lite, inte säker på att det hjälper allt.

Function GetProjNameInProjlistDat(ByRef prjastr As String, ByRef index As Long)
Dim projectname As String, searchstr As String, searchbvadm As String
Dim tempArray() As String
searchstr = "prjName"
searchbvadm = "PRJA_VERSION"
If InStr(prjastr, searchstr, 1) Then
tempArray = Split(prjastr, "= ", -1, 1)
projectname = tempArray(1)
Trim$ (projectname)
prjaNameArray(index) = projectname 'skriver till array
End If
If InStr(prjastr, searchbvadm, 1) Then
tempArray = Split(prjastr, "= ", -1, 1)
projectname = tempArray(1)
Trim$ (projectname)
prjaVersionArray(index) = projectname 'skriver till array
End If
End Function

Tack för det!

Jag kanske skulle ha angett att det handlar om VBscript. Där går det inte att deklarera variabler med datatyp som du föreslår.

// Roger

Ahhaa så chickt med stampade jordgolv :-)

Jag löste problemet med hjälp av regular expression som bara accepterar [A-Za-z0-9_]|[åäöÅÄÖ]". Slipper på så vis blanksteg.

//Roger L

Trim är en funktion som retunerad den rensade strängen. Testa med:
<code>
Function GetProjNameInProjlistDat(prjastr, index)
Dim searchstr, s, tempArray, searchbvadm
searchstr = "prjName"
searchbvadm = "PRJA_VERSION"
If Instr(1, prjastr, searchstr, 1) Then
tempArray = Split(prjastr, "=", -1, 1)
prjaNameArray(index) = Trim(tempArray(1))
ElseIf Instr(1, prjastr, searchbvadm, 1) Then
tempArray = Split(prjastr, "=", -1, 1)
prjaVersionArray(index) = Trim(temparray(1))
End If
End Function
</code>