CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

bomme Nybegynder

21. marts 2006 - 15:37 Der er 9 kommentarer

noget galt med min MID funktion, hjælp

Jeg har denne kode for neden for at fjerne alle HTML koder, dvs den sletter alt der starter med < og slutter med > meeen min kode nedenfor vikrer ikke, det er kun den første HTML kode den sletter rigtigt ellers så sletter den nr 2 fint fra start men slut punktet er alt for langt fremme. Jeg har HTML start og HTMLslut udskrevet i en label og der kan jeg se at det er korrekt nok hvor start og slut punktet er men min funktion der sletter det virker slet ikke...

Do Until Counter = 2 'htmlstart = 0
htmlstart = 0
htmlslut = 0
htmlstart = InStr(htmlfri, "<")
htmlslut = InStr(htmlfri, ">") - 2
If Not htmlstart = 0 Then
htmltemp = Mid(htmlfri, htmlstart, htmlslut)
htmlfri = Replace(htmlfri, htmltemp, "")
End If
Counter = Counter + 1
Loop

Synes godt om

sjh Nybegynder

21. marts 2006 - 16:07 #1

Du kunne også bare gøre sådan:

Option Explicit

Private Sub Form_Load()
Text1.Text = HTML2Text("123 ABC")
End Sub

Public Function HTML2Text(strHtml As String) As String
Dim i As Long
Dim strOne As String
Dim strOut As String
Dim blnHtm As Boolean
For i = 1 To Len(strHtml)
strOne = Mid$(strHtml, i, 1)
Select Case strOne
Case "<", ">"
blnHtm = Not blnHtm
Case Else
If Not blnHtm Then
strOut = (strOut & strOne)
End If
End Select
Next
HTML2Text = strOut
End Function

Synes godt om

bomme Nybegynder

21. marts 2006 - 16:22 #2

Kan godt være det virker men jeg kan bare ikke forstå hvorfor, og det er nu meget vigtigt syntes jeg selv

Synes godt om

bomme Nybegynder

21. marts 2006 - 16:53 #3

og nej det virker heller ikke ved mig den skriver bare 123 ABC

Synes godt om

bomme Nybegynder

21. marts 2006 - 17:05 #4

Ja se lige bort fra min sidste kommentar der... Men det virker stadig ikke. Jeg indsætter teksten

<BODY>

Følgende ESS kunde skal have installeret:

Mail sendt til <A href<"mailto:test@data.dk">test@data.dk</A> skal have udført en Total installation
Mail sendt til <A href<"mailto:godtigang@ess.dk">godtigang@ess.dk</A> skal have udført Godt i Gang

---------------------------------------------------------------------------------------------------------------------------------------------

Kunde nr (TMS): 994
Navn: John Johnson
Adresse: Uglekær
postnr. by: 6200 Aabenraa
Kontakt tlf: 623170

Oprettet d.: 25. oktober 2005
Ønsket d.: 27. december 2005
Udføres d.: 27. februar 2006

---

Bredbånd

Ordre nr: 11420
Type: Oprettelse

Updata nummer: ESSAAB0270

---

IP telefoni

Ordre nr:
Telefon nr: 

SIP Konto information
Server:

---------------------------------

Men jeg får det her ud af det med din funktion

Arial/FONT/PFONT faceMail sendt til "mailto:test@data.dk"FONT facetest@data.dkArial/FONTA hrefArial/FONT/AFONT face skal have udført Godt i Gang

Arial/FONT/PFONT faceKunde nr (TMS): 994
Navn: John Johnson
Adresse: Uglekær
postnr. by: 6200 Aabenraa
Kontakt tlf: 623170

Arial/FONT/PFONT face---

Arial/FONT/PFONT faceOrdre nr: 11420
Type: Oprettelse

Arial/FONT/PFONT face---

Arial/FONT/PFONT faceOrdre nr:
Telefon nr:

Synes godt om

sjh Nybegynder

21. marts 2006 - 17:23 #5

øhh.. er ikke html ellers er det en fejl..

den skal se sådan ud: eller

Synes godt om

bomme Nybegynder

21. marts 2006 - 17:35 #6

Ja det så jeg lige med det samme så har lavet en replace, det er nemlig sådan at der ikke findes noget > tegn i dette dokument de er detsvære erstattet af HEX decimaler. Men jeg har fundet ud af det nu.. Kunne bare godt tænke mig at du skrev lidt tekst til den funktion så jeg også kunen lære lidt :)

Synes godt om

sjh Nybegynder

21. marts 2006 - 17:44 #7

ellers så prøv den her:

Private Sub Form_Load()
Text1.Text = HTML2Text("123 ABC")
End Sub

Public Function HTML2Text(strHtml As String) As String
Dim i As Long
Dim strLst As String
Dim strOne As String
Dim strOut As String
Dim blnHtm As Boolean
For i = 1 To Len(strHtml) ' Gennemløber strHtml
strOne = Mid$(strHtml, i, 1) ' Setter et tegn i strOne (tager et tegn af gangen)
Select Case strOne
Case "<", ">" ' Hvis strOne er < eller > så køres det her unden
If strOne <> strLst Then ' Hvis strOne ikke er det samme som strLst
blnHtm = Not blnHtm ' Skifter automatisk mellem True og False
End If
strLst = strOne ' Setter strLst til strOne
Case Else ' Hvis strOne IKKE er < eller > så køres det her unden
If Not blnHtm Then ' Hvis blnHtm IKKE er true så køres det her unden
strOut = (strOut & strOne) ' Tilføjer strOne til strOut
End If
End Select
Next
HTML2Text = strOut ' Retuner strOut
End Function

Synes godt om

bomme Nybegynder

11. maj 2007 - 09:30 #8

mangler svar

Synes godt om

sjh Nybegynder

11. maj 2007 - 11:46 #9

okææ kommer her ;)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	2	25/04/202414:26	25/04/202422:06
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic	0	09/10/202309:14	-

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

26/07

Test: Endelig kan man få en soundbar der lyder godt - og som ikke behøver nogen klodset subwoofer

26/07

Analyse: ”Det største it-nedbrud i historien” viser hvor sårbare dine it-løsninger er - og det vil ske igen

26/07

Nørgaard: Jeg har jo sagt det gang på gang på gang! VMS er det bedste styresystem EVER! Men lytter folk?! Nej, nej og atter nej!

26/07

Kæmpeleverandør til Pentagon hacket: Interne undersøgelser lækket

26/07

Stor aftale gør Microsofts datacentre hurtigere - investerer i netværksudstyr

26/07

Nordjyske MapsPeople ruster op til opkøb af konkurrenter: "Vi vil vinde det her kapløb"

26/07

Mød den unge version af den mest elskede seriemorder nogensinde

26/07

AMD opdager cpu-fejl i 11. time: Storstilet lancering udskydes

26/07

Microsoft tager til genmæle: Vores licenspraksis skaber ikke unfair konkurrence

26/07

Med SearchGPT har verden fået en spritny søgemaskine: Kan den true Googles dominans?

26/07

Færre unge studerende på landets it-uddannelser: "Vi afviser dem der, hvor de har lyst til at læse"

Vis flere artikler

IT-JOB

Gehl Architects ApS

IT Supporter

TV2

Projektledere til TV 2 Teknologi

Region Midtjylland

Vil du begejstre med data? Bliv BI-udvikler i Digitalisering og It

Politiets Efterretningstjeneste

Netværks- og/eller firewallspecialister til PET

Udviklings- og Forenklingsstyrelsen

Generalister med flair for ledelsesrapportering og koordinering

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 18:09	Kan ikke fildele fra PC til PC Af gertLundberg i LAN/WAN
I går 17:33	Facebook kopier en tråd Af clausito i Sociale medier
I går 09:49	Indtogs sejlads : OL i Paris : Hvornår kom Danmark ? Af Ikke-ekspert i Fri debat
I går 03:28	Inkasso som privat? Af lekor adams i Fri debat
26/0723:51	Frossen cursor Af goglov i PC