Welkom, Gast. Je bent niet ingelogd.

VB String inkorten

Inuyasha
Wie anders? ^^
Geplaatst op: 19 Apr 2007, 21:13
PimpCoins: 0
💸+
Bewerken Quote

Ik wil graag een string 1 teken inkorten vanaf de linker zijde:

Bijvoorbeeld:
Invoer: abcdefgh

*magie*
*tadaaaa *

Resultaat: bcdefgh

Iemand een idee hoe dit te doen?

//edit: excuses, vb 6.0

[Laatst bewerkt door Inuyasha op donderdag 19 april 2007, om 21:16]
Gonaz
Geplaatst op: 19 Apr 2007, 21:15
PimpCoins: 0
💸+
Bewerken Quote

Is het VB.Net of VB6 (in .Net heb je meer mogelijkheden) of VBA

Gonaz
Geplaatst op: 19 Apr 2007, 21:21
PimpCoins: 0
💸+
Bewerken Quote

Dit gaat in .NET

1
2
3
dim tekst, stukje as String
tekst= "Dit is een tekst"
stukje=tekst.substring(1,15)

Dan is stukje= "it is een tekst"
eerste getal in substring is het begin en laatste het einde te beginnen bij 0

Schijnt dat dit werkt in VB6

1
2
Dim Tekst As String = "Dit is een tekst"
Dim Stukje As String = Mid(Tekst, 2,16)

Zelfde als in .NET maar te beginnen bij 1

[Laatst bewerkt door Gonaz op donderdag 19 april 2007, om 21:27]
Inuyasha
Wie anders? ^^
Geplaatst op: 19 Apr 2007, 21:37
PimpCoins: 0
💸+
Bewerken Quote

Thx die tweede werkt wel, maar dan heb ik er dit van gemaakt. Dat werkt iets beter

1
2
3
4
5
6
7
Dim message As String
Dim reducedmessage As String
Dim nMessage As Integer

nMessage = Len(message)
reducedmessage = Right(message, nMessage - 1)
MsgBox reducedmessage

Zo is er 1 teken aan de linkerkant vanaf.

[Laatst bewerkt door Inuyasha op donderdag 19 april 2007, om 21:38]
Gonaz
Geplaatst op: 20 Apr 2007, 19:29
PimpCoins: 0
💸+
Bewerken Quote

Blij dat het gelukt is, ikzelf werk nooit met VB6 (tenzij VBA die VB6 gebruikt).

Saven
admin
Geplaatst op: 20 Apr 2007, 20:46
PimpCoins: 0
💸+
Bewerken Quote

Je kan ook Left() gebruiken

📫

Nieuw privébericht

🔥

Registreren


Login