Welcome to the Lounge

class User {
    [OverrideMethodBind(Method = "Add")]
    [OverrideParameterBind(Type = typeof(Address))]
    List<Address> addresses;
    [DataBind]
    string firstName;
    [DataBind(ID = "LN")]
    string lastName;
}
class Address {
    [DataBind(ID = "street")]
    string streetAddress;
    string city;
    [DataBind]
    StateAbbrev state;
    int zipCode;
}
enum StateAbbrev {
    AL,
    WA,
    MI,
    //etc....
}

MatchCollection results = regex.Matches(/* some input*/);
User u = new User(results["firstName"], results["LN"]);
//this also only deals with a single address
Address a = new Address(results["street"], results["state"]);
u.addresses.Add(a);

ObjectGenerator g = new ObjectGenerator<User>().AddParser(regex);
//or
ObjectGenerator g = new ObjectGenerator(typeof(User)).AddParser(regex);

User user = g.GenerateObject(/* some input*/);
//or
User[] users = g.GenerateObjects(/* some input*/);

honey the codewitch wrote:

The upshot of doing that would be to get your parsed stuff directly into your final objects.

1. Make it work (check - Slang generator)
2. Automate it (check - Parsley generator)
3. Profile... profile... and profile again. Only then can you make intelligent decisions about what to improve.

Daniel Pfeffer wrote:

Smaller and faster code is obviously better

if ({ ExpressionParser.add, ExpressionParser.sub, ..., ExpressionParser.charType }.Contains(context.SymbolId))

ExpressionParser[] ep = { ExpressionParser.add, ExpressionParser.sub, /* ..., */ ExpressionParser.charType };
if (ep.Contains(context.SymbolId)) { }

if (new [] { ExpressionParser.add, ExpressionParser.sub, /* ..., */ ExpressionParser.charType }.Contains(context.SymbolId)) { }

• Windows 10 for $20? - YouTube[^]

Option Explicit  

 

Dim objshell,path,DigitalID, Result  

Set objshell = CreateObject("WScript.Shell") 

'Set registry key path 

Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 

'Registry key value 

DigitalID = objshell.RegRead(Path & "DigitalProductId") 

Dim ProductName,ProductID,ProductKey,ProductData 

'Get ProductName, ProductID, ProductKey 

ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName") 

ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID") 

ProductKey = "Installed Key: " & ConvertToKey(DigitalID)  

ProductData = ProductName  & vbNewLine & ProductID  & vbNewLine & ProductKey 

'Show messbox and save to a file  

If vbYes = MsgBox(ProductData  & vblf & vblf, vbOK + vbInformation, "BackUp Windows Key Information") then 

   Save ProductData  

Else

Save ProductData

End If 

 

 'Convert binary to chars 

Function ConvertToKey(Key) 

    Const KeyOffset = 52 

    Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert 

    'Check if OS is Windows 8 

    isWin8 = (Key(66) \ 6) And 1 

    Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4) 

    i = 24 

    Maps = "BCDFGHJKMPQRTVWXY2346789" 

    Do 

           Current= 0 

        j = 14 

        Do 

           Current = Current* 256 

           Current = Key(j + KeyOffset) + Current 

           Key(j + KeyOffset) = (Current \ 24) 

           Current=Current Mod 24 

            j = j -1 

        Loop While j >= 0 

        i = i -1 

        KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput 

        Last = Current 

    Loop While i >= 0  

     

    If (isWin8 = 1) Then 

        keypart1 = Mid(KeyOutput, 2, Last) 

        insert = "N" 

        KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) 

        If Last = 0 Then KeyOutput = insert & KeyOutput 

    End If     

     

 

    ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5) 

    

     

End Function 

'Save data to a file 

Function Save(Data) 

    Dim fso, fName, txt,objshell,UserName 

    Set objshell = CreateObject("wscript.shell") 

    'Get current user name  

    UserName = objshell.ExpandEnvironmentStrings("%UserName%")  

    'Create a text file on desktop  

    fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt" 

    Set fso = CreateObject("Scripting.FileSystemObject") 

    Set txt = fso.CreateTextFile(fName) 

    txt.Writeline Data 

    txt.Close 

 

End Function

Johnny J. wrote:

A one-way trip to Q&A?