Extract text from <example>TEXT</example> (1 Viewer)

FreshCoder · Sep 22, 2018

Hi!
I need help with some code. Im making a medical record and need to extract what`s between <example>TEXT</example> and put it in text boxes.

Code:

Option Compare Database
Option Explicit

Private Sub txtJournal_AfterUpdate()

Dim i As String
Dim txtJournal As String

For i = 1 To Len(txtJournal)

If Mid(txtJournal, i, 1) = "<diagnose>" Then
ElseIf Mid(txtJournal, i, 1) = "</diagnose>" Then

Next i

If Mid(txtJournal, i, 1) = "<resept>" Then
ElseIf Mid(txtJournal, i, 1) = "</resept>" Then


End If
End Sub

JHB · Sep 22, 2018

I would use the Split function:
https://www.techonthenet.com/access/functions/string/split.php

Gasman · Sep 22, 2018

I'd probably write a function and then pass the tag I am looking for and return what is between the start and end html tags.

That is assuming the tags are not repeated.? ie one diagnose and one resept. ?

bob fitz · Sep 22, 2018

Cross Posted: http://www.accessforums.net/showthread.php?t=73806
Please read: https://www.excelguru.ca/content.php?184

JHB · Sep 22, 2018

Attache is a sample database, change something in the Journal control and hit <Return>

FreshCoder · Sep 22, 2018

Gasman said:
I'd probably write a function and then pass the tag I am looking for and return what is between the start and end html tags.

That is assuming the tags are not repeated.? ie one diagnose and one resept. ?

Its not repeated!

isladogs · Sep 22, 2018

Here's a variation using a function GetBetween rather than the Split function

FreshCoder · Sep 22, 2018

Thank you very much for writing those programs! Exactly what i was looking for

Gonna look into them and try to learn something

isladogs · Sep 22, 2018

Excellent. Both solutions work. Choose whichever you prefer.

FreshCoder · Sep 22, 2018

What do i need to do with this code if i want to add more <diagnose> and <resept>?

Code:

Option Compare Database
Option Explicit

Private Sub txtJournal_AfterUpdate()
  Dim strSplit() As String
  
  strSplit = Split(Me.txtJournal, "<diagnose>")
  If UBound(strSplit) > 0 Then
    strSplit = Split(strSplit(1), "</diagnose>")
    If UBound(strSplit) > 0 Then
      Me.diagnose = strSplit(0)
    Else
      MsgBox ("End of diagnose not found!")
    End If
  Else
    MsgBox ("Start of diagnose not found!")
  End If
  strSplit = Split(Me.txtJournal, "<resept>")
  If UBound(strSplit) > 0 Then
    strSplit = Split(strSplit(1), "</resept>")
    If UBound(strSplit) > 0 Then
      Me.Resept = strSplit(0)
    Else
      MsgBox ("End of resept not found!")
    End If
  Else
    MsgBox ("Start of resept not found!")
  End If
End Sub

MajP · Sep 22, 2018

if i want to add more <diagnose> and <resept>?

I assume that means multiple occurrences of those two tags. I so, what would you like to do with this. Give an example of the input and what you would like for an output.

FreshCoder · Sep 22, 2018

I uploaded a image of what i mean. And the program it self.

isladogs · Sep 22, 2018

Earlier you stated each item would not be repeated. Has that now changed?

How do you want the output displayed? Each diagnosis on a new line? Similarly for resept?

Do you only want the solution using Split or would the GetBetween solution also be OK?

FreshCoder · Sep 22, 2018

If you could do it for both Split and GetBetween it would be great! But i will only need one for school.
I want the next diagnose to be displayed in a new line below. similar for resept.

Gasman · Sep 22, 2018

FreshCoder said:
If you could do it for both Split and GetBetween it would be great! But i will only need one for school.
I want the next diagnose to be displayed in a new line below. similar for resept.

Surely each diagnosis would be on certain date? Whilst there might be multiple symptoms, they would be all confined within a diagnosis for that visit.?

So one diagnosis and response per record?

isladogs · Sep 22, 2018

So this is a school project?
You should have said so from the start as well as follow guidelines regarding cross posting.

Before going any further you need to sort out table design.
Agree with Gasman that each diagnosis would normally be a separate record which makes the extra work redundant
Will you just display the diagnose and respect values or want to save them as separate fields (thus duplicating data).

Think it all through properly and come back again with your table design and several examples

No, I won't do both methods.
I may do GetBetween (if it's necessary) but someone else can deal with Split.

JHB · Sep 23, 2018

Yes, you should have mentioned that it was a school project.
To me, it is very different if I help one with an IRL problem or one to prove how clever he is in programming.
Remember it's you to judge how smart you are, and not how clever we are.
I think you have got 2 good solutions that you should try to work on alone to see if you can solve your other problem.
If you gets any problems, you can always post your code here and we can assist you further, but at the moment you have to go to the track and show what you able to produce.
A hint: In the solution with the split function, you should use 2 arrays.

FreshCoder · Sep 23, 2018

Yes it is a school project. And sorry guys!

Ive tried to make room for more diagnose and resept in the split version but the problem is that it overwrites the last diagnose/resept. I need it to fill in below. Like a vertical list. I would rather use <diagnose> for the next diagnose, but i tried with <diagnose2> and vbNewLine for next diagnose.
I dont need dates for this one. And sorry for my english.

Code:

Option Compare Database
Option Explicit

Private Sub txtJournal_AfterUpdate()
  Dim strSplit() As String
  
  strSplit = Split(Me.txtJournal, "<diagnose>")
  If UBound(strSplit) > 0 Then
    strSplit = Split(strSplit(1), "</diagnose>")
    If UBound(strSplit) > 0 Then
      Me.diagnose = strSplit(0) & vbNewLine
    Else
      MsgBox ("End of diagnose not found!")
    End If
    MsgBox ("Start of diagnose not found!")
  End If

  strSplit = Split(Me.txtJournal, "<diagnose2>")
  If UBound(strSplit) > 0 Then
    strSplit = Split(strSplit(1), "</diagnose2>")
    If UBound(strSplit) > 0 Then
      Me.diagnose = strSplit(0)

  strSplit = Split(Me.txtJournal, "<resept>")
  If UBound(strSplit) > 0 Then
    strSplit = Split(strSplit(1), "</resept>")
    If UBound(strSplit) > 0 Then
      Me.Resept = strSplit(0)
        Else
      MsgBox ("End of resept not found!")
    End If
  Else
    MsgBox ("Start of resept not found!")
  End If
    Else
      MsgBox ("End of diagnose not found!")
    End If
    MsgBox ("Start of diagnose not found!")
  End If
  
  End Sub

Gasman · Sep 23, 2018

Think about it.
You have the first diagnose and need to add the second?
So the code for the second would be something like

Code:

Me.diagnose = Me.Diagnose & vbCRLF & strSplit(0)

However what happens if you have 3 or 4 or more?

HTH

FreshCoder · Sep 23, 2018

Yes. The idea was to allow fore more <diagnose> and <resept>, but i couldnt find the way to do it. I will need to make <diagnose2>-3-4 and so on. But im guessing this is doing it way to hard.
Trying your solution for new line now

Extract text from <example>TEXT</example> (1 Viewer)

Registered User.

Attachments

Have been here a while

Enthusiastic Amateur

AWF VIP

Have been here a while

Attachments

Registered User.

MVP / VIP

Attachments

Registered User.

MVP / VIP

Registered User.

You've got your good things, and you've got mine.

Registered User.

Attachments

MVP / VIP

Registered User.

Enthusiastic Amateur

MVP / VIP

Have been here a while

Registered User.

Attachments

Enthusiastic Amateur

Registered User.

Attachments

Similar threads

Users who are viewing this thread