[] rond string

[murdoch201]

Hoi,

Ik zit met het probleem, dat er soms rond een string [] verschijnen, soms wel meerderen. Ik vervangde die tekens met replace in het verleden, maar dat helpt nu niet meer.
Iemand die dit ook al heeft voorgehad en mij kan helpen?

groetjes,
murdoch

 

[Joery360]

mm je vraag is een beetje onduidelijk, heb je misschien een screenshot?
Die kan je maken met printscreen knop

mogelijk heb je een verkeerde toetsenbordinstelling of zit er een foutje in het programma

 

[murdoch201]

Hmm, om de een of andere reden is het nu ineens weg. Misschien ergens een foutje in de code. Toch bedankt voor de hulp! :d

 

[The Mighty Atom]

Was het soms dit?

 

[murdoch201]

Nee, het was het resultaat, komt meestal wanneer ik functies of modules ofzoiets gebruik.

Bv.

Public Function addtekst(dim tekst as string) as string
tekst = tekst & " hoi"
addtekst = tekst
End Function

Private Sub Command1_Click()
MsgBox(addtekst("test"))
End Sub

Dan zou er bv. in die messagebox dit zijn gekomen: [test hoi]
of soms wel meerdere: [[test hoi]]

 

[MarnixICT]

Private Sub Command1_Click()
MsgBox(addtekst("test"))
End Sub

Public Function addtekst(tekst as string)
dim tekst2 as string = tekst & " hoi"
return tekst2
End Function

Probeer zoiets als het nog eens voorkomt

 

[murdoch201]

Hmm, ok. Zal ik onthouden, bedankt

 

[murdoch201]

Ok, daar gaat ie lol.

Die return werkt niet, VB6 (dus niet .NET) geeft de error: Expected end of statement.

Ik werk met een software development kit voor Active Worlds. De code hier gaat rond het omzetten van een schrijfwijze van coordinaten naar een andere.

Public Function StringCoords(X As Variant, Z As Variant) As String
Z = Val(Z) / 1000
 X = Val(X) / 1000
 
Dim TMPx As String, TMPz As String
If Z < 0 Then TMPz = -Z Else TMPz = Z
If X > 0 Then TMPx = X Else TMPx = -X
SplitIt (TMPz)
TMPz = strPart1
SplitIt (TMPx)
TMPx = strPart1
 If Z < 0 Then TMPz = TMPz & "S" Else TMPz = TMPz & "N"
 If X > 0 Then TMPx = TMPx & "W" Else TMPx = TMPx & "E"
 If InStr(TMPz, "S") Then
 TMPz = Val(TMPz) + 1
 TMPz = TMPz & "S"
 End If
 If TMPz = "0S" Then
 TMPz = "0N"
 End If
 
  If InStr(TMPx, "E") Then
 TMPx = Val(TMPx) + 1
 TMPx = TMPx & "E"
 End If
 If TMPz = "0E" Then
 TMPz = "0W"
 End If

StringCoords = TMPz & "-" & TMPx
 'StringCoords = Replace(StringCoords, ".00", "")

End Function

Public Function SplitIt(strText As String)
    If InStr(strText, ",") Then
    Dim SplitPoint As Integer
    SplitPoint = InStr(strText, ",")
    strPart1 = Left(strText, SplitPoint - 1)
    strPart2 = Right(strText, Len(strText) - SplitPoint)
    Else
    strPart1 = "0"
    strPart2 = "0"
    End If
End Function

Dim coords As String
coords = StringCoords(SDK.aw_int(AW_AVATAR_X), SDK.aw_int(AW_AVATAR_Z))
Dim avatarname As String
avatarname = SDK.aw_string(AW_AVATAR_NAME)

coords = Replace(coords, "[", "")
coords = Replace(coords, "]", "")
MsgBox (coords)
If InStr(SDK.aw_string(AW_AVATAR_NAME), Chr(34)) Then
avatarname = Replace(avatarname, Chr(34), "$$")
End If

If ReadIniValue("bot.ini", "features", "enabled") = "1" Then
If Not ReadIniValue("cells.ini", coords, "owner") = "" Then
Dim cellowner As String
cellowner = ReadIniValue("cells.ini", coords, "owner")

MsgBox (coords)

Naar de bovenste code moet je niet zoveel kijken. Het komt erop neer, dat in de 1ste MsgBox hij het juist doet: 8S-0W, maar de 2de zegt: [[8s-0w]]
Misschien omdat de string coords word gebruikt in een readinivalue functie?