Avatar billede horus Nybegynder
11. januar 2002 - 10:12 Der er 7 kommentarer og
1 løsning

Slet en del af en streng

Hejsa

Længe leve dovenskaben :-)

Jeg skal have lavet en funktion der kan slette en del af en streng ved at modtage et starttegn og et sluttegn.

Ex:

Streng:

Der var engang en abe der boede i en skov sov og sov så godt.


Funktionen skal så modtage f.eks. abe som startparameter og skov som slut parameter - så er tanken at den skal fjerne alt fra og med abe til og med skov og returnere resten så der returneres:

Der var engang en sov og sov så godt.


Jeg kan sikkert godt selv lave det - men som sagt er jeg lidt doven, så hvis der er nogen der har noget lignende de allerede har lavet vil det jo være dejligt nemt :-)

Horus









Avatar billede terry Ekspert
11. januar 2002 - 10:14 #1
I could also make it horus, but I am \"doven\" to :o)
Avatar billede terry Ekspert
11. januar 2002 - 10:14 #2
to  = too
Avatar billede proaccess Nybegynder
11. januar 2002 - 10:17 #3
Private Sub Form_Load()
  Dim strTest As String
  strTest = \"Der var engang en abe der boede i en skov sov og sov så godt.\"
  MsgBox fjernStr(strTest, \"abe\", \"skov\")
End Sub

Public Function fjernStr(strSource, strStart, strSlut)
  fjernStr = Left(strSource, InStr(strSource, strStart) - 1) & Mid(strSource, InStr(strSource, strSlut))
End Function
Avatar billede proaccess Nybegynder
11. januar 2002 - 10:18 #4
I\'m not THAT lazy - today at least... ;-)
Avatar billede horus Nybegynder
11. januar 2002 - 10:21 #5
terry - det er fredag og den lille har ikke villet sove i nat - dét gør én både doven og træt :-)

proaccess - det ser jo super ud - jeg tester det lige og så får du dine point

Tak for hjælpen :-)


Horus

Avatar billede terry Ekspert
11. januar 2002 - 10:22 #6
its great that the weekends just around the corner :o)
Avatar billede proaccess Nybegynder
11. januar 2002 - 10:25 #7
Du kan eventuelt også prøve med:

Public Function fjernStr(strSource, strStart, strSlut)
  fjernStr = Left(strSource, InStr(strSource, strStart) - 1)
  fjernStr = Mid(fjernStr, InStr(fjernStr, strSlut))
End Function

ellers kommer der vist problemer, hvis \"skov\" kommer FØR \"abe\"...
Avatar billede horus Nybegynder
11. januar 2002 - 10:25 #8
yup :-)
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester