[VB6] Dollarteken bij string-declaratie?

[Demo]

Soms kom ik in gedownloade voorbeeldcodes tegen dat een string gedeclareerd wordt met een dollarteken er achter (bijvoorbeeld tekst$).
Waarom is dit?

[Janoz]

Dat was vroeger de syntax van basic. Een $ erachter betekende dat het een String was. Schijnt tegenwoordig in VB dus niet meer nodig te zijn?

[johnwoo]

Ieder type heeft een karakter, dit stamt nog uit de oude Basic tijd. Als je gewoon Dim strBlaat As String gebruikt heb je dat niet nodig. Maar je kunt variabelen die zonder type gedeclareerd (of niet gedeclareerd; beide zijn bad practice ), door VB als bepaald type laten zien met dat karakter.
$ is string
% is integer
& is long
# is datum (dacht ik)
.. en die voor Single en Double ben ik vergeten omdat ik die vroeger in QB zelden gebruikte, en in VB declareer ik gewoon altijd alles netjes en gebruik dus geen typekarakters.

[Demo]

Janoz schreef op 23 september 2002 @ 11:24:
Dat was vroeger de syntax van basic. Een $ erachter betekende dat het een String was. Schijnt tegenwoordig in VB dus niet meer nodig te zijn?

Het is nu niet meer nodig... gewoon Dim [naam] as String...

edit:

Tnx voor de snelle reply

[henkleerssen]

als je terug wilt in de tijd.. perl heeft het nog wel.. de tekens staan wel voor andere datatypes hoor...

[Verwijderd]

johnwoo schreef op 23 september 2002 @ 11:26:
Ieder type heeft een karakter, dit stamt nog uit de oude Basic tijd. Als je gewoon Dim strBlaat As String gebruikt heb je dat niet nodig. Maar je kunt variabelen die zonder type gedeclareerd (of niet gedeclareerd; beide zijn bad practice ), door VB als bepaald type laten zien met dat karakter.
$ is string
% is integer
& is long
# is datum (dacht ik)
.. en die voor Single en Double ben ik vergeten omdat ik die vroeger in QB zelden gebruikte, en in VB declareer ik gewoon altijd alles netjes en gebruik dus geen typekarakters.

single = !
double = #

[Demo]

Kom ik toch weer met een vraag:
Geldt hetzelfde bij string-manipulatie functies (Str, Left, Mid enzo kom ik ook wel eens tegen als Str$, Left$, Mid$)

[whitey-d]

Ja precies dat vroeg ik me net ook al af, een $ vóór de variabele, inderdaad bij die functies gezien. Misschien dat het iets te maken heeft met conversie net als CStr()?

[johnwoo]

Bij de string functies is het wel aan te raden het $ karakter te gebruiken. Anders geven ze een Variant ( == traag) terug, die dan in je string variabele gecast wordt. Met een $ teken geven ze direct een string terug.

[Demo]

johnwoo schreef op 23 september 2002 @ 11:40:
Bij de string functies is het wel aan te raden het $ karakter te gebruiken. Anders geven ze een Variant ( == traag) terug, die dan in je string variabele gecast wordt. Met een $ teken geven ze direct een string terug.

Da's informatie waar ik wat aan heb!
Mijn dank is groot

[Verwijderd]

Dollar teken is niet nodig, maar vaak wel net iets sneller (wat pas merkbaar is bij duizenden)

[ Voor 0% gewijzigd door Verwijderd op 23-09-2002 11:49 . Reden: typo ]

[Crazy D]

Verwijderd schreef op 23 september 2002 @ 11:49:
Dollar teken is niet nodig, maar vaak wel net iets sneller (wat pas merkbaar is bij duizenden)

Veel optimalizaties begin je sowieso pas te merken bij grote aantallen Maar alle beetjes helpen en dat is het imho geen slechte gewoonte om Left$ te gebruiken ipv Left

[Demo]

Crazy_D schreef op 23 september 2002 @ 14:42:
[...]

Veel optimalizaties begin je sowieso pas te merken bij grote aantallen Maar alle beetjes helpen en dat is het imho geen slechte gewoonte om Left$ te gebruiken ipv Left

Ik heb het net getest met 1.000.000 left/left$ bewerkingen in een loop en bij left$ duurde het 9,7 seconden en bij left 10,5 ofzo.
Dus toch een paar procentjes verschil...

[ Voor 0% gewijzigd door Demo op 23-09-2002 14:52 . Reden: typo ]

[RobIII]

Tering jantje! Ik wist dat er verschil in zat, maar dit is heftig.... Check dit:

code:

Option Explicit

Private Sub Form_Load()
    Dim T As Long
    Dim U As Long
    Dim s As Single
    Dim sT(1) As Single
    Dim bla As String
    
    Const cLoopCount = 15
    Const cTestCount = 1000000
    
    Me.Show
    DoEvents
    
    sT(0) = 0: sT(1) = 0
    
    Me.Print "Testing " & cTestCount & " iterations, repeating " & cLoopCount & " times for better average" & vbCrLf
    Me.Print "Testing ""Left"" function", ":";
    For U = 1 To cLoopCount
        Me.Print ".";
        s = Timer
        For T = 1 To cTestCount
            bla = Left("sdkjhg lakjsdgfoijag oriusg", 5)
        Next T
        sT(0) = sT(0) + Timer - s
    Next U
    Me.Print
    
    Me.Print "Testing ""Left$"" function", ":";
    For U = 1 To cLoopCount
        Me.Print ".";
        s = Timer
        For T = 1 To cTestCount
            bla = Left$("sdkjhg lakjsdgfoijag oriusg", 5)
        Next T
        sT(1) = sT(1) + Timer - s
    Next U
    Me.Print vbCrLf
    
    Me.Print "Average loop time ""Left"" : ", Round(sT(0) / cLoopCount, 5) & " sec/" & cTestCount & " iterations"
    Me.Print "Average loop time ""Left$"" : ", Round(sT(1) / cLoopCount, 5) & " sec/" & cTestCount & " iterations"
    
    Me.Print vbCrLf & "Left:Left$ Ratio = 1:" & Round(sT(0) / sT(1), 2)
End Sub

OK, de code is bagger (snel snel in mekaar geflanst), maar het verschil is duidelijk. Mijn results:

LEFT functie : 0.57917 sec/1.000.000 iteraties
LEFT$ functie: 0.20937 sec/1.000.000 iteraties

Ratio: 1 : 2.77

Dus: Left$ is 2.77 keer sneller!!! (En na een compile met alle optimizations aan zelfs 3.2!!)

Machine: 2Ghz Pentium IV, VB6

Timing is bagger, maar goed zat voor quick results. Dit is (nogmaals) een vluggertje. Voor de newbies: Gewoon hele zooi plakken in vb en runnen die hap...

[.oisyn]

johnwoo schreef op 23 september 2002 @ 11:40:
Bij de string functies is het wel aan te raden het $ karakter te gebruiken. Anders geven ze een Variant ( == traag) terug, die dan in je string variabele gecast wordt. Met een $ teken geven ze direct een string terug.

niet als je gewoon je returntype definieert

even mijn vb-kennis weer naar boven halen:

Visual Basic .NET:

Public Function blaat () As String
    blaat = "woei"
End Function

[Apache]

Ik dacht dat voorvoegsels tegenwoordig als standaard gezien werden om ordelijk te coden in vb?

intI
strBleh
lngGrootcijfer

in MSDN vind je vast wel meer over de naamgeving

[.oisyn]

dat heeft daar niets mee te maken, das meer iets voor de programmeur zelf (ikzelf heb een hekel aan hungarian codestyles, maar goed )

[Crazy D]

.oisyn schreef op 23 september 2002 @ 23:22:
niet als je gewoon je returntype definieert

even mijn vb-kennis weer naar boven halen:

Visual Basic .NET:

Public Function blaat () As String
    blaat = "woei"
End Function

Klopt maar bij eigen functie werkt die $ ook niet, zit enkel bij een aantal ingebouwde functies Left vs. Left$ dus bv

Enne uh 1.000.000 is dan ook best vaak hoor

[Sponge]

[informatieve spam]
http://vbfibre.digitalric....asp?tbl=tblStrings&rcd=1
[/informatieve spam]

Trouwens, lngLong,strString e.d. waardeer ik het meest persoonlijk..

Edit

offtopic:
om reacties te besparen, er zitten wat (domme) foutjes op de site, ik weet ervan, maar heb weinig tijd om de DB bij te werken :x

[johnwoo]

.oisyn schreef op 23 september 2002 @ 23:22:

[...]


niet als je gewoon je returntype definieert

even mijn vb-kennis weer naar boven halen:

Visual Basic .NET:

Public Function blaat () As String
    blaat = "woei"
End Function

Het ging hier om de ingebouwde string manipulatie routines zoals Left$, Right$, Mid$, UCase$ en LCase$ Zelf declareer je natuurlijk inderdaad altijd netjes het returntype...

[RobIII]

Nie mouwen. Ik zei al dat de code bagger was en vlug vlug in mekaar geflanst. Natuurlijk gebruik ik nette coding conventions. Ik moet er zelfs binnen het bedrijf waar ik werk anderen op wijzen dat ze het netjes doen... Laat 't ze maar niet zien

[Demo]

41.6C.6D.61.72 schreef op 24 september 2002 @ 08:14:
[informatieve spam]
http://vbfibre.digitalric....asp?tbl=tblStrings&rcd=1
[/informatieve spam]

Trouwens, lngLong,strString e.d. waardeer ik het meest persoonlijk..

Edit

offtopic:
om reacties te besparen, er zitten wat (domme) foutjes op de site, ik weet ervan, maar heb weinig tijd om de DB bij te werken :x

Zeer nuttige spam!
Heb met veel plezier (en verbazing) die dingen zitten lezen...
Sommige (simpele) aanpassingen geven een enorm verschil in performance als ik het zo lees