.NET brok #2

Forestil dig en streng
str = "aaa@bbb@ccc"

Vi vil gerne ha' "sub-strengen" mellem de to @'er...

I Java er det ligetil:
str.substring(str.indexOf("@") + 1, str.lastIndexOf("@"))

I ColdFusion (som bygger på Java), er det nærmest charmerende:
Left(str, Find("@", str, Find("@", str) + 1) - 1)

I VB.NET er det bare underligt:
str.Substring(str.IndexOf("@") + 1, str.IndexOf("@", str.IndexOf("@") + 1) - str.IndexOf("@") - 1)

Update
voller har i en kommentar gjort mig opmærksom på, at min fremgangsmåde er lidt overkill i ovenstådende simple tilfælde. Man lærer, så længe man lever...

Kommentarer

Anonym sagde…
Dim strContent As String = "aaa@bbb@ccc"
Dim strInBetween As String = strContent.Split("@").GetValue(1)

... Hvis du vil lege med tekststykker og af en eller anden underlig grund har afgrænset tekst med et @. Men personligt ville jeg nok lave et regulært udtryk.
17 juni, 2005 16:37
Unknown sagde…
Ja, ok... Mit problem var lidt mere komplekst, så jeg forsøgte med et simpelt eksempel. Men tak for tippet.
17 juni, 2005 18:28
Send en kommentar

Populære opslag fra denne blog

Valgfristelser

Er det bare mig, eller er Foghs blog bemærkelsesværdig tom denne tid? Man må beundre manden for at kunne modstå fristelsen for at starte et indlæg på en måde, som de færreste har mulighed for. "Jeg har netop udskrevet folketingsvalg..."
Læs mere
Jeg var på jagt i morges! Ikke sådan ude i en skov eller noget men herhjemme på udkig efter én eller anden dims, der sagde et højt "bip" ca. hvert andet minut. Lyden begyndte kl. lidt over 8, og efter en times tid var jeg ved at være helt skør i hovedet over ikke at kunne finde ud af, hvor lyden kom fra. Derfor begynde jeg at rode rundt i huset og fik indskrænket mit jagt-område til vores garderobe/stryge/male/opbevarings-rum. Det var i sig selv skidt, da vi derinde har en masse kasser stående med julepynt, vinterjakker, ringbind osv., der ikke rigtig hører til nogen steder. Ved at flytte alle kasserne rundt omkring i rummet fik jeg indkredset den kasse, hvor dimsen befandt sig, og begyndte at rode den igennem. Det viste sig at være en røgalarm, der af én eller anden grund var endt i en kasse med lamper(!?). Således fik jeg en særdeles irriterende start på en eller rolig og fredelig lørdag.
Læs mere

Mandags-programmering

Hvis du nogensinde står overfor at skulle lave add-in'er med en menubar til Microsoft Office -programmer som Word , har jeg er lille tip: Husk at sætte tag -property'en på alle knap-objekter i din menubar: Dim newButton As Microsoft.Office.Core.CommandBarButton newButton = CType(commandBarControls.Add( _ Microsoft.Office.Core.MsoControlType.msoControlButton), _ Microsoft.Office.Core.CommandBarButton) newButton.Caption = "Min knap" newButton.Tag = "Grr..." 'underlig løsning Ellers fungerer menubaren ikke, når der er flere dokumenter åbne på samme tid! Jeg har efterhånden rodet med dette i nogle dage, og hverken eksempler på MSDN eller den sparsomme dokumentation nævner noget som helst om dette. Heldigvis fandt jeg (som sædvanlig) svaret på Google Groups . Det er nogle gange som om de bevidst gør det utroligt svært at lade nogle meget simple funktioner... Og så ender man med at rode med det på en mandag. Puha!
Læs mere