11. januar 2002 - 10:12Der 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 :-)
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
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
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\"...
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.