Jump to content
Sign in to follow this  
atnextc

Help Trying To Parse and Update Html Page

Recommended Posts

atnextc

I have a project that I am working on in which I am trying to do the following:

1. Open project page "in background"

2. Read values to see if criteria is there

3. Set values above as variable to be written to file

4. Be able to update one or several of those values in the background as well and save the page "mediawiki" in the background un-noticeable to the user.

 

I do not code written for this part yet as I am confused on where to start. I've read about "reg ex" "_IEgetsource" and all the parsing html posts on the forums, I just don't understand it.

I will post below the html code in question and the values that I am trying to retrieve. Right now I have another script that the user has to manually look at this page and copy and paste these values into my script to auto generate the file.  I thought well thats stupid it's already there there has to be a way to be able to just read it from the webpage automatically, this would prevent user error in typo'ing something.

The Values I'm interested in are as follows:

This is viewed as a table in IE with one side being A. and the other side being Z.  Everything under #1 needs to be viewed as a value for "Z" side as well.  Any help would be greatly appreciated.

1. Circuit ID

2.A-Location

3. Z-Location

4. A-Side Next Step

5. A-Side Assigned Eng

6. A-Side Router

7. A-Side Interface

8. A-Side IP Address

9. Location

10. FPC (HW ID #1)

11. PIC (HW ID #2)

12. Optics (HW ID #3)

13. TAM

14 .TOM

15. Bypass A Port

16. Install ECM

17. Install Date

18. testing IP Address

19. Traffic Add ECM

20. Traffic Add Date:

21. Shipment #1 Tracking Number

22. Shipment #2 Tracking Number

23. Shipment #3 Tracking Number

24. Facility Inbound Shipment Ticket

 

 

HTML Source Below

<tr>
<td align="center" bgcolor="#e7eef6" colspan="2"> <big><b>Next Step (Overall Status)</b>: Assessment</big>
</td></tr>
<tr>
<td align="center" bgcolor="#e7eef6" colspan="2"> <b>Target Completion Date</b>:
</td></tr>
<tr>
<td align="center" bgcolor="#e7eef6" colspan="2"> <b>Project Overview</b>:
</td></tr>
<tr>
<td align="center" bgcolor="#e7eef6" colspan="2"> <b>Project Notes</b>:{{{ProjectNotes}}}
</td></tr>
 
<tr>
<td align="center" bgcolor="#f4a460" colspan="2"> <big><b>Technical Information</b></big>
</td></tr>
<tr>
<td align="left" bgcolor="#F5FAFF"> <b>Priority</b>: 88%
</td><td align="left" bgcolor="#F5FAFF"> <b>Requires New Fate Sharing:</b>
</td></tr>
<tr>
<td align="left" bgcolor="#F5FAFF"> <b>Project Open Date</b>: 2013-Q2
</td><td align="left" bgcolor="#F5FAFF"> <b>Opened in Response to Failure</b>: N/A
</td></tr>
<tr>
<td align="left" bgcolor="#F5FAFF"> <b>Type of Project</b>:
</td><td align="left" bgcolor="#F5FAFF"> <b>Link To Cariden Plan</b>: {{{LinkToCaridenPlan}}}
</td></tr>
<tr>
<td align="left" bgcolor="#F5FAFF"> <b>Circuit ID</b>: 13013.GE10.KSCYMOAVJAW.OKCYOKEZJBW
</td><td>
</td></tr>
<tr>
<th align="center" bgcolor="#99ccff" width="50%"> <big><b>A-Location</b>: KSCYBBRJ01</big>
</th><th align="center" bgcolor="#fffccf" width="50%"> <big><b>Z-Location</b>: MTC3BBRJ02</big>
</th></tr>
<tr>
<th align="center" bgcolor="#e7eef6" width="50%"> <small><b>Backbone</b></small>
</th><th align="center" bgcolor="#e7eef6" width="50%"> <small><b>Backbone</b></small>
</th></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>A-Side Next Step</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Z-Side Next Step</b>: Assessment
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>A-Side Assigned Eng</b>: TCovert
</td><td align="left" bgcolor="#fffccf"> <b>Z-Side Assigned Eng</b>: Roger
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Router</b>: KSCYBBRJ01
</td><td align="left" bgcolor="#fffccf"> <b>Router</b>: MTC3BBRJ02
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Interface</b>: xe-3/0/8
</td><td align="left" bgcolor="#fffccf"> <b>Interface</b>: xe-3/1/4
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>OSPF Metric</b>:
</td><td align="left" bgcolor="#fffccf"> <b>OSPF Metric</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>IP Address</b>: 68.1.1.192
</td><td align="left" bgcolor="#fffccf"> <b>IP Address</b>: 68.1.1.193
</td></tr>
<tr>
<th align="center" bgcolor="#e7eef6" width="50%"> <small><b>Transport</b></small>
</th><th align="center" bgcolor="#e7eef6" width="50%"> <small><b>Transport</b></small>
</th></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Location</b>: KSCY-15-A-1-1-5
</td><td align="left" bgcolor="#fffccf"> <b>Location</b>: OKC-15-A-5-2-1
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Budget/Project Code</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Budget/Project Code</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Transport Notes</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Transport Notes</b>:
</td></tr>
 
<tr>
<td align="center" bgcolor="#f4a460" colspan="2"><big><b>Hardware Requirements</b></big>
</td></tr>
<tr>
<th align="center" bgcolor="#99ccff" width="50%"> <big><b>A-Location</b>: KSCYBBRJ01</big>
</th><th align="center" bgcolor="#fffccf" width="50%"> <big><b>Z-Location</b>: MTC3BBRJ02</big>
</th></tr>
<tr>
<th align="center" bgcolor="#e7eef6" width="50%"> <small><b>Backbone</b></small>
</th><th align="center" bgcolor="#e7eef6" width="50%"> <small><b>Backbone</b></small>
</th></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>POC</b>:
</td><td align="left" bgcolor="#fffccf"> <b>POC</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Chassis Type</b>: T1600
</td><td align="left" bgcolor="#fffccf"> <b>Chassis Type</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>FPC (HW ID #1)</b>:
</td><td align="left" bgcolor="#fffccf"> <b>FPC (HW ID #1)</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>FPC Serial Number</b>:
</td><td align="left" bgcolor="#fffccf"> <b>FPC Serial Number</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>PIC (HW ID #2)</b>:
</td><td align="left" bgcolor="#fffccf"> <b>PIC (HW ID #2)</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>PIC Serial Number</b>:
</td><td align="left" bgcolor="#fffccf"> <b>PIC Serial Number</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Optics (HW ID #3)</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Optics (HW ID #3)</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Optics Serial Number</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Optics Serial Number</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Connector</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Connector</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Fiber Jumper (HW ID #4)</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Fiber Jumper (HW ID #4)</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Additional Hardware</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Additional Hardware</b>:
</td></tr>
<tr>
<th align="center" bgcolor="#e7eef6" width="50%"> <small><b>Transport</b></small>
</th><th align="center" width="50%"> <small><b>Transport</b></small>
</th></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>TAM</b>:NONE
</td><td align="left" bgcolor="#fffccf"> <b>TAM</b>:TIM
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>TOM</b>:NONE
</td><td align="left" bgcolor="#fffccf"> <b>TOM</b>:SFP
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Transport Serial Numbers</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Transport Serial Numbers</b>:
</td></tr>
 
<tr>
<td align="center" bgcolor="#f4a460" colspan="2"><big><b>Network Intelligence</b></big>
</td></tr>
<tr>
<td align="center" bgcolor="#e7eef6" colspan="2"> <b>Bypass Name</b>:
</td></tr>
<tr>
<td align="center" bgcolor="#e7eef6" colspan="2"> <b>Bypass IP</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Bypass A Port</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Bypass Z Port</b>:
</td></tr>
 
<tr>
<td align="center" bgcolor="#e7eef6" colspan="2"> <b>DPI Name</b>:
</td></tr>
<tr>
<td align="center" bgcolor="#e7eef6" colspan="2"> <b>DPI IP</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>DPI A Port</b>:
</td><td align="left" bgcolor="#fffccf"> <b>DPI Z Port</b>:
</td></tr>
 
<tr>
<td align="center" bgcolor="#f4a460" colspan="2"> <big><b>Maintenance Information</b></big>
</td></tr>
<tr>
<th align="center" bgcolor="#99ccff" width="50%"> <big><b>A-Location</b>: KSCYBBRJ01</big>
</th><th align="center" bgcolor="#fffccf" width="50%"> <big><b>Z-Location</b>: MTC3BBRJ02</big>
</th></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Install ECM</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Install ECM</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Install Date</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Install Date</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Testing IP Address</b>:INSERT_TEST_IP_HERE
</td><td align="left" bgcolor="#fffccf"> <b>Testing IP Address</b>:INSERT_TEST_IP_HERE
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Traffic Add ECM</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Traffic Add ECM</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Traffic Add Date</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Traffic Add Date</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Peering Maintenance Ticket</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Peering Maintenance Ticket</b>:
</td></tr>
 
<tr>
<td align="center" bgcolor="#f4a460" colspan="2"> <big><b>Shipping Information</b></big>
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Shipment #1 Tracking Number</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Shipment #1 Tracking Number</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Shipment #2 Tracking Number</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Shipment #2 Tracking Number</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Shipment #3 Tracking Number</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Shipment #3 Tracking Number</b>:
</td></tr>
<tr>
<td align="left" bgcolor="#99ccff"> <b>Facility Inbound Shipment Ticket</b>:
</td><td align="left" bgcolor="#fffccf"> <b>Facility Inbound Shipment Ticket</b>:
</td></tr></table>
</div>
<div style="clear:both;"></div></div>

Auto-It Code For Parsing Here here:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 507, 338, 575, 483)
$CoxLabel = GUICtrlCreateLabel("Email Notification ", 176, 8, 262, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$C4CoreProjectTypeRadio = GUICtrlCreateRadio("C4 Core Link", 30, 118, 105, 17)
$RdcProjectTypeRadio = GUICtrlCreateRadio("RDC Interconnect", 30, 94, 105, 17)
$TypeofProjectLabel = GUICtrlCreateLabel("Please Choose The Type Of Project This Is", 22, 70, 249, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$SystemProjectTypeRadio = GUICtrlCreateRadio("System Connection", 30, 142, 113, 17)
$ProjectNameLabel = GUICtrlCreateLabel("Please Input Your Project Name", 22, 174, 185, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ProjectNameInputBox = GUICtrlCreateInput("", 30, 206, 193, 21)
$NumberOfProjectsLabel = GUICtrlCreateLabel("Please Input The Number Of Projects You Have Of This Kind", 14, 238, 349, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$NumberOfProjectsInput = GUICtrlCreateInput("", 38, 262, 193, 21)
$SubmitButton = GUICtrlCreateButton("Submit", 398, 286, 89, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

The idea being that a tech would enter a project name IE: CHGO-KSCY-01A-Q2-2013, and the number of projects IE4 and select the type of project and hit submit.

When that happens it would take the value of project name and add it to the end of a URL and grab all the data above and depending on which type of project that would be given a different email to be sent out.  I have all that code written already. Just need to grab all the data rather than manually enter it.

 

Auto-It Code for Updater Here:


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 504, 550, 856, 161)
$CoxLabel = GUICtrlCreateLabel("Wiki Updater", 176, 8, 188, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$TypeofProjectLabel = GUICtrlCreateLabel("", 22, 70, 4, 4)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$NumberOfProjectsLabel = GUICtrlCreateLabel("Please Input The Number Of Projects You Have Of This Kind", 14, 206, 349, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$NumberOfProjectsInput = GUICtrlCreateInput("", 38, 230, 145, 21)
$SubmitButton = GUICtrlCreateButton("Submit", 398, 286, 89, 33)
$Label1 = GUICtrlCreateLabel("Which Side Of The Project Do You Have?", 24, 152, 243, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Aside = GUICtrlCreateRadio("A Side", 24, 176, 49, 17)
$Zside = GUICtrlCreateRadio("Z Side", 104, 176, 49, 17)
$ProjectNameInputBox = GUICtrlCreateInput("", 42, 112, 145, 21)
$ProjectNameLabel = GUICtrlCreateLabel("Please Input Your Project Name", 26, 80, 185, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Input Information To Update", 31, 266, 164, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateInput("Project Engineer", 40, 296, 145, 21)
GUICtrlCreateInput("Project Status", 42, 327, 145, 21)
GUICtrlCreateInput("Install ECM", 44, 355, 145, 21)
GUICtrlCreateInput("Install Date", 43, 386, 145, 21)
GUICtrlCreateInput("Traffic Add ECM", 40, 418, 145, 21)
GUICtrlSetTip(-1, "Project Engineer")
GUICtrlCreateInput("Traffic Add Date", 40, 450, 145, 21)
GUICtrlCreateInput("Shipping #1", 42, 481, 145, 21)
GUICtrlCreateInput("Shipping #2", 40, 512, 145, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
Edited by atnextc

Share this post


Link to post
Share on other sites
PhoenixXL

I'm assuming that the file having the all the HTML you posted is in File.txt in the script dir

Thereafter have a look

#include <Array.au3>

$HTML = FileRead("file.txt")

;Strip all tags
$HTML = StringRegExpReplace($HTML, "<[^<>]+>", "")
MsgBox(0, "Test", "Stripped " & @extended & " tags.")

;Strip blank lines and not required spaces
$HTML = StringRegExpReplace($HTML, "(?m)(^\s+)", "")

ConsoleWrite($HTML & @CRLF)

Local Const $aRequiredTags[25] = [ _
        "Circuit ID", _
        "A-Location", _
        "Z-Location", _
        "A-Side Next Step", _
        "A-Side Assigned Eng", _
        "A-Side Router", _
        "A-Side Interface", _
        "A-Side IP Address", _
        "Location", _
        "FPC (HW ID #1)", _
        "PIC (HW ID #2)", _
        "Optics (HW ID #3)", _
        "TAM", _
        "TOM", _
        "Bypass A Port", _
        "Install ECM", _
        "Install Date", _
        "testing IP Address", _
        "Traffic Add ECM", _
        "Traffic Add Date:", _
        "Shipment #1 Tracking Number", _
        "Shipment #2 Tracking Number", _
        "Shipment #3 Tracking Number", _
        "Facility Inbound Shipment Ticket"]

;The Pattern assumes that every <td> tag is opened in a new line.

For $i = 0 To 24
    $aTemp = StringRegExp($HTML, "(?i)\Q" & $aRequiredTags[$i] & ":\E(.*)", 3)
    _ArrayDisplay($aTemp, $aRequiredTags[$i])
Next

Ask if you encounter any problems

Thumbs up if it helped

Regards :)

Edited by PhoenixXL

My code:

PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.

Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners.

MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. 

Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression.

Share this post


Link to post
Share on other sites
atnextc

I tried the code that you have posted above, it pulled the data needed, but it also pulled multiple other items that are in the html page as well.  It also show'd everything in a different "popup" window rather than 1 window with just the data requested above.  

I'm trying to grab just the information from the "variables" above and have the data after say "circuit id" be a variable to be used further on in the code to be put into an email.

I'm trying to automate the code below basically:

;Everything is working fine.
;RDC Maintenance Email Notification Form
;5/15/13
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIComboBox.au3>
#include <WinAPI.au3>
#include <Array.au3>


$RdcProjectTypeFrm = GUICreate("Maintenance Email Notification",1215, 674, 185, 119)
$CoxLabel = GUICtrlCreateLabel("Maintenance Email Notification ", 248, 8, 780, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$ProjectSiteLabel = GUICtrlCreateLabel("Choose Your Project Site Location", 24, 256, 241, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ProjectNameLabel = GUICtrlCreateLabel("Input Your Project Name", 24, 192, 200, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$TypeofProjectLabel = GUICtrlCreateLabel("Choose The Type Of Project This Is", 24, 72, 249, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$NumberOfProjectsLabel = GUICtrlCreateLabel("Input The Number Of Projects You Have Of This Kind", 24, 320, 349, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_HIDE)
GUIStartGroup()
$RdcProjectTypeRadio = GUICtrlCreateRadio("RDC Interconnect", 40, 104, 105, 17)
$C4CoreProjectTypeRadio = GUICtrlCreateRadio("C4 Core Link", 40, 128, 105, 17)
$SystemProjectTypeRadio = GUICtrlCreateRadio("System Connection", 40, 152, 113, 17)
GUIStartGroup()
$ProjectNameInputBox = GUICtrlCreateInput("", 48, 216, 193, 21,$ES_UPPERCASE)
Global $ProjectSiteCombo = GUICtrlCreateCombo("", 48, 280, 193, 25,BitOR($CBS_DROPDOWNLIST, $CBS_SORT))
Global $RDCNumberOfProjectsInput = GUICtrlCreateInput("", 48, 344, 193, 21)
$RDCNumberOfProjectsRead = GUICtrlRead ($RDCNumberOfProjectsInput)
Global $ProjectNameRead = GUICtrlRead ($ProjectNameInputBox)
Global $RDCProjectSiteRead = GUICtrlRead ($ProjectSiteCombo)
GUICtrlSetState(-1, $GUI_HIDE)
Global $I = 0

Local $RDCRouterNameCombo
Local $RDCInterfaceTypeCombo
Local $RDCRouterInterfacePortInput
Local $RDCOtherRouterNameCombo
Local $RDCOtherRouterInterfaceTypeCombo
Local $RDCOtherRouterInterfacePortInput
Local $RDCYesInstallFPCRadio
Local $RDCNoInstallFPCRadio
Local $RDCFPCInstallLocationInput
Local $RDCYesInstallPicRadio
Local $RDCNoInstallPICRadio
Local $RDCPicInstallLocationInput
Local $RDCYesInstallOpticRadio
Local $RDCNoInstallOpticRadio
Local $RDCOpticInstallLocationInput
Local $RDCNextProjectButton
Local $RDCClearButton
Local $RDCSubmitButton
Local $RDCRouterSideLabel
Local $RDCInterfaceTypeLabel
Local $RDCRouterInterfacePortLabel
Local $RDCRouterNameOtherSideLabel
Local $RDCOtherRouterInterfacePortLabel
Local $RDCOtherRouterInterfaceTypeLabel
Local $RDCInstallHardwareLabel
Local $RDCFPCInstallLabel
Local $RDCInstallPICLabel
Local $RDCPICInstallLabel
Local $RDCInstallOpticLabel
Local $RDCInputOpticLocationLabel
Local $RDCASideFPCInstallInput
Local $RDCZSideFPCInstallInput
Local $RDCBothRouterFPCInstall
Local $RDCASideFPCInstall
Local $RDCZSideFPCInstall
Local $RDCFPCSideALabel
Local $RDCASideFPCInstallInput
Local $RDCZSideFPCInstallInput
Local $RDCSideZFPCInstallLabel
Local $RDCASidePicInstall
Local $RDCZSidePicInstall
Local $RDCChooseRouterPicInstallLabel
Local $RDCBothRouterPicInstall
Local $RDCInstallPICSIdeALabel
Local $RDCASidePicInput
Local $RDCInstallPICSIdeZLabel
Local $RDCZSidePicInput
Local $RDCOpticsInstallLabel
Local $RDCASideOpticsInstall
Local $RDCZSideOpticsInstall
Local $RDCBothRoutersOpticsInstall
Local $RDCInstallOpticsSIdeALabel
Local $RDCASideOpticsInstallInput
Local $RDCInstallOpticsSideZLabel
Local $RDCZSideOpticsInstallInput
Local $ASideFPCInstallInput
Local $ZSideFPCInstallInput
Local $SystemoProjectTypeFrm
Global $EmailEdit, $EmailForm, $CopyButton
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $RdcProjectTypeRadio

GUICtrlSetState($RDCNumberOfProjectsInput, $GUI_SHOW)
GUICtrlSetState($NumberOfProjectsLabel, $GUI_SHOW)


$RDCRouterNameCombo = GUICtrlCreateCombo("", 48, 408, 193, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
$RDCInterfaceTypeCombo = GUICtrlCreateCombo("", 48, 472, 57,25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
$RDCRouterInterfacePortInput = GUICtrlCreateInput("", 120, 472, 89, 21)
$RDCOtherRouterNameCombo = GUICtrlCreateCombo("", 48, 536, 193, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
$RDCOtherRouterInterfaceTypeCombo = GUICtrlCreateCombo("", 40, 600, 57, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
$RDCOtherRouterInterfacePortInput = GUICtrlCreateInput("", 120, 600, 89, 21)
GUICtrlSetData($RDCInterfaceTypeCombo, "et|ge|xe", "Choose Interface Type")
GUICtrlSetData($RDCOtherRouterInterfaceTypeCombo, "et|ge|xe", "Choose Interface Type")


GUIStartGroup()
$RDCYesInstallFPCRadio = GUICtrlCreateRadio("Yes", 512, 104, 41, 17)
$RDCNoInstallFPCRadio = GUICtrlCreateRadio("No", 576, 104, 41, 17)
GUICtrlSetState($RDCNoInstallFPCRadio,$GUI_CHECKED)
GUIStartGroup()
$RDCFPCInstallLabel = GUICtrlCreateLabel("Choose Where You Need An FPC Installed", 480, 144, 245, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUIStartGroup()
$RDCASideFPCInstall = GUICtrlCreateRadio("A Side", 504, 176, 57, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$RDCBothRouterFPCInstall = GUICtrlCreateRadio("Both Routers", 640, 176, 81, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$RDCZSideFPCInstall = GUICtrlCreateRadio("Z Side", 576, 176, 57, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUIStartGroup()
$RDCASideFPCInstallInput = GUICtrlCreateInput("", 496, 248, 193, 21)
GUICtrlSetState(-1, $GUI_HIDE)
$RDCZSideFPCInstallInput = GUICtrlCreateInput("", 496, 320, 193, 21)
GUICtrlSetState(-1, $GUI_HIDE)
GUIStartGroup()
$RDCYesInstallPicRadio = GUICtrlCreateRadio("Yes", 512, 376, 41, 17)

$RDCNoInstallPICRadio = GUICtrlCreateRadio("No", 576, 376, 41, 17)
GUICtrlSetState($RDCNoInstallPICRadio,$GUI_CHECKED)

GUIStartGroup()
$RDCFPCSideALabel = GUICtrlCreateLabel("Input Which Slot You Need The FPC Installed (A Side)", 456, 216, 313, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUIStartGroup()
$RDCYesInstallOpticRadio = GUICtrlCreateRadio("Yes", 912, 104, 41, 17)

$RDCNoInstallOpticRadio = GUICtrlCreateRadio("No", 976, 104, 41, 17)
GUICtrlSetState($RDCNoInstallopticRadio,$GUI_CHECKED)

GUIStartGroup()
$RDCNextProjectButton = GUICtrlCreateButton("Next Project", 984, 352, 99, 33)
GUICtrlSetState(-1, $GUI_HIDE)
$RDCClearButton = GUICtrlCreateButton("Clear", 928, 392, 89, 33)
$RDCSubmitButton = GUICtrlCreateButton("Submit", 1040, 392, 89, 33)
GUICtrlSetState(-1, $GUI_HIDE)
$RDCRouterSideLabel = GUICtrlCreateLabel(" Choose The Router For A-Side", 24, 384, 223, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCRouterInterfacePortLabel = GUICtrlCreateLabel("Choose Interface Type and Input Port Number For A-Side", 24, 448, 328, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCRouterNameOtherSideLabel = GUICtrlCreateLabel("Choose The Router For Z-Side Router", 24, 512, 261, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCOtherRouterInterfacePortLabel = GUICtrlCreateLabel("Choose Interface Type and Input Port Number For Z-Side", 24, 568, 328, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCInstallHardwareLabel = GUICtrlCreateLabel("Choose If You Need To Install An FPC", 480, 72, 221, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCInstallPICLabel = GUICtrlCreateLabel("Choose If You Need To Install A PIC", 480, 352, 211, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCInstallOpticLabel = GUICtrlCreateLabel("Choose If You Need To Install An Optic", 880, 72, 228, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCSideZFPCInstallLabel = GUICtrlCreateLabel("Input Which Slot You Need The FPC Installed (Z Side)", 456, 288, 313, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCChooseRouterPicInstallLabel = GUICtrlCreateLabel("Choose Where You Need A PIC Installed", 480, 408, 235, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUIStartGroup()
$RDCASidePicInstall = GUICtrlCreateRadio("A Side", 496, 432, 57, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$RDCZSidePicInstall = GUICtrlCreateRadio("Z Side", 568, 432, 57, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$RDCBothRouterPicInstall = GUICtrlCreateRadio("Both Routers", 632, 432, 81, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUIStartGroup()
$RDCInstallPICSIdeALabel = GUICtrlCreateLabel("Input Which Slot You Need The PIC Installed (A Side)", 456, 464, 310, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCASidePicInput = GUICtrlCreateInput("", 496, 496, 193, 21)
GUICtrlSetState(-1, $GUI_HIDE)
$RDCInstallPICSIdeZLabel = GUICtrlCreateLabel("Input Which Slot You Need The PIC Installed (Z Side)", 456, 528, 310, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCZSidePicInput = GUICtrlCreateInput("", 496, 552, 193, 21)
GUICtrlSetState(-1, $GUI_HIDE)
$RDCOpticsInstallLabel = GUICtrlCreateLabel("Choose Where You Need Optics Installed", 880, 144, 239, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUIStartGroup()
$RDCZSideOpticsInstall = GUICtrlCreateRadio("Z Side", 976, 176, 57, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$RDCASideOpticsInstall = GUICtrlCreateRadio("A Side", 904, 176, 57, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$RDCBothRoutersOpticsInstall = GUICtrlCreateRadio("Both Routers", 1040, 176, 81, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUIStartGroup()
$RDCInstallOpticsSIdeALabel = GUICtrlCreateLabel("Input Which Port You Need The Optics Installed (A Side)", 864, 216, 327, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCASideOpticsInstallInput = GUICtrlCreateInput("", 912, 248, 193, 21)
GUICtrlSetState(-1, $GUI_HIDE)
$RDCInstallOpticsSideZLabel = GUICtrlCreateLabel("Input Which Port You Need The Optics Installed (Z Side)", 864, 288, 327, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCZSideOpticsInstallInput = GUICtrlCreateInput("", 911, 313, 193, 21)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetData($ProjectSiteCombo, "Duke|Baton Rouge|Hampton Roads|Kansas|Las Vegas (Northwest)|New Orleans|NOVA|OKC|Omaha|Orange County|Phoenix (Chandler)|Rhode Island|San Diego (Federal)|El Cajon (San Diego)|McDowell (Phoenix)|Las Vegas (Southeast)|Virginia Beach (Hampton Roads)|Cleveland|Gainesville|Macon|Pensacola|Roanoke|Tulsa|Deer Valley|Ashburn|Los Angeles|Marietta|New York|Palo Alto", "Choose A Site") ; add other item snd set a new default
GUICtrlSetData($RDCRouterNameCombo, "ASHBBBRJ01|ASHBBBRJ02|ASHBBPRJ01|ASHBBPRJ02|BTNRBBRJ01|BTNRBBRJ02|BTNRDSRJ01|BTNRDSRJ02|CHGOBPRJ01|CHGOBPRJ02|CHNDBBRJ01|CHNDDSRJ01|CLVDHDRJ01|CLVDHDRJ02|DALSBBRJ01|DALSBBRJ02|DALSBPRJ01|DALSBPRJ02|DUKEBBRJ01|DUKEBBRJ02|DUKEDSRJ01|DUKEDSRJ02|DVTCHDRJ01|DVTCHDRJ02|ELCNBBRJ01|ELCNDSRJ01|ELMWBBRJ01|ELMWBBRJ02|ELMWDSRJ01|ELMWDSRJ02|FED1BBRJ01|FED1DSRJ01|GAINHDRJ01|GAINHDRJ02|KSCYBBRJ01|KSCYBBRJ02|KSCYDSRJ01|KSCYDSRJ02|LANGBBRJ01|LANGBBRJ02|LANGBPRJ01|LANGBPRJ02|MACNHDRJ01|MACNHDRJ02|MARIBPRJ01|MCDLBBRJ01|MCDLDSRJ01|MRFDBBRJ01|MRFDBBRJ02|MRFDDSRJ01|MRFDDSRJ02|MTC1BBRJ01|MTC1BBRJ02|MTC1DSRJ01|MTC1DSRJ02|MTC3BBRJ01|MTC3BBRJ02|MTC3DSRJ01|MTC3DSRJ02|NRFKBBRJ01|NRFKDSRJ01|NYRKBBRJ01|NYRKBBRJ02|NYRKBPRJ01|NYRKBPRJ02|NWSTBBRJ01|NWSTDSRJ01|PALTBPRJ01|PALTBPRJ02|PNSCHDRJ01|PNSCHDRJ02|PROVBBRJ01|PROVBBRJ02|PROVDSRJ01|PROVDSRJ02|RSMTBBRJ01|RSMTBBRJ02|RSMTDSRJ01|RSMTDSRJ02|RNKEHDRJ01|RNKEHDRJ02|SANJBBRJ01|SANJBBRJ02|SESTBBRJ01|SESTDSRJ01|SNTBHDRJ01|SNTBHDRJ02|TULSHDRJ01|TULSHDRJ02|VBCHBBRJ01|VBCHDSRJ01", "")
GUICtrlSetData($RDCOtherRouterNameCombo, "ASHBBBRJ01|ASHBBBRJ02|ASHBBPRJ01|ASHBBPRJ02|BTNRBBRJ01|BTNRBBRJ02|BTNRDSRJ01|BTNRDSRJ02|CHGOBPRJ01|CHGOBPRJ02|CHNDBBRJ01|CHNDDSRJ01|CLVDHDRJ01|CLVDHDRJ02|DALSBBRJ01|DALSBBRJ02|DALSBPRJ01|DALSBPRJ02|DUKEBBRJ01|DUKEBBRJ02|DUKEDSRJ01|DUKEDSRJ02|DVTCHDRJ01|DVTCHDRJ02|ELCNBBRJ01|ELCNDSRJ01|ELMWBBRJ01|ELMWBBRJ02|ELMWDSRJ01|ELMWDSRJ02|FED1BBRJ01|FED1DSRJ01|GAINHDRJ01|GAINHDRJ02|KSCYBBRJ01|KSCYBBRJ02|KSCYDSRJ01|KSCYDSRJ02|LANGBBRJ01|LANGBBRJ02|LANGBPRJ01|LANGBPRJ02|MACNHDRJ01|MACNHDRJ02|MARIBPRJ01|MCDLBBRJ01|MCDLDSRJ01|MRFDBBRJ01|MRFDBBRJ02|MRFDDSRJ01|MRFDDSRJ02|MTC1BBRJ01|MTC1BBRJ02|MTC1DSRJ01|MTC1DSRJ02|MTC3BBRJ01|MTC3BBRJ02|MTC3DSRJ01|MTC3DSRJ02|NRFKBBRJ01|NRFKDSRJ01|NYRKBBRJ01|NYRKBBRJ02|NYRKBPRJ01|NYRKBPRJ02|NWSTBBRJ01|NWSTDSRJ01|PALTBPRJ01|PALTBPRJ02|PNSCHDRJ01|PNSCHDRJ02|PROVBBRJ01|PROVBBRJ02|PROVDSRJ01|PROVDSRJ02|RSMTBBRJ01|RSMTBBRJ02|RSMTDSRJ01|RSMTDSRJ02|RNKEHDRJ01|RNKEHDRJ02|SANJBBRJ01|SANJBBRJ02|SESTBBRJ01|SESTDSRJ01|SNTBHDRJ01|SNTBHDRJ02|TULSHDRJ01|TULSHDRJ02|VBCHBBRJ01|VBCHDSRJ01", "")


Case $RDCNumberOfProjectsInput
If  guictrlread ($RDCNumberOfProjectsInput) > 1 Then;;;;;;;;;;;;;;;;;;;;   IF THE NUMBER OF PROJECTS IS MORE THAN 1 THEN WE ARE CHANGING THE VALUE OF THE SUBMIT BUTTON TO "NEXT PROJECT"
        GUICtrlSetData ($RDCSubmitButton, "Next Project")
        GUICtrlSetState($RDCSubmitButton, $GUI_SHOW)
        GUICtrlSetState($RDCClearButton, $GUI_SHOW)
    EndIf
If  guictrlread ($RDCNumberOfProjectsInput) = 1 Then;;;;;;;;;;;;;;;;;;;;   IF THE NUMBER OF PROJECTS IS 1 THEN WE ARE CHANGING THE VALUE OF THE SUBMIT BUTTON TO "DONE"
        GUICtrlSetData ($RDCSubmitButton, "Done")
        GUICtrlSetState($RDCSubmitButton, $GUI_SHOW)
        GUICtrlSetState($RDCClearButton, $GUI_SHOW)

    EndIf
Case $ProjectSiteCombo
If GUICtrlRead($ProjectSiteCombo) = "Duke" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "DUKEBBRJ01|DUKEBBRJ02|DUKEDSRJ01|DUKEDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "DUKEBBRJ01|DUKEBBRJ02|DUKEDSRJ01|DUKEDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Baton Rouge" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "BTNRBBRJ01|BTNRBBRJ02|BTNRDSRJ01|BTNRDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "BTNRBBRJ01|BTNRBBRJ02|BTNRDSRJ01|BTNRDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Kansas" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "KSCYBBRJ01|KSCYBBRJ02|KSCYDSRJ01|KSCYDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "KSCYBBRJ01|KSCYBBRJ02|KSCYDSRJ01|KSCYDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Las Vegas (Northwest)" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "NWSTBBRJ01|NWSTDSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "NWSTBBRJ01|NWSTDSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "New Orleans" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "ELMWBBRJ01|ELMWBBRJ02|ELMWDSRJ01|ELMWDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "ELMWBBRJ01|ELMWBBRJ02|ELMWDSRJ01|ELMWDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "NOVA" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "MRFDBBRJ01|MRFDBBRJ02|MRFDDSRJ01|MRFDDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "MRFDBBRJ01|MRFDBBRJ02|MRFDDSRJ01|MRFDDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "OKC" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "MTC3BBRJ01|MTC3BBRJ02|MTC3DSRJ01|MTC3DSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "MTC3BBRJ01|MTC3BBRJ02|MTC3DSRJ01|MTC3DSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Omaha" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "MTC1BBRJ01|MTC1BBRJ02|MTC1DSRJ01|MTC1DSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "MTC1BBRJ01|MTC1BBRJ02|MTC1DSRJ01|MTC1DSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Orange County" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "RSMTBBRJ01|RSMTBBRJ02|RSMTDSRJ01|RSMTDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "RSMTBBRJ01|RSMTBBRJ02|RSMTDSRJ01|RSMTDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Phoenix (Chandler)" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "CHNDBBRJ01|CHNDDSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "CHNDBBRJ01|CHNDDSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Rhode Island" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "PROVBBRJ01|PROVBBRJ02|PROVDSRJ01|PROVDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "PROVBBRJ01|PROVBBRJ02|PROVDSRJ01|PROVDSRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "San Diego (Federal)" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "FED1BBRJ01|FED1DSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "FED1BBRJ01|FED1DSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "El Cajon (San Diego)" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "ELCNBBRJ01|ELCNDSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "ELCNBBRJ01|ELCNDSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "McDowell (Phoenix)" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "MCDLBBRJ01|MCLDDSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "MCDLBBRJ01|MCLDDSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Las Vegas (Southeast)" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "SESTBBRJ01|SESTDSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "SESTBBRJ01|SESTDSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Virginia Beach (Hampton Roads)" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "VBCHBBRJ01|VBCHDSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "VBCHBBRJ01|VBCHDSRJ01", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Cleveland" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "CLVDHDRJ01|CLVDHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "CLVDHDRJ01|CLVDHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Gainesville" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "GAINHDRJ01|GAINHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "GAINHDRJ01|GAINHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Macon" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "MACNHDRJ01|MACNHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "MACNHDRJ01|MACNHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Pensacola" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "PNSCHDRJ01|PNSCHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "PNSCHDRJ01|PNSCHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Roanoke" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "RNKEHDRJ01|RNKEHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "RNKEHDRJ01|RNKEHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Tulsa" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "TULSHDRJ01|TULSHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "TULSHDRJ01|TULSHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Deer Valley" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "DVTCHDRJ01|DVTCHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "DVTCHDRJ01|DVTCHDRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Ashburn" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "ASHBBBRJ01|ASHBBBRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "ASHBBBRJ01|ASHBBBRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Dallas" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "DALSBBRJ01|DALSBBRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "DALSBBRJ01|DALSBBRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Los Angeles" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "LANGBBRJ01|LANGBBRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "LANGBBRJ01|LANGBBRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "New York" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "NYRKBBRJ01|NYRKBBRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "NYRKBBRJ01|NYRKBBRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

ElseIf GUICtrlRead($ProjectSiteCombo) = "Palo Alto" Then
_GUICtrlComboBox_ResetContent($RDCRouterNameCombo)
GUICtrlSetData($RDCRouterNameCombo, "SANJBBRJ01|SANJBBRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCRouterNameCombo, 0)
_GUICtrlComboBox_ResetContent($RDCOtherRouterNameCombo)
GUICtrlSetData($RDCOtherRouterNameCombo, "SANJBBRJ01|SANJBBRJ02", "")
_GUICtrlComboBox_SetCurSel($RDCOtherRouterNameCombo, 0)

EndIf
Case $RDCNoInstallFPCRadio
GUICtrlSetState($RDCASideFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRouterFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCFPCInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCFPCSideALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCSideZFPCInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstallInput, $GUI_HIDE)
GUICtrlSetData($RDCASideFPCInstallInput, "")
guictrlsetdata($RDCZSideFPCInstallInput, "")
Case $RDCYesInstallFPCRadio
GUICtrlSetState($RDCASideFPCInstall, $GUI_SHOW)
GUICtrlSetState($RDCZSideFPCInstall, $GUI_SHOW)
GUICtrlSetState($RDCBothRouterFPCInstall, $GUI_SHOW)
GUICtrlSetState($RDCFPCInstallLabel, $GUI_SHOW)
Case $RDCASideFPCInstall
GUICtrlSetState($RDCSideZFPCInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCFPCSideALabel, $GUI_SHOW)
GUICtrlSetState($RDCASideFPCInstallInput, $GUI_SHOW)
Case $RDCZSideFPCInstall
GUICtrlSetState($RDCFPCSideALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCSideZFPCInstallLabel, $GUI_SHOW)
GUICtrlSetState($RDCZSideFPCInstallInput, $GUI_SHOW)
Case $RDCBothRouterFPCInstall
GUICtrlSetState($RDCFPCSideALabel, $GUI_SHOW)
GUICtrlSetState($RDCASideFPCInstallInput, $GUI_SHOW)
GUICtrlSetState($RDCSideZFPCInstallLabel, $GUI_SHOW)
GUICtrlSetState($RDCZSideFPCInstallInput, $GUI_SHOW)

Case $RDCNoInstallOpticRadio
GUICtrlSetState($RDCOpticsInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRoutersOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSideZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstallInput, $GUI_HIDE)
guictrlsetdata($RDCZSideOpticsInstallInput, "")
guictrlsetdata($RDCASideOpticsInstallInput, "")
Case $RDCYesInstallOpticRadio
GUICtrlSetState($RDCOpticsInstallLabel, $GUI_SHOW)
GUICtrlSetState($RDCASideOpticsInstall, $GUI_SHOW)
GUICtrlSetState($RDCZSideOpticsInstall, $GUI_SHOW)
GUICtrlSetState($RDCBothRoutersOpticsInstall, $GUI_SHOW)

Case $RDCASideOpticsInstall
GUICtrlSetState($RDCInstallOpticsSIdeALabel, $GUI_SHOW)
GUICtrlSetState($RDCASideOpticsInstallInput, $GUI_SHOW)
GUICtrlSetState($RDCInstallOpticsSideZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstallInput, $GUI_HIDE)

Case $RDCZSideOpticsInstall
GUICtrlSetState($RDCInstallOpticsSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSideZLabel, $GUI_SHOW)
GUICtrlSetState($RDCZSideOpticsInstallInput, $GUI_SHOW)

Case $RDCBothRoutersOpticsInstall
GUICtrlSetState($RDCInstallOpticsSIdeALabel, $GUI_SHOW)
GUICtrlSetState($RDCASideOpticsInstallInput, $GUI_SHOW)
GUICtrlSetState($RDCInstallOpticsSideZLabel, $GUI_SHOW)
GUICtrlSetState($RDCZSideOpticsInstallInput, $GUI_SHOW)
Case $RDCNoInstallPICRadio
GUICtrlSetState($RDCChooseRouterPicInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASidePicInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSidePicInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRouterPicInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASidePicInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICSIdeZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSidePicInput, $GUI_HIDE)
guictrlsetdata($RDCASidePicInput, "")
guictrlsetdata($RDCZSidePicInput, "")
Case $RDCYesInstallPICRadio
GUICtrlSetState($RDCChooseRouterPicInstallLabel, $GUI_SHOW)
GUICtrlSetState($RDCASidePicInstall, $GUI_SHOW)
GUICtrlSetState($RDCZSidePicInstall, $GUI_SHOW)
GUICtrlSetState($RDCBothRouterPicInstall, $GUI_SHOW)
Case $RDCASidePicInstall
GUICtrlSetState($RDCInstallPICSIdeALabel, $GUI_SHOW)
GUICtrlSetState($RDCASidePicInput, $GUI_SHOW)
GUICtrlSetState($RDCInstallPICSIdeZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSidePicInput, $GUI_HIDE)
Case $RDCZSidePicInstall
GUICtrlSetState($RDCInstallPICSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASidePicInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICSIdeZLabel, $GUI_SHOW)
GUICtrlSetState($RDCZSidePicInput, $GUI_SHOW)
Case $RDCBothRouterPicInstall
GUICtrlSetState($RDCInstallPICSIdeZLabel, $GUI_SHOW)
GUICtrlSetState($RDCZSidePicInput, $GUI_SHOW)
GUICtrlSetState($RDCInstallPICSIdeALabel, $GUI_SHOW)
GUICtrlSetState($RDCASidePicInput, $GUI_SHOW)
Case $RDCSubmitButton

$RDCProjectSiteRead = GUICtrlRead ($ProjectSiteCombo)
$RDCInterfaceTypeRead = GUICtrlRead ($RDCInterfaceTypeCombo)
$RDCInterfacePortRead = GUICtrlRead ($RDCRouterInterfacePortInput)
$RDCOtherRouterRead = GUICtrlRead ($RDCOtherRouterNameCombo)
$RDCRouterNameRead = GUICtrlRead ($RDCRouterNameCombo)
$RDCOtherInterfaceTypeRead = GUICtrlRead ($RDCOtherRouterInterfaceTypeCombo)
$RDCOtherInterfacePortRead = GUICtrlRead ($RDCOtherRouterInterfacePortInput)
$ASideFPCInstallRead = GUICtrlRead ($ASideFPCInstallInput)
$ZSideFPCInstallRead = GUICtrlRead ($ZSideFPCInstallInput)
$ASidePICInstallRead = GUICtrlRead ($RDCASidePicInput)
$ZSidePICInstallRead = GUICtrlRead ($RDCZSidePicInput)
$ASideOpticInstallRead = GUICtrlRead ($RDCASideOpticsInstallInput)
$ZSideOpticInstallRead = GUICtrlRead ($RDCZSideOpticsInstallInput)
$RDCProjectNameRead = GUICtrlRead ($ProjectNameInputBox)
$RDCASideFPCInstallRead = GUICtrlRead ($RDCASideFPCInstall)
$RDCYesInstallFPCRadioRead = GUICtrlRead ($RDCYesInstallFPCRadio)
$RDCZSideFPCInstallRead = GUICtrlRead ($RDCZSideFPCInstall)
$RDCASideFPCInstallInputRead = GUICtrlRead ($RDCASideFPCInstallInput)
$RDCZSideFPCInstallInputRead = GUICtrlRead ($RDCZSideFPCInstallInput)
$RDCBothRouterFPCInstallRead = GUICtrlRead ($RDCBothRouterFPCInstall)
$CapacityInput = ($RDCNumberOfProjectsRead * 10)
$RDCNumberOfProjectsRead = GUICtrlRead ($RDCNumberOfProjectsInput)



IF (guictrlread ($RDCNumberOfProjectsInput) = 1 AND ($I) = 0) Then;;;;THIS WILL CHECK TO SEE THE NUMBER OF PROJECTS IS MORE THAN 1 BUT THAT $1 IS ZERO SO THAT WE CAN GRAB THE FIRST PART OF THE EMAIL.
;MsgBox(0,"Variable Checker", "The number of $I is " & $I)

guictrlsetstate($RDCRouterInterfacePortInput,$gui_focus)

$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile,GUICtrlRead ($ProjectSiteCombo))
FileWrite($rdcfile, ",")
FileWrite($rdcfile,@CRLF & @CRLF)
FileWrite($rdcfile,"We recently have launched the below C4 projects for your system. We need on site assistance to perform the maintenance. let us know who the Point of Contact for this activity will be so we can ship the hardware and plan the maintenance. " & @CRLF & @CRLF & @CRLF & @CRLF & "Details for Capacity Projects:")
FileWrite($rdcfile,@CRLF & @CRLF& @CRLF)

FileWrite($rdcfile,"Project:")
FileWrite($rdcfile,$RDCProjectNameRead)
FileWrite($rdcfile,@CRLF & @CRLF& @CRLF)
FileWrite($rdcfile,"These projects are to add an additional ")
FileWrite($rdcfile, GUICtrlRead ($RDCNumberOfProjectsInput) * 10)
FileWrite($rdcfile, "GB of capacity between ")
FileWrite($rdcfile, $RDCRouterNameRead)
FileWrite($rdcfile, " and ")
FileWrite($rdcfile, $RDCOtherRouterRead)
FileWrite($rdcfile, ".")
FileWrite($rdcfile,@CRLF & @CRLF)
FileWrite($rdcfile, $RDCRouterNameRead)
FileWrite($rdcfile, ": Connect fiber into ")
FileWrite($rdcfile, $RDCInterfaceTypeRead)
FileWrite($rdcfile, "-")
FileWrite($rdcfile, $RDCInterfacePortRead)
FileWrite($rdcfile, @CRLF)
FileWrite($rdcfile, $RDCOtherRouterRead)
FileWrite($rdcfile, ": Connect fiber into ")
FileWrite($rdcfile, $RDCOtherInterfaceTypeRead)
FileWrite($rdcfile, "-")
FileWrite($rdcfile, $RDCOtherInterfacePortRead)
FileWrite($rdcfile, @CRLF & @CRLF)
FileClose($rdcfile)
If not  GUICtrlRead ($RDCASideFPCInstallInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile,$RDCRouterNameRead)
FileWrite($rdcfile,": Install FPC into slot ")
FileWrite($rdcfile,$RDCASideFPCInstallInputRead)
FileWrite($rdcfile, @CRLF & @CRLF)
FileClose($rdcfile)
EndIf
If not  GUICtrlRead ($RDCZSideFPCInstallInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile,$RDCOtherRouterRead)
FileWrite($rdcfile,": Install FPC into slot ")
FileWrite($rdcfile,$RDCZSideFPCInstallInputRead)
FileWrite($rdcfile, @CRLF & @CRLF)
FileClose($rdcfile)
EndIf
if not guictrlread ($RDCASidePicInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile, $RDCRouterNameRead)
FileWrite($rdcfile,": Install PIC into slot ")
FileWrite($rdcfile,$ASidePICInstallRead)
FileWrite($rdcfile, @CRLF)
FileClose($rdcfile)
EndIf
if not guictrlread ($RDCZSidePicInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile, $RDCOtherRouterRead)
FileWrite($rdcfile,": Install PIC into slot ")
FileWrite($rdcfile,$ZSidePICInstallRead)
FileWrite($rdcfile, @CRLF & @CRLF)
FileClose($rdcfile)
EndIf
if not guictrlread ($RDCASideOpticsInstallInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile, $RDCRouterNameRead)
FileWrite($rdcfile,": Install optic into slot ")
FileWrite($rdcfile,$ASideOpticInstallRead)
FileWrite($rdcfile, @CRLF)
FileClose($rdcfile)
EndIf
if not guictrlread ($RDCZSideOpticsInstallInput)= "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile,$RDCOtherRouterRead)
FileWrite($rdcfile,": Install optic into slot ")
FileWrite($rdcfile,$ZSideOpticInstallRead)
FileWrite($rdcfile, @CRLF)
FileClose($rdcfile)
EndIf
if guictrlread ($ZSidePICInstallRead) = 18 Then
GUICtrlSetData ($ZSidePICInstallRead, ""    )
EndIf
If guictrlread($ProjectNameInputBox) = '' then
                MsgBox(0,"Error",'Project name required')
                guictrlsetstate($ProjectNameInputBox,$gui_focus)
                continueloop
            endif
if guictrlread($ProjectSiteCombo) = '' Then
                MsgBox(0,"Error",'Project site required')
                guictrlsetstate($ProjectSiteCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCNumberOfProjectsInput) = '' then
                MsgBox(0,"Error", 'Number of projects required')
                guictrlsetstate($RDCNumberOfProjectsInput,$gui_focus)
                continueloop
            endif


If not stringisdigit(guictrlread($RDCNumberOfProjectsInput)) then
                MsgBox(0,"Error",'Number of projects must be numeric')
                guictrlsetstate($RDCNumberOfProjectsInput,$gui_focus)
                continueloop
            endif

If guictrlread($RDCRouterNameCombo) = '' then
                MsgBox(0,"Error",'A side router required')
                guictrlsetstate($RDCRouterNameCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCInterfaceTypeCombo) = '' then
                MsgBox(0,"Error",'A side interface type required')
                guictrlsetstate($RDCInterfaceTypeCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCRouterInterfacePortInput) = '' then
                MsgBox(0,"Error",'A side interface port required')
                guictrlsetstate($RDCRouterInterfacePortInput,$gui_focus)
                continueloop
                endif

If guictrlread($RDCOtherRouterNameCombo) = '' then
                MsgBox(0,"Error",'Z side router required')
                guictrlsetstate($RDCOtherRouterNameCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCOtherRouterInterfaceTypeCombo) = '' then
                MsgBox(0,"Error",'Z side interface type required')
                guictrlsetstate($RDCOtherRouterInterfaceTypeCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCOtherRouterInterfacePortInput) = '' then
                MsgBox(0,"Error",'Z side interface port required')
                guictrlsetstate($RDCOtherRouterInterfacePortInput,$gui_focus)
                continueloop
            endif


GUICtrlSetData($RDCOtherRouterInterfacePortInput,"")
GUICtrlSetData($RDCRouterInterfacePortInput,"")
guictrlsetdata ($ASideFPCInstallInput,"")
guictrlsetdata ($ZSideFPCInstallInput,"")
guictrlsetdata ($RDCASideOpticsInstallInput,"")
guictrlsetdata ($RDCASidePicInput,"")
guictrlsetdata ($RDCZSidePicInput,"")
guictrlsetdata ($RDCZSideFPCInstallInput, "")
guictrlsetdata ($RDCASideFPCInstallInput, "")
GUICtrlSetState($RDCASideFPCInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCZSideFPCInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCASideOpticsInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCZSideOpticsInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCASidePicInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCZSidePicInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCBothRouterFPCInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCBothRouterPicInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCBothRoutersOpticsInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCYesInstallFPCRadio,$GUI_UNCHECKED)
GUICtrlSetState($RDCYesInstallPicRadio,$GUI_UNCHECKED)
GUICtrlSetState($RDCYesInstallOpticRadio,$GUI_UNCHECKED)
GUICtrlSetState($RDCASideFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRouterFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCFPCInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCFPCSideALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCSideZFPCInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCOpticsInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRoutersOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSideZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCOpticsInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRoutersOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSideZLabel, $GUI_HIDE)
GUICtrlSetState($RDCChooseRouterPicInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASidePicInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSidePicInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRouterPicInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASidePicInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICSIdeZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSidePicInput, $GUI_HIDE)
GUICtrlSetState($RDCNoInstallFPCRadio,$GUI_CHECKED)
GUICtrlSetState($RDCNoInstallPICRadio,$GUI_CHECKED)
GUICtrlSetState($RDCNoInstallopticRadio,$GUI_CHECKED)
guictrlsetdata ($RDCZSideOpticsInstallInput,"")
MSGBOX(0,"Finished", "You have entered all the information needed.  Your email is being generated to be viewed before sending.");;;MSGBOX TO LET USER KNOW THEY ARE DONE AND THE EMAIL IS BEING GENERATED.
;Exit
ClipPut($rdcfile = FileOpen("rdc.txt",1))
$EmailForm = GUICreate("Maintenance Email Notification", 831, 518, -1435, 222)
$CoxLabel = GUICtrlCreateLabel("Maintenance Email Notification ", 25, 22, 780, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$EmailEdit = GUICtrlCreateEdit("", 32, 72, 761, 401,BitOr($ES_MULTILINE, $WS_VSCROLL))
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetData(-1, "")
$CopyButton = GUICtrlCreateButton("Copy To Clipboard", 680, 480, 99, 25)
local $test= Fileread("rdc.txt")
ClipPut($test)
FileClose($rdcfile)
FileDelete("rdc.txt")
GUICtrlSetData($EmailEdit, ClipGet())
GUICtrlSetState($EmailEdit, $GUI_SHOW)
GUISetState(@SW_SHOW)

EndIf

IF (guictrlread ($RDCNumberOfProjectsInput) > 1 AND ($I) >= 0) Then;;;;THIS WILL CHECK TO SEE THE NUMBER OF PROJECTS IS MORE THAN 1 BUT THAT $1 IS ZERO SO THAT WE CAN GRAB THE FIRST PART OF THE EMAIL.
IF (guictrlread ($RDCNumberOfProjectsInput) > 1 AND ($I) = 0) Then;;;;THIS WILL CHECK TO SEE THE NUMBER OF PROJECTS IS MORE THAN 1 BUT THAT $1 IS ZERO SO THAT WE CAN GRAB THE FIRST PART OF THE EMAIL.
;MsgBox(0,"Variable Checker", "The number of $I is " & $I)
                local $aprojincr = stringregexp(guictrlread($ProjectNameInputBox),"(?<=-\d{2})([A-Z])(?=-Q)",3)
                local $incr_char = chr(asc($aprojincr[0])+1)
                guictrlsetdata($ProjectNameInputBox,StringRegExpReplace(guictrlread($ProjectNameInputBox), _
                "(?<=-\d{2})([A-Z])(?=-Q)", $incr_char))
guictrlsetstate($RDCRouterInterfacePortInput,$gui_focus)

$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile,GUICtrlRead ($ProjectSiteCombo))
FileWrite($rdcfile, ",")
FileWrite($rdcfile,@CRLF & @CRLF)
FileWrite($rdcfile,"We recently have launched the below C4 projects for your system. We need on site assistance to perform the maintenance. let us know who the Point of Contact for this activity will be so we can ship the hardware and plan the maintenance. " & @CRLF & @CRLF & @CRLF & @CRLF & "Details for Capacity Projects:")
FileWrite($rdcfile,@CRLF & @CRLF& @CRLF)
FileWrite($rdcfile,"Project:")
FileWrite($rdcfile,$RDCProjectNameRead)
FileWrite($rdcfile,@CRLF & @CRLF& @CRLF)
FileWrite($rdcfile,"These projects are to add an additional ")
FileWrite($rdcfile, GUICtrlRead ($RDCNumberOfProjectsInput) * 10)
FileWrite($rdcfile, "GB of capacity between ")
FileWrite($rdcfile, $RDCRouterNameRead)
FileWrite($rdcfile, " and ")
FileWrite($rdcfile, $RDCOtherRouterRead)
FileWrite($rdcfile, ".")
FileWrite($rdcfile,@CRLF & @CRLF)
FileWrite($rdcfile, $RDCRouterNameRead)
FileWrite($rdcfile, ": Connect fiber into ")
FileWrite($rdcfile, $RDCInterfaceTypeRead)
FileWrite($rdcfile, "-")
FileWrite($rdcfile, $RDCInterfacePortRead)
FileWrite($rdcfile, @CRLF)
FileWrite($rdcfile, $RDCOtherRouterRead)
FileWrite($rdcfile, ": Connect fiber into ")
FileWrite($rdcfile, $RDCOtherInterfaceTypeRead)
FileWrite($rdcfile, "-")
FileWrite($rdcfile, $RDCOtherInterfacePortRead)
FileWrite($rdcfile, @CRLF & @CRLF)
FileClose($rdcfile)
If not  GUICtrlRead ($RDCASideFPCInstallInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile,$RDCRouterNameRead)
FileWrite($rdcfile,": Install FPC into slot ")
FileWrite($rdcfile,$RDCASideFPCInstallInputRead)
FileWrite($rdcfile, @CRLF)
FileClose($rdcfile)
EndIf
If not  GUICtrlRead ($RDCZSideFPCInstallInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile,$RDCOtherRouterRead)
FileWrite($rdcfile,": Install FPC into slot ")
FileWrite($rdcfile,$RDCZSideFPCInstallInputRead)
FileWrite($rdcfile, @CRLF & @CRLF)
FileClose($rdcfile)
EndIf
if not guictrlread ($RDCASidePicInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile, $RDCRouterNameRead)
FileWrite($rdcfile,": Install PIC into slot ")
FileWrite($rdcfile,$ASidePICInstallRead)
FileWrite($rdcfile, @CRLF)
FileClose($rdcfile)
EndIf
if not guictrlread ($RDCZSidePicInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile, $RDCOtherRouterRead)
FileWrite($rdcfile,": Install PIC into slot ")
FileWrite($rdcfile,$ZSidePICInstallRead)
FileWrite($rdcfile, @CRLF & @CRLF)
FileClose($rdcfile)
EndIf
if not guictrlread ($RDCASideOpticsInstallInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile, $RDCRouterNameRead)
FileWrite($rdcfile,": Install optic into slot ")
FileWrite($rdcfile,$ASideOpticInstallRead)
FileWrite($rdcfile, @CRLF)
FileClose($rdcfile)
EndIf
if not guictrlread ($RDCZSideOpticsInstallInput)= "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile,$RDCOtherRouterRead)
FileWrite($rdcfile,": Install optic into slot ")
FileWrite($rdcfile,$ZSideOpticInstallRead)
FileWrite($rdcfile, @CRLF)
FileClose($rdcfile)
EndIf
if guictrlread ($ZSidePICInstallRead) = 18 Then
GUICtrlSetData ($ZSidePICInstallRead, ""    )
EndIf
If guictrlread($ProjectNameInputBox) = '' then
                MsgBox(0,"Error",'Project name required')
                guictrlsetstate($ProjectNameInputBox,$gui_focus)
                continueloop
            endif
if guictrlread($ProjectSiteCombo) = '' Then
                MsgBox(0,"Error",'Project site required')
                guictrlsetstate($ProjectSiteCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCNumberOfProjectsInput) = '' then
                MsgBox(0,"Error", 'Number of projects required')
                guictrlsetstate($RDCNumberOfProjectsInput,$gui_focus)
                continueloop
            endif


If not stringisdigit(guictrlread($RDCNumberOfProjectsInput)) then
                MsgBox(0,"Error",'Number of projects must be numeric')
                guictrlsetstate($RDCNumberOfProjectsInput,$gui_focus)
                continueloop
            endif

If guictrlread($RDCRouterNameCombo) = '' then
                MsgBox(0,"Error",'A side router required')
                guictrlsetstate($RDCRouterNameCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCInterfaceTypeCombo) = '' then
                MsgBox(0,"Error",'A side interface type required')
                guictrlsetstate($RDCInterfaceTypeCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCRouterInterfacePortInput) = '' then
                MsgBox(0,"Error",'A side interface port required')
                guictrlsetstate($RDCRouterInterfacePortInput,$gui_focus)
                continueloop
                endif

If guictrlread($RDCOtherRouterNameCombo) = '' then
                MsgBox(0,"Error",'Z side router required')
                guictrlsetstate($RDCOtherRouterNameCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCOtherRouterInterfaceTypeCombo) = '' then
                MsgBox(0,"Error",'Z side interface type required')
                guictrlsetstate($RDCOtherRouterInterfaceTypeCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCOtherRouterInterfacePortInput) = '' then
                MsgBox(0,"Error",'Z side interface port required')
                guictrlsetstate($RDCOtherRouterInterfacePortInput,$gui_focus)
                continueloop
            endif


GUICtrlSetData($RDCOtherRouterInterfacePortInput,"")
GUICtrlSetData($RDCRouterInterfacePortInput,"")
guictrlsetdata ($ASideFPCInstallInput,"")
guictrlsetdata ($ZSideFPCInstallInput,"")
guictrlsetdata ($RDCASideOpticsInstallInput,"")
guictrlsetdata ($RDCZSideOpticsInstallInput,"")
guictrlsetdata ($RDCASidePicInput,"")
guictrlsetdata ($RDCZSidePicInput,"")
guictrlsetdata ($RDCZSideFPCInstallInput, "")
guictrlsetdata ($RDCASideFPCInstallInput, "")
GUICtrlSetState($RDCASideFPCInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCZSideFPCInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCASideOpticsInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCZSideOpticsInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCASidePicInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCZSidePicInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCBothRouterFPCInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCBothRouterPicInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCBothRoutersOpticsInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCYesInstallFPCRadio,$GUI_UNCHECKED)
GUICtrlSetState($RDCYesInstallPicRadio,$GUI_UNCHECKED)
GUICtrlSetState($RDCYesInstallOpticRadio,$GUI_UNCHECKED)
GUICtrlSetState($RDCASideFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRouterFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCFPCInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCFPCSideALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCSideZFPCInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCOpticsInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRoutersOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSideZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCOpticsInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRoutersOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSideZLabel, $GUI_HIDE)
GUICtrlSetState($RDCChooseRouterPicInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASidePicInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSidePicInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRouterPicInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASidePicInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICSIdeZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSidePicInput, $GUI_HIDE)
GUICtrlSetState($RDCNoInstallFPCRadio,$GUI_CHECKED)
GUICtrlSetState($RDCNoInstallPICRadio,$GUI_CHECKED)
GUICtrlSetState($RDCNoInstallopticRadio,$GUI_CHECKED)



$I= ($I + 1)

ELSEIF (guictrlread ($RDCNumberOfProjectsInput) > 1 AND ($I) >= 1) Then
$I= ($I + 1)
IF ($I+1) = (guictrlread ($RDCNumberOfProjectsInput))  Then
    GUICtrlSetData ($RDCSubmitButton, "Done")
EndIf

                local $aprojincr = stringregexp(guictrlread($ProjectNameInputBox),"(?<=-\d{2})([A-Z])(?=-Q)",3)
                local $incr_char = chr(asc($aprojincr[0])+1)
                guictrlsetdata($ProjectNameInputBox,StringRegExpReplace(guictrlread($ProjectNameInputBox), _
                "(?<=-\d{2})([A-Z])(?=-Q)", $incr_char))
guictrlsetstate($RDCRouterInterfacePortInput,$gui_focus)

$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile,@CRLF & @CRLF)
FileWrite($rdcfile,"Project:")
FileWrite($rdcfile,$RDCProjectNameRead)
FileWrite($rdcfile,@CRLF & @CRLF)
FileWrite($rdcfile, $RDCRouterNameRead)
FileWrite($rdcfile, ": Connect fiber into ")
FileWrite($rdcfile, $RDCInterfaceTypeRead)
FileWrite($rdcfile, "-")
FileWrite($rdcfile, $RDCInterfacePortRead)
FileWrite($rdcfile, @CRLF)
FileWrite($rdcfile, $RDCOtherRouterRead)
FileWrite($rdcfile, ": Connect fiber into ")
FileWrite($rdcfile, $RDCOtherInterfaceTypeRead)
FileWrite($rdcfile, "-")
FileWrite($rdcfile, $RDCOtherInterfacePortRead)
FileWrite($rdcfile, @CRLF & @CRLF)
FileClose($rdcfile)
If not  GUICtrlRead ($RDCASideFPCInstallInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile,$RDCRouterNameRead)
FileWrite($rdcfile,": Install FPC into slot ")
FileWrite($rdcfile,$RDCASideFPCInstallInputRead)
FileWrite($rdcfile, @CRLF)
FileClose($rdcfile)
EndIf
If not  GUICtrlRead ($RDCZSideFPCInstallInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile,$RDCOtherRouterRead)
FileWrite($rdcfile,": Install FPC into slot ")
FileWrite($rdcfile,$RDCZSideFPCInstallInputRead)
FileWrite($rdcfile, @CRLF & @CRLF)
FileClose($rdcfile)
EndIf
if not guictrlread ($RDCASidePicInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile, $RDCRouterNameRead)
FileWrite($rdcfile,": Install PIC into slot ")
FileWrite($rdcfile,$ASidePICInstallRead)
FileWrite($rdcfile, @CRLF)
FileClose($rdcfile)
EndIf
if not guictrlread ($RDCZSidePicInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile, $RDCOtherRouterRead)
FileWrite($rdcfile,": Install PIC into slot ")
FileWrite($rdcfile,$ZSidePICInstallRead)
FileWrite($rdcfile, @CRLF & @CRLF)
FileClose($rdcfile)
EndIf
if not guictrlread ($RDCASideOpticsInstallInput) = "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile, $RDCRouterNameRead)
FileWrite($rdcfile,": Install optic into slot ")
FileWrite($rdcfile,$ASideOpticInstallRead)
FileWrite($rdcfile, @CRLF)
FileClose($rdcfile)
EndIf
if not guictrlread ($RDCZSideOpticsInstallInput)= "" Then
$rdcfile = FileOpen("rdc.txt",1)
FileWrite($rdcfile,$RDCOtherRouterRead)
FileWrite($rdcfile,": Install optic into slot ")
FileWrite($rdcfile,$ZSideOpticInstallRead)
FileWrite($rdcfile, @CRLF)
FileClose($rdcfile)
EndIf
if guictrlread ($ZSidePICInstallRead) = 18 Then
GUICtrlSetData ($ZSidePICInstallRead, ""    )
EndIf
If guictrlread($ProjectNameInputBox) = '' then
                MsgBox(0,"Error",'Project name required')
                guictrlsetstate($ProjectNameInputBox,$gui_focus)
                continueloop
            endif
if guictrlread($ProjectSiteCombo) = '' Then
                MsgBox(0,"Error",'Project site required')
                guictrlsetstate($ProjectSiteCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCNumberOfProjectsInput) = '' then
                MsgBox(0,"Error", 'Number of projects required')
                guictrlsetstate($RDCNumberOfProjectsInput,$gui_focus)
                continueloop
            endif


If not stringisdigit(guictrlread($RDCNumberOfProjectsInput)) then
                MsgBox(0,"Error",'Number of projects must be numeric')
                guictrlsetstate($RDCNumberOfProjectsInput,$gui_focus)
                continueloop
            endif

If guictrlread($RDCRouterNameCombo) = '' then
                MsgBox(0,"Error",'A side router required')
                guictrlsetstate($RDCRouterNameCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCInterfaceTypeCombo) = '' then
                MsgBox(0,"Error",'A side interface type required')
                guictrlsetstate($RDCInterfaceTypeCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCRouterInterfacePortInput) = '' then
                MsgBox(0,"Error",'A side interface port required')
                guictrlsetstate($RDCRouterInterfacePortInput,$gui_focus)
                continueloop
                endif

If guictrlread($RDCOtherRouterNameCombo) = '' then
                MsgBox(0,"Error",'Z side router required')
                guictrlsetstate($RDCOtherRouterNameCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCOtherRouterInterfaceTypeCombo) = '' then
                MsgBox(0,"Error",'Z side interface type required')
                guictrlsetstate($RDCOtherRouterInterfaceTypeCombo,$gui_focus)
                continueloop
            endif

If guictrlread($RDCOtherRouterInterfacePortInput) = '' then
                MsgBox(0,"Error",'Z side interface port required')
                guictrlsetstate($RDCOtherRouterInterfacePortInput,$gui_focus)
                continueloop
            endif


GUICtrlSetData($RDCOtherRouterInterfacePortInput,"")
GUICtrlSetData($RDCRouterInterfacePortInput,"")
guictrlsetdata ($ASideFPCInstallInput,"")
guictrlsetdata ($ZSideFPCInstallInput,"")
guictrlsetdata ($RDCASideOpticsInstallInput,"")
guictrlsetdata ($RDCZSideOpticsInstallInput,"")
guictrlsetdata ($RDCASidePicInput,"")
guictrlsetdata ($RDCZSidePicInput,"")
guictrlsetdata ($RDCZSideFPCInstallInput, "")
guictrlsetdata ($RDCASideFPCInstallInput, "")
GUICtrlSetState($RDCASideFPCInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCZSideFPCInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCASideOpticsInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCZSideOpticsInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCASidePicInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCZSidePicInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCBothRouterFPCInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCBothRouterPicInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCBothRoutersOpticsInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCYesInstallFPCRadio,$GUI_UNCHECKED)
GUICtrlSetState($RDCYesInstallPicRadio,$GUI_UNCHECKED)
GUICtrlSetState($RDCYesInstallOpticRadio,$GUI_UNCHECKED)
GUICtrlSetState($RDCASideFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRouterFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCFPCInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCFPCSideALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCSideZFPCInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCOpticsInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRoutersOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSideZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCOpticsInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRoutersOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSideZLabel, $GUI_HIDE)
GUICtrlSetState($RDCChooseRouterPicInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASidePicInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSidePicInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRouterPicInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASidePicInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICSIdeZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSidePicInput, $GUI_HIDE)
GUICtrlSetState($RDCNoInstallFPCRadio,$GUI_CHECKED)
GUICtrlSetState($RDCNoInstallPICRadio,$GUI_CHECKED)
GUICtrlSetState($RDCNoInstallopticRadio,$GUI_CHECKED)
guictrlsetdata ($RDCZSideOpticsInstallInput,"")

EndIf
IF $I = (guictrlread ($RDCNumberOfProjectsInput))  Then

GUISetState(@SW_HIDE)
ClipPut($rdcfile = FileOpen("rdc.txt",1))
$EmailForm = GUICreate("Maintenance Email Notification", 831, 518, -1435, 222)
$CoxLabel = GUICtrlCreateLabel("Maintenance Email Notification ", 25, 22, 780, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$EmailEdit = GUICtrlCreateEdit("", 32, 72, 761, 401,BitOr($ES_MULTILINE, $WS_VSCROLL))
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetData(-1, "")
$CopyButton = GUICtrlCreateButton("Copy To Clipboard", 680, 480, 99, 25)
local $test= Fileread("rdc.txt")
ClipPut($test)
FileClose($rdcfile)
FileDelete("rdc.txt")
GUICtrlSetData($EmailEdit, ClipGet())
GUICtrlSetState($EmailEdit, $GUI_SHOW)
GUISetState()

EndIf


EndIf

Case $C4CoreProjectTypeRadio

Case $SystemProjectTypeRadio

GUICtrlSetState($RDCASideFPCInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCZSideFPCInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCASideOpticsInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCZSideOpticsInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCASidePicInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCZSidePicInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCBothRouterFPCInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCBothRouterPicInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCBothRoutersOpticsInstall,$GUI_UNCHECKED)
GUICtrlSetState($RDCYesInstallFPCRadio,$GUI_UNCHECKED)
GUICtrlSetState($RDCYesInstallPicRadio,$GUI_UNCHECKED)
GUICtrlSetState($RDCYesInstallOpticRadio,$GUI_UNCHECKED)
GUICtrlSetState($RDCASideFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRouterFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCFPCInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCFPCSideALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCSideZFPCInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCOpticsInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRoutersOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSideZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCOpticsInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRoutersOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSideZLabel, $GUI_HIDE)
GUICtrlSetState($RDCChooseRouterPicInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASidePicInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSidePicInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRouterPicInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASidePicInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICSIdeZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSidePicInput, $GUI_HIDE)
GUICtrlSetState($RDCNoInstallFPCRadio,$GUI_CHECKED)
GUICtrlSetState($RDCNoInstallPICRadio,$GUI_CHECKED)
GUICtrlSetState($RDCNoInstallopticRadio,$GUI_CHECKED)
GUICtrlSetData($RDCOtherRouterInterfacePortInput,"")
GUICtrlSetData($RDCRouterInterfacePortInput,"")
guictrlsetdata ($ASideFPCInstallInput,"")
guictrlsetdata ($ZSideFPCInstallInput,"")
guictrlsetdata ($RDCASideOpticsInstallInput,"")
guictrlsetdata ($RDCASidePicInput,"")
guictrlsetdata ($RDCZSidePicInput,"")
guictrlsetdata ($RDCZSideFPCInstallInput, "")
guictrlsetdata ($RDCASideFPCInstallInput, "")
guictrlsetdata ($RDCZSideOpticsInstallInput,"")
guictrlsetdata ($RDCNumberOfProjectsInput,"")
guictrlsetdata ($ProjectNameInputBox,"")
GUICtrlSetState($RDCRouterNameCombo, $GUI_HIDE)
GUICtrlSetState($RDCInterfaceTypeCombo, $GUI_HIDE)
GUICtrlSetState($RDCRouterInterfacePortInput, $GUI_HIDE)
GUICtrlSetState($RDCOtherRouterNameCombo, $GUI_HIDE)
GUICtrlSetState($RDCOtherRouterInterfaceTypeCombo, $GUI_HIDE)
GUICtrlSetState($RDCOtherRouterInterfacePortInput, $GUI_HIDE)
GUICtrlSetState($RDCYesInstallFPCRadio, $GUI_HIDE)
GUICtrlSetState($RDCNoInstallFPCRadio, $GUI_HIDE)
GUICtrlSetState($RDCFPCInstallLocationInput, $GUI_HIDE)
GUICtrlSetState($RDCYesInstallPicRadio, $GUI_HIDE)
GUICtrlSetState($RDCNoInstallPICRadio, $GUI_HIDE)
GUICtrlSetState($RDCPicInstallLocationInput, $GUI_HIDE)
GUICtrlSetState($RDCYesInstallOpticRadio, $GUI_HIDE)
GUICtrlSetState($RDCNoInstallOpticRadio, $GUI_HIDE)
GUICtrlSetState($RDCOpticInstallLocationInput, $GUI_HIDE)
GUICtrlSetState($RDCNextProjectButton, $GUI_HIDE)
GUICtrlSetState($RDCClearButton, $GUI_HIDE)
GUICtrlSetState($RDCSubmitButton, $GUI_HIDE)
GUICtrlSetState($RDCRouterSideLabel, $GUI_HIDE)
GUICtrlSetState($RDCInterfaceTypeLabel, $GUI_HIDE)
GUICtrlSetState($RDCRouterInterfacePortLabel, $GUI_HIDE)
GUICtrlSetState($RDCRouterNameOtherSideLabel, $GUI_HIDE)
GUICtrlSetState($RDCOtherRouterInterfacePortLabel, $GUI_HIDE)
GUICtrlSetState($RDCOtherRouterInterfaceTypeLabel, $GUI_HIDE)
GUICtrlSetState($RDCInstallHardwareLabel, $GUI_HIDE)
GUICtrlSetState($RDCFPCInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICLabel, $GUI_HIDE)
GUICtrlSetState($RDCPICInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticLabel, $GUI_HIDE)
GUICtrlSetState($RDCInputOpticLocationLabel, $GUI_HIDE)
GUICtrlSetState($RDCASideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCBothRouterFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCASideFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstall, $GUI_HIDE)
GUICtrlSetState($RDCFPCSideALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCZSideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCSideZFPCInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASidePicInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSidePicInstall, $GUI_HIDE)
GUICtrlSetState($RDCChooseRouterPicInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCBothRouterPicInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASidePicInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallPICSIdeZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSidePicInput, $GUI_HIDE)
GUICtrlSetState($RDCOpticsInstallLabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCBothRoutersOpticsInstall, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSIdeALabel, $GUI_HIDE)
GUICtrlSetState($RDCASideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($RDCInstallOpticsSideZLabel, $GUI_HIDE)
GUICtrlSetState($RDCZSideOpticsInstallInput, $GUI_HIDE)
GUICtrlSetState($ASideFPCInstallInput, $GUI_HIDE)
GUICtrlSetState($ZSideFPCInstallInput, $GUI_HIDE)
$ProjectNameInputBox = GUICtrlCreateInput("", 48, 216, 193, 21)
$ProjectSiteCombo = GUICtrlCreateCombo("", 48, 280, 193, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$NumberOfProjectsInput = GUICtrlCreateInput("", 48, 344, 193, 21)
$RouterNameCombo = GUICtrlCreateCombo("", 48, 408, 193, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$InterfaceTypeCombo = GUICtrlCreateCombo("", 48, 472, 57, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$RouterInterfacePortInput = GUICtrlCreateInput("", 120, 472, 89, 21)
$YesInstallFPCRadio = GUICtrlCreateRadio("Yes", 512, 104, 41, 17)
$NoInstallFPCRadio = GUICtrlCreateRadio("No", 576, 104, 41, 17)
$ASideFPCInstallInput = GUICtrlCreateInput("", 496, 168, 193, 21)
$YesInstallPicRadio = GUICtrlCreateRadio("Yes", 512, 224, 41, 17)
$NoInstallPICRadio = GUICtrlCreateRadio("No", 576, 224, 41, 17)
$RDCFPDCSideALabel = GUICtrlCreateLabel("Input Which Slot You Need The FPC Installed (A Side)", 456, 136, 313, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$YesInstallOpticRadio = GUICtrlCreateRadio("Yes", 512, 360, 41, 17)
$NoInstallOpticRadio = GUICtrlCreateRadio("No", 576, 360, 41, 17)
$NextProjectButton = GUICtrlCreateButton("Next Project", 952, 296, 99, 33)
$ClearButton = GUICtrlCreateButton("Clear", 896, 360, 89, 33)
$SubmitButton = GUICtrlCreateButton("Submit", 1008, 360, 89, 33)
$ProjectSiteLabel = GUICtrlCreateLabel("Choose Your Project Site Location", 24, 256, 241, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RouterSideLabel = GUICtrlCreateLabel(" Choose The Router For A-Side", 24, 384, 223, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ProjectNameLabel = GUICtrlCreateLabel("Input Your Project Name", 24, 192, 185, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$TypeofProjectLabel = GUICtrlCreateLabel("Choose The Type Of Project This Is", 24, 72, 249, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$NumberOfProjectsLabel = GUICtrlCreateLabel("Input The Number Of Projects You Have Of This Kind", 24, 320, 349, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RouterInterfacePortLabel = GUICtrlCreateLabel("Choose Interface Type and Input Port Number For A-Side", 24, 448, 328, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$InstallHardwareLabel = GUICtrlCreateLabel("Choose If You Need To Install An FPC", 480, 72, 221, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$InstallPICLabel = GUICtrlCreateLabel("Choose If You Need To Install A PIC", 480, 200, 211, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$InstallOpticLabel = GUICtrlCreateLabel("Choose If You Need To Install An Optic", 480, 328, 228, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCInstallPICSIdeALabel = GUICtrlCreateLabel("Input Which Slot You Need The PIC Installed (A Side)", 456, 256, 310, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCASidePicInput = GUICtrlCreateInput("", 496, 288, 193, 21)
$RDCInstallOpticsSIdeALabel = GUICtrlCreateLabel("Input Which Port You Need The Optics Installed (A Side)", 456, 392, 327, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$RDCASideOpticsInstallInput = GUICtrlCreateInput("", 496, 424, 193, 21)
$BypassSerialNumberLabel = GUICtrlCreateLabel("Input The Bypass Serial Number", 909, 72, 186, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$BypassSerialNumberInput = GUICtrlCreateInput("", 896, 104, 193, 21)
$BypassAPortLabel = GUICtrlCreateLabel("Input The Bypass A Port", 922, 134, 142, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$BypassAPortInput = GUICtrlCreateInput("", 898, 166, 193, 21)
$BypassZPortLabel = GUICtrlCreateLabel("Input The Bypass Z Port", 922, 204, 142, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$BypassZPortInput = GUICtrlCreateInput("", 902, 236, 193, 21)


EndSwitch
WEnd
Edited by atnextc

Share this post


Link to post
Share on other sites
nitekram

#include <Array.au3>
$HTML = FileRead("file.txt")
;Strip all tags
$HTML = StringRegExpReplace($HTML, "<[^<>]+>", "")
MsgBox(0, "Test", "Stripped " & @extended & " tags.")
;Strip blank lines and not required spaces
$HTML = StringRegExpReplace($HTML, "(?m)(^\s+)", "")
ConsoleWrite($HTML & @CRLF)

Was wondering if you might be able to assist me with your above code. I have put * to replace the characters with, but it does not seem to work as expected...I would like to be able to input something, for the blank lines, so that when I use my const I have them lined up the right way...does that make sense, and thanks for your help.


All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites
nitekram

Found the right piece of code to remove :)

; remove the (?m)
$HTML = StringRegExpReplace($HTML, "(^\s+)", "******")

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×