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

Gasman · Sep 23, 2018

FreshCoder said:
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

No don't have suffixes, that limits you.

Have at look at the attached and perhaps build from that.?
Not thoroughly tested mind you, but gives you something to start with.

HTH

FreshCoder · Sep 23, 2018

Worked like a charm

Thanks alot

arnelgp · Sep 24, 2018

dont split yet, we havent properly introduced yet.

i added a table so it can be more realistic.

i am using Regular Expression to extract the text.
on the form's load event i am creating an instance
of it so we do not need to re-create an instance
everytime.

see the code in frmSplit events, Load(), UnLoad().
also see the function on the form, fncTagOut(),

see the ControlSource of Diagnose, and Resept.

if you need to use Bound control for Diagnose and Resept,
remove, add an Event on txtJournal's AfterEvent:

Code:

Private Sub txtJournal_AfterUpdate()
	Me.Diagnose = fncTagOut([txtJournal], "<diagnose>")
	Me.Resept = fncTagOut([txtJournal], "<resept>")
End Sub

Gasman · Sep 24, 2018

Very nice arnelgp,

For my benefit though please

1. How do you avoid the initial vbCRLF at the start of the loop.? is it the + rather than & ? What does the + actually do ?
2. Why are you using Variant when we know they will be string variables?

TIA

arnelgp · Sep 24, 2018

null + anything=null
null & anything = anything

FreshCoder · Sep 24, 2018

Thank you

I have plenty to work with now!

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

Gasman

Enthusiastic Amateur

Attachments

FreshCoder

Registered User.

arnelgp

..forever waiting... waiting for jellybean!