CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
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
Æ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
Batch fil Af BDV i VBscript 1 12/01/202210:00 12/01/202210:05
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
I går 20:57 Bruger/Administrator Af ErikHg i Windows
I går 20:35 lader til mobil 17W udgangseffekt Af Novice-1 i Mobiltelefoner
I går 13:04 Outlook - adressekartotek Af jdann i E-mail programmer
I går 11:48 Vis Valuta og Pris i SQL Af per2edb i Access
I går 11:14 Send sms via computeren Af Dalsgaard i Chat & Messaging
White papers
Flere white papers »


Premium
Teaser billede
Med enkle tricks stiger muligheden for succes med it-projekter ganske voldsomt
Læs mere »
Comm2ig tjener næsten dobbelt så meget, som ledelsen selv har forventet: Har genvundet milliardstor SKI-aftale
Sådan bør du håndtere Microsofts nye prisstigninger - måske er der fordele at hente
Tre danske universiteter går sammen om centralt it-system til 140 millioner kroner
Se alle »
Computerworld
Teaser billede
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Læs mere »
Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse
Et ”mareridt for privatlivets fred”: Kontroversiel Windows-funktion er udkommet i en test-version
Apple på vej med en iPhone Air, der er så tynd, at der ikke er plads til et simkort
Se alle »
CIO
Teaser billede
Microsoft hæver priserne på M365: Sådan kommer de nye priser til at ramme
Læs mere »
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Leverandør til 50 danske kommuner ramt af ransomware: "Det er ikke sjovt," siger direktør Thomas à Porta
Microsoft et døgn efter nedbrud: Stadig problemer med Outlook
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Twoday er rykket til et af de dyreste postnumre i Danmark – og det kan betale sig, siger topchef Lars Berthelsen
Se alle »
White paper
Teaser billede
Governance, Risk & Compliance: Knyt stærke bånd mellem forretning og sikkerhed
Læs mere »
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
Vær proaktiv og prioritér IT-sikkerheden – før det er for sent
SMB og cybertrusler: Brug sikkerhedsressourcerne optimalt
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »