Søg
Avatar billede luigi007 Nybegynder
10. december 2007 - 08:34 Der er 6 kommentarer

identificer en karakter i tekst streng

Jeg vil gerne lave en funktion der i en tekststreng, f.eks "johndoe@foobar.com", tager alle karakterne frem til @ og skriver ned i en ny tekst streng - så den nye tekststreng vil indeholde blot "johndoe"

Nogen der kan hjælpe - jeg er ikke så velbevandret i vbs

På forhånd tak!
Avatar billede gider_ikke_mere Nybegynder
10. december 2007 - 08:48 #1
Jeg kan ikke forestille mig det er så anderledes end i VBA:

Sub test()
Tekst = "johndoe@foobar.com"
For I = 1 To Len(Tekst)
    If Mid(Tekst, I, 1) = "@" Then
        Nytekst = Left(Tekst, I - 1)
        Exit For
    End If
Next
MsgBox Nytekst
End Sub
Avatar billede gider_ikke_mere Nybegynder
10. december 2007 - 08:53 #2
Og som funktion:

Sub Find()
Tekst = "johndoe@foobar.com"
MsgBox FIndtekst(Tekst)
End Sub

Function FIndtekst(a)
For I = 1 To Len(a)
    If Mid(a, I, 1) = "@" Then
        FIndtekst = Left(a, I - 1)
        Exit For
    End If
Next
End Function
Avatar billede smitten1 Nybegynder
10. december 2007 - 11:26 #3
Split er også lidt tiltrækkende:

s = Split("johndoe@foobar.com", "@")(0)
Avatar billede luigi007 Nybegynder
10. december 2007 - 12:38 #4
Smukt - tak for hjælpen
Avatar billede gider_ikke_mere Nybegynder
06. januar 2008 - 17:07 #5
Lukketid?
Avatar billede gider_ikke_mere Nybegynder
21. januar 2008 - 00:36 #6
Du skal acceptere et svar for at afslutte spørgsmålet.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
VBS Af bsn i VBscript 5 16/07/202614:01 18/07/202610:46
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Outlook makro Af Webnoob i VBscript 6 09/02/202313:32 16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
16/0913:11 Adapterstik stik på ladekabel til USB-C Af ErikHg i Andet software
White papers
Flere white papers »