excel - Get the nth word or the last word if apporopriate -

-

i using great little piece of code pull names out of 1 cell , separate them separate cells. number of names varies , such need automate as possible.

i using following macro:

function get_word(text_string string, nth_word) string     dim lwordcount long      application.worksheetfunction         lwordcount = len(text_string) - len(.substitute(text_string, " ", "")) + 1          if isnumeric(nth_word)             nth_word = nth_word - 1             get_word = mid(mid(mid(.substitute(text_string, " ", "^", nth_word), 1, 256), _                 .find("^", .substitute(text_string, " ", "^", nth_word)), 256), 2, _                 .find(" ", mid(mid(.substitute(text_string, " ", "^", nth_word), 1, 256), _                 .find("^", .substitute(text_string, " ", "^", nth_word)), 256)) - 2)          elseif nth_word = "first"             get_word = left(text_string, .find(" ", text_string) - 1)          elseif nth_word = "last"             get_word = mid(.substitute(text_string, " ", "^", len(text_string) - _                 len(.substitute(text_string, " ", ""))), .find("^", .substitute(text_string, " ", "^", _                 len(text_string) - len(.substitute(text_string, " ", "")))) + 1, 256)          end if     end  end function

i can specify word goes column (e.g. get_word(j2, 4)).

unfortunately have hit snag, if specific word last word in cell not extracted unless specify ( e.g. get_word(j2, "last")). making tricky , mean have go through cells individually.

what love know if there way change vba script above in excel can specify want 4th word or "last" word if case.

you try this:

function get_word(text_string string, nth_word) string     dim vwords     dim lwordcount long      vwords = split(text_string, " ")      lwordcount = ubound(vwords) + 1      if isnumeric(nth_word)         if nth_word < 1 nth_word = 1         if nth_word > lwordcount nth_word = lwordcount         get_word = vwords(nth_word - 1)     elseif nth_word = "first"          get_word = vwords(0)      elseif nth_word = "last"          get_word = vwords(lwordcount - 1)     end if  end function

if want nothing if pass large value:

function get_word(text_string string, nth_word) string     dim vwords     dim lwordcount long      vwords = split(text_string, " ")      lwordcount = ubound(vwords) + 1      if isnumeric(nth_word)         if nth_word > lwordcount           get_word = ""         else          if nth_word < 1 nth_word = 1           get_word = vwords(nth_word - 1)         end if     elseif nth_word = "first"          get_word = vwords(0)      elseif nth_word = "last"          get_word = vwords(lwordcount - 1)     end if  end function

you can still use =get_word(a1,"last") if want, if use =get_word(a1,3) , there 2 words, you'll empty string back.


Comments

Post a Comment

Popular posts from this blog

database - VFP Grid + SQL server 2008 - grid not showing correctly -

-
i having problem, have grid called "gridbasica" , this: thisform.gridbase.recordsource = "sgviemp" sgviemp cursor made executing select sqlserver command sqlexec. when want modify registry, go form , the update there. so, when come form grid, grid isnt grid anymore, big white rectangle. reading around said: delete recordsource , asingt again. thisform.gridbase.recordsource = "" *--i sqlexe here thisform.gridbase.recordsource = "sgviemp" i , works, but, when click button modify again cursos updated modify form doesnt load fields did first time. could me out that? thanks in advance. --------------- edit ------------------ i have been doing recommended: lnselect = select(0) n = sqlexec(thisform.conexion,"select emp_ccodigo codigo, emp_cnombre 'nombre o razon social', emp_cnumrif 'r.i.f' sgviempr","sgviemp1") set echo on suspend select sgviemp zap in sgviemp *-- browse *--zaps correct
Read more

jquery - Set jPicker field to empty value -

-
im using jpicker color selector in form. have clear value set window/icon 'no color selected' state. i've tried following: $(':input[name="color"]').val(''); //access value directly. (does not affect jpicker) 2: $.jpicker.list[0].color.active.val('hex', '', this); //set color black , input value 000000, instead of empty string 3: $.jpicker.list[0].color.active.val(null, '', this); //does nothing none of 3 methods seems behave properly. in advance. this works me :) $.jpicker.list[0].color.active.val('v', null); here example: http://jsfiddle.net/3up7n/
Read more

.htaccess - htaccess convert request to clean url and add slash at the end of the url -

-
ok , searched more 4 days , more 20 posts here in stach or in websites without kind of success first here htaccess file rewriteengine on rewriterule ^([a-za-z0-9_]+)/?$ index.php?page=$1 [nc] rewriterule ^([a-za-z0-9_]+)\/([a-za-z0-9_]+)\/?$ index.php?page=$1&action=$2 [nc] i tried many codes 1 worked me can call request , works me www.example.com/pagename => www.example.com/index.php?page=pagename here questions , please provide me information "in detail" understand code well 1- how convert request automatically www.example.com/index.php?page=pagename www.example.com/pagename 2- if tried add slash @ end shows me page without images or styling mean www.example.com/pagename => works www.example.com/pagename/ => doesn't work that's :) for first part need 301 rule this: rewritecond %{the_request} /index\.php\?page=([^\s&]+) [nc] rewriterule ^ /%1? [r=301,l] for second part use absolute path in css, js, images files r
Read more