VBA script; Trim away everything except x,y,z etc?

[mss90]

Is it possible to specify to trim/remove all text except certain words from "sDD = appIE.document.getElementsByTagName("dd")(22).innerText".
For example: Trim away everything except x, y and z, which leaves me with just x, y and z given that they are in the text that is getting trimmed.

My current working script;

Please Login or Register  to view this content.

[dflak]

Can you give us an example since x, y and z don't exist in the string you provided. Are x, y and z single characters or substrings. How many can there be?

[dflak]

Never mind. I think I now understand what you need. Here is a function that will take out specified strings. Give it a string, and the substrings you want to remove separated by commas. For example TrimAway ("Foobar","oo") yields "Fbar" and Trimaway ("Foobar","oo,a") yields "Fbr". The function is case sensitive.

Please Login or Register  to view this content.

[mss90]

Can you give us an example since x, y and z don't exist in the string you provided. Are x, y and z single characters or substrings. How many can there be?

Some examples of what x, y, z.. etc can be
Emberiza citrinella
Lagopus muta
Lagopus lagopus
Melanitta nigra
Falco rusticolus
Carduelis flavirostris
Accipiter gentilis

There are 577 species in total.

Im trying to stripp away all the other text so that I can see which species are present at various sites. I have already a script that does give me the relevant paragraph in a cell, so If I could specify
either by linking the script to the excel spreadsheet where I have all the species or write them all into the script to make the script just look for them and if they are there, copy/past them into the spreadsheet, is that doable?

Sorry If my question was a bit ambigious


Thanks for aiding me

[dflak]

Oops! I got it backwards. How about an alternative? You provide the list of species, and the application will tell you if the species appears in the paragraph? or better still, which species appear in the paragraph.

[dflak]

OK, Let's try this. On the species list tab, there is a list of species in an Excel Table. You can copy and paste your list into this table. One of the nice things about Excel tables is they know how many rows they have, so if you add names or delete them the code will keep up.

For purposes of demonstration, I embedded some of the species names in the sample paragraphs. You can pass the paragraphs in your code.

It would probably be best if you copy this code into your existing workbook. It depends on having a table named Table_Species with the column header Species. Here is an introduction to tables in case you are not familiar with them: http://www.utteraccess.com/wiki/inde...ables_in_Excel.

[mss90]

hmm, this might work. I have never seen a xlsb file before :P
Did you write any code, if so how do I get to it?

Thanks

[dflak]

XLSB files are XLSX or XLSM files with a lot of the XLM stuff removed from "under the hood." Generally speaking, they are a lot smaller in size.

Yes, I did write code and you can get to it by pressing ALT-F11. This brings up the VB editor. The following is the code you will see, I added a lot of comments to this post to explain what the code is doing. The only line you would have to change is For Each cl In Range("Table_Species[Species]") if for some reason you change the table name.

Please Login or Register  to view this content.

[mss90]

It works, thank man! :D