Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. josoers

    strange DB problem

    its perl.exe that takes the 60%
  2. josoers

    strange DB problem

    ok thanks for that note, anyone knows about the cpu load problem?
  3. josoers

    strange DB problem

    Im having a strange problem here. When im reading from my db in my perl script, everything goes fine. However when I write to the db, the perl script goes from 1% CPU load to 60% CPU load, and stays there. This happens every now and then so not every time when writing to the db. What could cause...
  4. josoers

    masking string

    yeah that was the problem.. got it sorted now, thanks anyway! $length = length($answer); $lower= 0; $upper= $length; $hint = ""; for ($x=0;$x<$length;$x++){ $hint .= "*"; } for ($x=0;$x<($length/3);$x++){ $ran = int(rand( $upper-$lower+1 ) ) + $lower; substr($hint, $ran, 1) =...
  5. josoers

    masking string

    which makes me think. It should be substr($x, $ran, 1) then
  6. josoers

    masking string

    haha it's ok dude! Im not asking to validate this code as it probably is crap. Im not into perl. What im asking is a correct and easy way to achieve the masking goal. In my vision substr($x, $ran, $ran) would be the $ran'th letter of the string $x?
  7. josoers

    masking string

    say i have $answer = 'apple' what i want to achieve is getting the string masked and show only 1/3 of the original letters and place this in $hint So $hint could be *p*** or **p*e It seemed to me that when $ran was 2 for example, this line substr($hint, $ran, $ran) = substr($answer, $ran...
  8. josoers

    masking string

    $antwoord should be read as $answer.. forgot to rename that one too
  9. josoers

    masking string

    well thats just my lack of knowledge of perl... ;) in PHP i have this $hint[$ran] = $answer[$ran]; this replaces the $ran'th element of the mask string with the $ran'th element of the original string, showing part of the original string in the mask string. i thought i could do this in perl...
  10. josoers

    masking string

    the generator works, it does have one argument. I used that in another chunk of code as well
  11. josoers

    masking string

    oops no sorry I forgot to rename that one for this post, I changed the variables to english for better reading. So that one should be $length
  12. josoers

    masking string

    i have written the following PHP function that masks a string with ***'s and then unveils 1/3 of its original letters to form a hint: $length = strlen($answer); $hint = ""; for ($x=0;$x<$length;$x++){ $hint .= "*"; } for ($x=0;$x<($length/3);$x++){ $ran = rand(0,$length-1); $hint[$ran] =...
  13. josoers

    scrollbar colors

    Is there a possibility to change the colors of a scrollbar of a textbox within director? if so, how? thanks in advance
  14. josoers

    animated mask

    What code should i use to animate a mask?
  15. josoers

    absolute to relative path

    I have the following code Dim objFSO As FileSystemObject Dim objTS As TextStream Dim strPath As String Dim strLine As String Set objFSO = New FileSystemObject strPath = &quot;c:\vb\files.txt&quot; Set objTS = objFSO.OpenTextFile(strPath, ForReading) Do While objTS.AtEndOfStream = False...
  16. josoers

    variable objectname

    I already have 16 labels named lbl_vrg1 to lbl_vrg16 What code should i use to have a loop renaming all their captions to 'test'? I really dont know how to implement the things suggested in the above reply!
  17. josoers

    variable objectname

    I have a number of objects in my form, lets say they are labels. label1 label2 label3 label4 label5 i want to change all the labels .caption using a loop: for x = 1 to 5 label<x>.caption = 'test' next x but i dont know how to do this. For example, i tried for x = 1 to 5 tmp = 'label' + x...

Part and Inventory Search

Back
Top