fb:porticula NoPaste
Strings fester Länge
Uploader: | MOD |
Datum/Zeit: | 12.10.2011 11:42:52 |
'Strings fester Länge verhalten sich im Bezug auf Chr(0) seltsam
Dim As String foo = Chr(65) & Chr(65) & Chr(0) & Chr(65)
Dim As String*5 bar = Chr(65) & Chr(65) & Chr(0) & Chr(65)
'"|" & bar & "|" wird falsch ausgegeben, bar selbst aber richtig
Print "|" & foo & "|", Len(foo), foo
Print "|" & bar & "|", Len(bar), bar
'-------------------------------------------------------------
Type baz
As String foo
As String*5 bar
End Type
Dim As baz buz
buz.foo = Chr(65) & Chr(65) & Chr(0) & Chr(65)
buz.bar = Chr(65) & Chr(65) & Chr(0) & Chr(65)
'"|" & buz.bar & "|" und buz.bar werden falsch ausgegeben
Print "|" & buz.foo & "|", Len(buz.foo), buz.foo
Print "|" & buz.bar & "|", Len(buz.bar), buz.bar
'-------------------------------------------------------------
Sleep