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	3	25/04/202414:26	28/08/202419:09
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