[VB] Kleine letter>hoofdletter?

Pagina: 1
Acties:
  • 146 views sinds 30-01-2008
  • Reageer

  • LG_Greenman
  • Registratie: Maart 2001
  • Laatst online: 08-09 09:07
Ik wil van een variabele(kleine letter) een hoofdletter maken. Ik heb al via vele omwegen wat geprobeerd, maar kom er niet uit.

Te doen in Visual Basic 6.0

HX45/300w/Epox 8KHA+/XP1800@1620/768mb@2x143mhz Apacer/17"@Asus V6600 GF1/17"@ S3trio64V/SB1024 Live player/Kingston 110TX/20gig@7200rpm Maxtor/40gig@5400rpm Maxtor/27gig@5400 WD/JustCool CPUcooler/2x120mm en 3x80mm casefans/Plextor 40x/DVDR4x


  • Koen_R
  • Registratie: Juni 1999
  • Laatst online: 15:56
ucase$() :?

  • tomato
  • Registratie: November 1999
  • Niet online
Euh... je bedoelt de naam van de variabele die door de IDE automagisch op case aangepast wordt? Dan moet je het eerst aanpassen waar je de variabele declareert lijkt me, daar zel de IDE ook wel naar kijken...

[edit]
Ah, toch inhoud van een string ;)

  • LG_Greenman
  • Registratie: Maart 2001
  • Laatst online: 08-09 09:07
Ha, ben eruit, via Asc(string) komt er een integer uit, dank allen.

HX45/300w/Epox 8KHA+/XP1800@1620/768mb@2x143mhz Apacer/17"@Asus V6600 GF1/17"@ S3trio64V/SB1024 Live player/Kingston 110TX/20gig@7200rpm Maxtor/40gig@5400rpm Maxtor/27gig@5400 WD/JustCool CPUcooler/2x120mm en 3x80mm casefans/Plextor 40x/DVDR4x


Verwijderd

Ik wil van amsterdam naar rotterdam met de trein, op welk peron moet ik op stappen? ahh ik zie het al, er rijd een bus naar dronten.

Kortom ik ben erg benieuwd wat asc te maken heeft met je upper/lowercase string? (behalve dat je via 'n gigantishe omweg evt je string in uppper/lower kunt krijgen)

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op zondag 30 december 2001 03:30 schreef Yarvieh het volgende:
Ik wil van amsterdam naar rotterdam met de trein, op welk peron moet ik op stappen? ahh ik zie het al, er rijd een bus naar dronten.
Gate 3 op Schiphol toch? :+

* Mr. B. B. snapt ook totaal niet waar de topicstarter eigenlijk op doelt.

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Verwijderd

En nou maar hopen dat ie niet bij een kerncentrale werkt ofzo.. ;)

  • LG_Greenman
  • Registratie: Maart 2001
  • Laatst online: 08-09 09:07
Op zondag 30 december 2001 03:30 schreef Yarvieh het volgende:
Ik wil van amsterdam naar rotterdam met de trein, op welk peron moet ik op stappen? ahh ik zie het al, er rijd een bus naar dronten.

Kortom ik ben erg benieuwd wat asc te maken heeft met je upper/lowercase string? (behalve dat je via 'n gigantishe omweg evt je string in uppper/lower kunt krijgen)
Met Asc() kan ik een letter desgewenst in een hoofdletter of in een kleine letter veranderen, door het asciinr op te vragen, daar 37 vanaf te halen en dan heb je het asciinr van de hoofdletter, en dan met Chr(asciinr) kan ik dat karakter weer invullen. Maar mocht je een andere manier weten, hoor ik het graag, ik kon zelf niets beters verzinnen.

HX45/300w/Epox 8KHA+/XP1800@1620/768mb@2x143mhz Apacer/17"@Asus V6600 GF1/17"@ S3trio64V/SB1024 Live player/Kingston 110TX/20gig@7200rpm Maxtor/40gig@5400rpm Maxtor/27gig@5400 WD/JustCool CPUcooler/2x120mm en 3x80mm casefans/Plextor 40x/DVDR4x


  • LG_Greenman
  • Registratie: Maart 2001
  • Laatst online: 08-09 09:07
Op zondag 30 december 2001 04:08 schreef Mr. B. het volgende:

[..]

Gate 3 op Schiphol toch? :+

* LG_Greenman B. snapt ook totaal niet waar de topicstarter eigenlijk op doelt.
Wat ik wilde doen is van een kleine letter een hoofdletter laten maken, of andersom.

HX45/300w/Epox 8KHA+/XP1800@1620/768mb@2x143mhz Apacer/17"@Asus V6600 GF1/17"@ S3trio64V/SB1024 Live player/Kingston 110TX/20gig@7200rpm Maxtor/40gig@5400rpm Maxtor/27gig@5400 WD/JustCool CPUcooler/2x120mm en 3x80mm casefans/Plextor 40x/DVDR4x


Verwijderd

Je doet een beetje erg moeilijk.

Gebruik UCase en LCase.

  • johnwoo
  • Registratie: Oktober 1999
  • Laatst online: 16:17

johnwoo

3S-GTE

Ja maar LG_Greenman doet het op de bikkelmanier:
code:
1
2
code = Asc(letter)
if code > 96 and code < 123 then letter = chr$(code - 32)

:+

4200Wp ZO + 840Wp ZW + 1680Wp NW | 14xIQ7+ + 1xDS3-L | MTVenusE | HWP1


Verwijderd

Bwa ik zou het zo doen
code:
1
2
3
4
5
6
7
8
9
10
For i = 1 to len(strGroot)
 a$ = mid(strGroot,i,1)
 if (a$ = "A")
   b$ = "a"
 elseif (a$ = "B")
   b$ = "b"
 ...
 endif
strKlein = strKlein + b$
next i

>:) (hou het maar op lcase)

Verwijderd

Op zondag 30 december 2001 14:19 schreef LG_Greenman het volgende:
Maar mocht je een andere manier weten, hoor ik het graag, ik kon zelf niets beters verzinnen.
code:
1
2
3
4
5
6
7
8
9
Dim strValue as string
dim strUpper as string
dim strLower as string
StrValue = "UpPeR En LoWER CaSE"
strUpper = ucase(strvalue)
strLower = lcase(strvalue)
debug.print "orig :" & strValue
debug.print "Ucase:" & strUpper
debug.print "Lcase:" & strLower

  • LG_Greenman
  • Registratie: Maart 2001
  • Laatst online: 08-09 09:07
Op zondag 30 december 2001 20:30 schreef Yarvieh het volgende:

[..]
code:
1
2
3
4
5
6
7
8
9
Dim strValue as string
dim strUpper as string
dim strLower as string
StrValue = "UpPeR En LoWER CaSE"
strUpper = ucase(strvalue)
strLower = lcase(strvalue)
debug.print "orig :" & strValue
debug.print "Ucase:" & strUpper
debug.print "Lcase:" & strLower
Tnx

HX45/300w/Epox 8KHA+/XP1800@1620/768mb@2x143mhz Apacer/17"@Asus V6600 GF1/17"@ S3trio64V/SB1024 Live player/Kingston 110TX/20gig@7200rpm Maxtor/40gig@5400rpm Maxtor/27gig@5400 WD/JustCool CPUcooler/2x120mm en 3x80mm casefans/Plextor 40x/DVDR4x

Pagina: 1