avatar image

Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
  • January 29, 2020, 11:43 AM
  • Proudly celebrating 14 years online.
  • Donate now to become a lifetime supporting member of the site and get a non-expiring license key for all of our programs.
  • donate

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Messages - dementedmuppet [ switch to compact view ]

Pages: [1]
Living Room / Re: I'm getting married, wish me luck!
« on: November 05, 2019, 04:18 PM »
My gosh if I knew how many old timers this thread would lure out of the woodwork I would have gotten married long ago  :P :-*

I'd love to hear what you folks have been up to in your life..  Share some of your life story with us!

Very belated congrats on wedding + 1st anniversary.

Does this mean some neural networked code kittens will appear on the site? 

As for sharing life story... just trying to find the right hat to take over the world

Hi, all

SharePoint 2007 provides canned site usage reports.  I need to be able to dig in to the actual data.  There are detailed activity logs for the SharePoint site.  However, they are not in a user friendly format.  The data is encoded or refers to system tables. 

There are programs that allow an admin to view the actual log.  These pull 'friendly' versions (ex:  user names rather than a user key that ties to a system table).  Micro$oft has apps that expose the friendly version of the logs.  These (obviously) are insanely expensive and not an option for me.

Does anyone know of a free or low cost application that allows a site admin to view the SharePoint activity logs in a 'friendly' format?


I am not surprised.  I have always been suspicious of Mouser.  :P

Welcome back!  Yes something is definitely missing when you are not around

Calvin and Hobbes has got to be the best comic in the universe! Too bad it's so expensive.

When I was young, I had a few people tell me that I reminded them of Calvin.

I forbid my son to read the comic because he was too much like Calvin.  The ban didn't work because he was still Calvin, right down to playing Calvin ball.  When he was 9, he got ahold of a copy of a C&H book from my brother.  His only comment was, "You're right!  Calvin is me!"  Unfortunately, it is so.  However, I don't think I'd like him so much if he was one of those sycophant goodie-goodie kids.

In a couple of years, when it is safe, I might get the set.  He will be too old to use most of the material at that point.

Nice of you to ask   :)

I got the reports formatted and sent.

My code needs some work so future reports aren't so much hassle. 

Tinjaw's code really helped in getting me on the right track.  Just a few quirks to sort out to fully automate it.

I also have to take out the wacky bits like scrolling & resizing the window.  My boss & coworkers get all impressed by the errors because it makes it LOOK like the code is doing something.  But eventually I have to turn it over to I.T. for them to add to their processing schedule. They won't be impressed by wacko irrelevant lines.

Concise answer:  problem solved.  Thanks!!

Post New Requests Here / Hopeless
« on: February 14, 2008, 03:02 PM »
Tinjaw's code works well.  I was supposed to have the reports done two days ago.  My macros were buggy.  Scoured VB help & killed a few trees printing some VB help (hopefully, this addiction to paper will pass).

Yesterday, Excel was getting hung up on converting cells.  Driving home, I realized the problem was likely that I left "#VALUE!" errors in the range I told Excel to convert to numbers.  Brilliant  :Thmbsup:

After six hours of trying to fix the macros, I clicked the little "!" help icon that was beside the data that needed modified.  One option was "help with this error."  The solution was "multiply by 1".  That WOULD explain why there are no VB methods to fix the issue.

See?  Hopeless  ::)

' PDE_RSPNS2 Macro
' Macro recorded 2/11/2008 by muppet
' Keyboard Shortcut: Ctrl+Shift+I
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;W:\Output\30923\Encounter_Data\Archive\PDE Convert to Excel\target.txt", _
        .Name = "target"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 5, 2, 5, 5, 2, 9, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
        2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 9, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 9, 1)
        .TextFileFixedColumnWidths = Array(3, 7, 40, 20, 20, 8, 1, 8, 8, 9, 2, 19, 2, 15, 2, 1, 1, 1 _
        , 10, 3, 2, 15, 1, 1, 1, 1, 1, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 109, 3, 2, 15, 5, 5, 20, 2, 3, 3, 3, 3, 3, 3, _
        3, 3, 3, 3, 15)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
        ActiveWindow.ScrollRow = 1
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Sub convertToCurrency()
' convertToCurrency Macro
' Macro recorded 2/13/2008 by muppet
' Keyboard Shortcut: Ctrl+Shift+C
'Add currency conversion formula to cells in temporary columns
    ActiveCell.FormulaR1C1 = "=format_currency2(RC[-30])"
    ActiveCell.FormulaR1C1 = "=format_currency2(RC[-30])"
    ActiveCell.FormulaR1C1 = "=format_currency2(RC[-30])"
    ActiveCell.FormulaR1C1 = "=format_currency2(RC[-30])"
    ActiveCell.FormulaR1C1 = "=format_currency2(RC[-30])"
    ActiveCell.FormulaR1C1 = "=format_currency2(RC[-30])"
    ActiveCell.FormulaR1C1 = "=format_currency2(RC[-30])"
    ActiveCell.FormulaR1C1 = "=format_currency2(RC[-30])"
    ActiveCell.FormulaR1C1 = "=format_currency2(RC[-30])"
    ActiveCell.FormulaR1C1 = "=format_currency2(RC[-30])"
    ActiveCell.FormulaR1C1 = "=format_currency2(RC[-30])"
    ActiveCell.FormulaR1C1 = "=format_currency2(RC[-30])"
    ActiveCell.FormulaR1C1 = "=format_currency2(RC[-30])"

'Copy formulas down columns to format all temporary currency cells
    Application.CutCopyMode = False

    Application.CutCopyMode = False

    Application.CutCopyMode = False

    Application.CutCopyMode = False

    Application.CutCopyMode = False

    Application.CutCopyMode = False

    Application.CutCopyMode = False

    Application.CutCopyMode = False

    Application.CutCopyMode = False

    Application.CutCopyMode = False

    Application.CutCopyMode = False

    Application.CutCopyMode = False

    Application.CutCopyMode = False

'Copy format_currency VALUES to new columns, convert to NUMBER, format as CURRENCY
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.WindowState = xlNormal
    Application.WindowState = xlNormal
    Application.WindowState = xlNormal
    Application.WindowState = xlMaximized
    Application.WindowState = xlNormal
    ActiveWindow.LargeScroll Down:=8
    Selection.NumberFormat = "$#,##0.00_);($#,##0.00)"
'Hide columns that contained non-currency data partially processed data
    Selection.EntireColumn.Hidden = True
    ActiveWindow.SmallScroll ToRight:=15
    Selection.EntireColumn.Hidden = True
End Sub
'This code block was provided by Chaim Krause
Function format_currency2(ByVal money As String) As String
    'convert from internal format to currency
Select Case Right(money, 1)
        'positive numbers
        Case "{"
            money = Left(money, Len(money) - 1) & "0"
        Case "A"
            money = Left(money, Len(money) - 1) & "1"
        Case "B"
            money = Left(money, Len(money) - 1) & "2"
        Case "C"
            money = Left(money, Len(money) - 1) & "3"
        Case "D"
            money = Left(money, Len(money) - 1) & "4"
        Case "E"
            money = Left(money, Len(money) - 1) & "5"
        Case "F"
            money = Left(money, Len(money) - 1) & "6"
        Case "G"
            money = Left(money, Len(money) - 1) & "7"
        Case "H"
            money = Left(money, Len(money) - 1) & "8"
        Case "I"
            money = Left(money, Len(money) - 1) & "9"
        'negative numbers
        Case "}"
            money = "-" + Left(money, Len(money) - 1) & "0"
        Case "J"
            money = "-" + Left(money, Len(money) - 1) & "1"
        Case "K"
            money = "-" + Left(money, Len(money) - 1) & "2"
        Case "L"
            money = "-" + Left(money, Len(money) - 1) & "3"
        Case "M"
            money = "-" + Left(money, Len(money) - 1) & "4"
        Case "N"
            money = "-" + Left(money, Len(money) - 1) & "5"
        Case "O"
            money = "-" + Left(money, Len(money) - 1) & "6"
        Case "P"
            money = "-" + Left(money, Len(money) - 1) & "7"
        Case "Q"
            money = "-" + Left(money, Len(money) - 1) & "8"
        Case "R"
            money = "-" + Left(money, Len(money) - 1) & "9"
      End Select
      format_currency2 = money * 0.01
End Function

The macro comments included my name (now removed).  Why don't I add my social security number, passwords, etc...   Genius, I tell ya.  GENIUS!

It works.  If my child did not already have a cool name, he woud be "chaim"

VBA maro would be ideal

Either to convert the values while keeping them in the Excel cells they currently occupy, or create a new tab that has the converted values.

The sample code is VBA used to create "COBOL" values.  Theoretically, I could edit & rearrange it to reverse the process.  My failure to understand the code makes that difficult.

Any reference sites you've found helpful?

Yes, it is logical and convenient for transmissions but I need to figure out precisely what the standard is so I can write the code to convert it back to currency.

COBOL 'making sense' is why it doesn't die.  From accounting/finance perspective, COBOL is beautiful.  It is the backbone of financial systems since it is the best tool for the job.  Just today, while I'm frustrated, "tool" takes on a different meaning.

It seems to be a COBOL standard but I haven't determined which standard
(How many standards did they need?? Ugh!)

0000568G = $56.87
0001651L = -$165.13

What is the likelihood that any of these will help?

The numbers start in a flat file (.txt) for EDI.  They are fixed width (not comma delimited)

I use a macro to format the data into columns for a more meaningful Excel spreadsheet with column headings.

Just knowing wtf type of system this is would help me with the conversion to currency.  Obviously it isn't hex :P 

While the sample code works to convert from currency to the (wtf) string, it isn't helful converting from (wtf) string to currency. 


Any hints?

The data is received in a funky format because negative values are not allowed.  The numbers are converted as:

On a positive number:                                On a negative number:

{ = 0                                                         } = 0
A = 1                                                         J = 1
B = 2                                                         K = 2
C = 3                                                         L = 3 
D = 4                                                        M = 4
E = 5                                                         N = 5
F = 6                                                         O = 6
G = 7                                                         P = 7
H = 8                                                         Q = 8
I = 9                                                          R = 9


0000568G = $56.87
0001651L = -$165.13

I need to convert the wacky 0000568G types to currency types.  Anyone got code for this? 

I have sample code that does the opposite but reversing code I barely understand is a waste of time if someone already has code to do what I need:

Function format_currency1(ByVal money As String, ByVal width As Integer) As String

   'convert to internal format for currency


   Dim positive As Boolean

   Dim decmoney As Currency


   'need to convert to decimal to format number

   decmoney = money


   'set switch for positive/negative value

   If decmoney >= 0 Then

      positive = True


      positive = False

   End If


   'ensure there are no negative numbers

   decmoney = Math.Abs(decmoney)


   'format number to ensure the 2 right characters are the cents and convert back to string

   If Left(Right(decmoney, 3), 1) = "." Then

      money = decmoney


      money = decmoney & ".00"

   End If


   'omit decimal point

   money = Left(money, Len(money) - 3) & Right(money, 2)


   If positive = True Then

      'positive currency amount

      Select Case Right(money, 1)

        Case 0

            money = Left(money, Len(money) - 1) & "{"

        Case 1

            money = Left(money, Len(money) - 1) & "A"

        Case 2

            money = Left(money, Len(money) - 1) & "B"

        Case 3

            money = Left(money, Len(money) - 1) & "C"

        Case 4

            money = Left(money, Len(money) - 1) & "D"

        Case 5

            money = Left(money, Len(money) - 1) & "E"

        Case 6

            money = Left(money, Len(money) - 1) & "F"

        Case 7

            money = Left(money, Len(money) - 1) & "G"

        Case 8

            money = Left(money, Len(money) - 1) & "H"

        Case 9

            money = Left(money, Len(money) - 1) & "I"

      End Select


      'negative currency amount

      Select Case Right(money, 1)

        Case 0

            money = Left(money, Len(money) - 1) & "}"

        Case 1

            money = Left(money, Len(money) - 1) & "J"

        Case 2

            money = Left(money, Len(money) - 1) & "K"

        Case 3

            money = Left(money, Len(money) - 1) & "L"

        Case 4

            money = Left(money, Len(money) - 1) & "M"

        Case 5

            money = Left(money, Len(money) - 1) & "N"

        Case 6

            money = Left(money, Len(money) - 1) & "O"

        Case 7

            money = Left(money, Len(money) - 1) & "P"

        Case 8

            money = Left(money, Len(money) - 1) & "Q"

        Case 9

            money = Left(money, Len(money) - 1) & "R"

      End Select

   End If


   'pad left with leading zeros to meet field width requirements

   While Len(money) < width

      money = "0" & money



   format_currency1 = money


End Function

Hoping for help

edit by jgpaiva: added spoiler/code tag

The macro works great & you rock  :-*

The obvious:  Working with any Microsoft product SUCKS

... but I have no choice because it is for work and my employer chose MS

The problem:  It is a waste of time to set the column widths every time I have to convert the flat files to Excel since there are 76 columns and the width is the same every time.

Question:  How do I create a template??

The files are .txt
I know the column width
I can manually set the column widths while converting from .txt to .xls
Can't I create a template to do this?

I keep searching Google and Microsoft but not finding any 'useful' answers

Is there a better place to search????  Or does someone actually know how to do this???

General Software Discussion / PDF to CSV
« on: January 14, 2008, 10:38 AM »
This task is driving me mad

Here is the problem:

Preprinted surveys are sent.  Respondents check boxes on the surveys.  The surveys will be scanned.  The responses need to be captured in a spreadsheet or database.

Obviously, a Scantron would work better.  However, I'm stuck working with these checkbox pages and can't find an effective solution to capturing the responses.

Can anyone recommend software or a process for doing this?

N.A.N.Y. 2008 / Re: The N.A.N.Y. Programming Challenge for 2008
« on: December 09, 2007, 09:16 PM »
The N.A.N.Y. Programming Challenge for 2008

What you get:
  • A rare DC mug commemorative of the event (or any other object if you already have a mug)
  • Fame and fortune (disclaimer: you will get neither of these)

Maybe not a fortune, but when I was interviewing for a better job, the employers were impressed that I participated in NANY last year.  It is a great opportunity for new coders. 

While the more experienced coders made far better apps than I did, it was helpful for me to be able to say, 'I did this.'

AND I got the fabulous mug!!

Quick answers aren't a necessity.  It will be several months before the site needs to be operational since the last fair took place in April.

I've had some experience and prefer not to write in pure html.  We attempted SOAP in a class last semester but it was running Windows so it didn't turn out well.  It seems as though it would initially be a hassle, but would be easier to maintain in the future.  (Obviously, not on a Windows server, but Linux is an option)

Since we never got it working, I was hoping for input on other's experiences with SOAP, SQL, and the other web technologies.

The design tools for VB.Net are easy to use, but since the site has already had problems with that platform, it may not be a good idea for a site that won't have continuity of administration.

One of my professors helps with the state technology competition for students from elementary through high school.  The registration site for the schools, projects, and sponsors needs work. 

I've never done a website but want to tackle it and was hoping for input regarding which technologies are best suited to the purpose. 

The continuity of administration is a challenge.  It will likely be a different individual every year.  The last individual to attempt to update the site was hampered by incompatibility issues between versions of VB. I searched on the forum but I didn't find a thread that seemed to address web development best practices. 

I thought SQL and SOAP look promising and hoped for feedback.

 There didn't seem to be definitive information on Google and the feedback from the NANY project was great so I thought DC forum would be a good place to post

Current site

All of the responses are appreciated.  I would really like for the app to have the best freeware security programs.  Everything currently in it is from the website you can access from the last button on the app.  The site belongs to a friend of mine who provides technical and security support to his clients in Southern Ohio.  Since most people don't take the time to help those who lack security knowledge, I've found it was easiest to refer people to his site when they asked for help.

Continued input is certainly welcome since the program will be updated periodically to provide the best free security information available.

I've asked my friend to review your comments and I hope he will provide further input.  It would be nice if more people were like him and benevolently spent the time to provide the type of information available on his site. 

Thanks, tinjaw.  Snapfiles gives Comodo a good rating.

Ruffnekk:  I completely agree with you.  This is not even close to what I intended to do for the app.  The problem is that Java browser launch is not covered in any of the textbooks I have and I am having a difficult time getting it to work.  The only browser launch code that I can get working limits the format to this panel.  Toggling through screens was my first choice of format.  Combo box was second.  Every time I try another layout, the launch stops working.  I'll be spending more quality time with Google. 

Don't worry about hurting my feelings with criticism.   :D

Java is like MS Access... easy to use but inflexible.  The only answer I can find to modifying the icon is 'just like you can't put your own icon on a word document, you can't put your own icon on a jar.'  It is beginning to seem that writing the whole thing in binary would be easier than fighting with Java.

FreePcSecurity - v1.00.01 - December 14, 2006

  • First release
  • Based on a friend's website
  • When I send people with questions to his site, they are too lazy to read it
  • Hoping a GUI will get a better response
  • Since it is basic security information, people silly enough to run JRE are a good target audience
  • ALL suggestions are welcome!  I'd really like to replace ZoneAlarm with a free firewall that isn't evil so I am hoping for suggestions on that
  • I'm still researching how to add the icon to the jar  :-\ 

Each button either starts the download for a free security application or else it takes them to a site to get the app.
The last button takes them to a page with explanations and other security information.


App coerced me into this.  But I will try it  :-\
Just blame her if the result is Frankenstein

Pages: [1]