Centralised MsgBox
in [Visual Basic]
|
Prev: crack for VSFlex8 in VB6.0
Next: Component Handles
From: Rick Rothstein on 11 Oct 2009 15:07 No, I never considered a blog. I think of a blog as a more "active" entity than would be possible with one-liner postings. A website with a "My One-liners" section might work, however, I have never gotten around to setting up a website. Besides, I don't have an archive of all my one-liners and Google search seems to be worthless. I tried a search on it for... "one-liner" "rick rothstein" and got back 69 hits in the Groups area (a lot of which were different parts of the same thread)... I'd be willing to bet that over a 9 or 10 year span of volunteering on the VB and Excel newsgroups that I have posted more than 69 one-liners. -- Rick (MVP - Excel) "Kevin Provance" <bill(a)localhost.com> wrote in message news:%23pc3SOpSKHA.1236(a)TK2MSFTNGP05.phx.gbl... > Wow. All very cool. Ever consider a blog of sorts to show off your one > liner work? > > -- > 2025 > If you do not believe in time travel, > your beliefs are about to be tempered. > > http://www.facebook.com/group.php?gid=43606237254 > "Rick Rothstein" <rick.newsNO.SPAM(a)NO.SPAMverizon.net> wrote in message > news:edmU1IoSKHA.1232(a)TK2MSFTNGP05.phx.gbl... > |> I'm curious Rick, what do you consider to be your "best" one liner? > | > | That is a hard question to answer as I have written so many one-liners > | across the years. I would have to say my most "practical" one-liner > would > be > | this one... > | > | IsDigitsOnly = Len(Value) > 0 And Not Value Like "*[!0-9]*" > | > | which overcomes the shortcomings of VB's built-in IsNumeric function > when > | testing a user's input (into say, a TextBox) to see if it consists of > only > | digits. > | > | As for my most "obfuscated" one-liner, not so much for length as I have > | written much longer ones; but, rather, more for the difficulty in > figuring > | out how it works, might be this one... > | > | MakeOrdinal = Number & Choose(1 + Number * Abs(Partition(Number Mod _ > | 100, 1, 13, 5) <> "11:13" And Partition(Number Mod 10, _ > | 1, 9, 3) = " 1: 3") Mod 10, "th", "st", "nd", "rd") > | > | which changes a number into its ordinal value (for example, 103 becomes > | 103rd where as 113 becomes 113th). I figure that the majority of the > people > | never knew there was a Partition function in VB and, after looking at > the > | help files for it, might still have trouble deciphering why it actually > | works. > | > | However, the one-liner I am most "proud" of is this one which I > submitted > to > | John Walkenbach, a renown Excel author. He had this function listed on > his > | website (which I only just tripped across)... > | > | Function ExactWordInString(Text As String, Word As String) As Boolean > | Dim i As Long > | Const Space As String = " " > | Text = UCase(Text) > | For i = 0 To 64 > | Text = Replace(Text, Chr(i), Space) > | Next i > | For i = 91 To 255 > | Text = Replace(Text, Chr(i), Space) > | Next i > | Text = Space & Text & Space > | Word = UCase(Space & Word & Space) > | ExactWordInString = InStr(Text, Word) <> 0 > | End Function > | > | This function determines if a word exists with a larger piece of text as > a > | stand-alone word and not part of another word ("the" by itself as > opposed > to > | those letters being in the middle of "mother" for example). Now, his > | definition of what a delimiter is quite loose (any non-alpha character) > so > | "123the42" would count the word "the" as standing alone, but for normal > | usage, this function would be fine. Anyway, I saw this function and > thought > | to myself "one-liner maybe?"; and here is what I came up with... > | > | Function ExactWordInString(Text As String, Word As String) As Boolean > | ExactWordInString = " " & UCase(Text) & " " Like _ > | "*[!A-Z]" & UCase(Word) & "[!A-Z]*" > | End Function > | > | Well, when John received this from me, he listed my function as an > update > to > | his... > | > | > http://spreadsheetpage.com/index.php/tip/is_a_particular_word_contained_in_a_text_sring > | > | and then posted in his blog... > | > | http://spreadsheetpage.com/index.php/blog/improving_a_function/ > | > | that he was "humbled" by my solution. For a John Walkenbach to be > "humble" > | by my one-liner is a big deal (in my book at least), and so I am quite > proud > | of that one-liner. By the way, we can overcome the "123the456" problem > easy > | enough... > | > | Function ExactWordInString(Text As String, Word As String) As Boolean > | ExactWordInString = " " & UCase(Text) & " " Like "*[!A-Z0-9]" & _ > | UCase(Word) & "[!A-Z0-9]*" > | End Function > | > | but we are still left with what to do about the ASCII/ANSI characters > with > | values above 127. I figured John must have thought about the problem and > | decided to settle on the non-alpha definition of a delimiter for > practical > | purposes, so I simply accepted his definition of delimiter and went with > | that. > | > | The above is the pretty much the only way I could decide on how to > answer > | your question as to which one-liner I consider my "best". > | > | -- > | Rick (MVP - Excel) > | > >
From: Eduardo on 12 Oct 2009 02:36 Rick Rothstein escribi�: > No, I never considered a blog. I think of a blog as a more "active" > entity than would be possible with one-liner postings. A website with a > "My One-liners" section might work, however, I have never gotten around > to setting up a website. Besides, I don't have an archive of all my > one-liners and Google search seems to be worthless. I tried a search on > it for... > > "one-liner" "rick rothstein" > > and got back 69 hits in the Groups area (a lot of which were different > parts of the same thread)... I'd be willing to bet that over a 9 or 10 > year span of volunteering on the VB and Excel newsgroups that I have > posted more than 69 one-liners. http://groups.google.com/groups/search?hl=en&safe=off&q=%22liner%22+author%3Arothstein returns a bit more.
From: Rick Rothstein on 12 Oct 2009 02:56 Yes, but now you are picking up message threads that I did not participate in. For example, the eighth one down (Subject: "Search string without HTML tag") appeared in the microsoft.public.sqlserver.programming newsgroup... I have never participated in that newsgroup. I also saw a music newsgroup in there as well (it would not have any one-liners by me in there as well. Plus, you are getting hits on the word liner that are not part of the phrase "one-liner". In addition, in all probability, a lot of the one-liners I posted in the Excel newsgroups more than likely involve Excel object-specific property/collection/method calls that would not have classic VB equivalents. I know Google used to provide a better set of responses back in the "olden" days, but about three years ago or so they changed something and the relevant hit rates went down dramatically. -- Rick (MVP - Excel) "Eduardo" <mm(a)mm.com> wrote in message news:hauioe$vh0$1(a)aioe.org... > Rick Rothstein escribi�: >> No, I never considered a blog. I think of a blog as a more "active" >> entity than would be possible with one-liner postings. A website with a >> "My One-liners" section might work, however, I have never gotten around >> to setting up a website. Besides, I don't have an archive of all my >> one-liners and Google search seems to be worthless. I tried a search on >> it for... >> >> "one-liner" "rick rothstein" >> >> and got back 69 hits in the Groups area (a lot of which were different >> parts of the same thread)... I'd be willing to bet that over a 9 or 10 >> year span of volunteering on the VB and Excel newsgroups that I have >> posted more than 69 one-liners. > > http://groups.google.com/groups/search?hl=en&safe=off&q=%22liner%22+author%3Arothstein > > returns a bit more. >
From: Nobody on 12 Oct 2009 10:19 "Rick Rothstein" <rick.newsNO.SPAM(a)NO.SPAMverizon.net> wrote in message news:OPf4SkwSKHA.220(a)TK2MSFTNGP02.phx.gbl... > I know Google used to provide a better set of responses back in the > "olden" days, but about three years ago or so they changed something and > the relevant hit rates went down dramatically. One of Google changes is that if you search by subject, and you enter one of the common words(the,a,to, etc.), your search will return no results.
From: Karl E. Peterson on 12 Oct 2009 17:26
Scott M. wrote: > I don't seem to remember Microsoft appointing you or your point of view as > somehow the last word on how to use this newsgroup. What a priss. > Given that I prefer to take your meaningless instructions on how to be helpful for > exactly what they are worth. So you're gonna go outside, then, and play hide go fnck yourself? -- ..NET: It's About Trust! http://vfred.mvps.org |