copy help

[alaa777]

i need help to copy from the ListView or send the listview items in excel sheet so i need the copy button work

expandcollapse popup

Global $W
Global $dL
Global $L
Global $Eef
Global $E
Global $h
Global $F
Global $Le
$result=0
$counter=1
IsFloat($E)
IsFloat($h)
IsFloat($F)
IsFloat($W)
IsFloat($dL)
IsFloat($L)
IsFloat($Eef)
IsFloat($Le)
;************************************************************** set the gui
#NoTrayIcon
#include <GUIConstants.au3>
#Include <Misc.au3>
#include <GuiListView.au3>
#include <ClipBoard.au3>
$font="Comic Sans MS"
$main=GUICreate("MICROSTRIP ANTENNA",350,150)
GUICtrlCreateLabel("EPr=",5,12)         ;epslon
$Ei=GUICtrlCreateInput("",30,10,60)     ;epslon input
GUICtrlCreateLabel("h=",120,12)         ;hight
$hi=GUICtrlCreateInput("",135,10,60)    ;hight input
GUICtrlCreateLabel("milm",200,12)       ;the h unit
GUICtrlCreateLabel("F=",230,12)         ;fre
$Fi=GUICtrlCreateInput("",245,10,60)    ;freq input
GUICtrlCreateLabel("GHz",310,12)        ;freq units
$C=GUICtrlCreateButton("Calculate",145,50,60)
$Si=GUICtrlCreateCheckbox("Save the result data",10,50)
$resbi=GUICtrlCreateCheckbox("Disable Result Box",10,70)
$copyresult=GUICtrlCreateButton("copy the result",220,50,90)
$CRIDET=GUICtrlCreateLabel("MADE BY ALAA MAHMOUD NO:320047079",10,100,300,50)
GUICtrlSetFont(-1,14, 400,2,$font)
GUISetState()
;*************************************************************** gui thengis ends and start calculation by pressing calculate
While 1
    $main_Pos = WinGetPos($main, "")
    $msg = GUIGetMsg(1)
    $r=0
    Select
    Case $msg[0] =$C
        $E=GUICtrlRead($Ei)
        $h=GUICtrlRead($hi)
        $F=GUICtrlRead($Fi)
        $S=GUICtrlRead($Si)
        $resb=GUICtrlRead($resbi)
        If $resb=1 Then
            $S=1
        EndIf
        _W()
        _Eef()
        _dL()
        _L()
        _Le()
        If $L<0 Or $dL<0 Or $Le<0 Or $W<0 Or $h<0 Or $E<1 Or $E=1 Or $F=0 Or $F<0 Or $h<0 Then
            MsgBox(0,"Error","Check your Input Data"&@LF&"Click ok to show the bad result")
            $r=1
        EndIf
        If $resb=4 Then
        MsgBox(0,"THE RESULT","W   =" & $W &"  milm"&@LF&@LF&"Eef ="&$Eef&@LF&@LF&"dL   ="&$dL&"  milm"&@LF&@LF&"L   ="&$L&"  milm"&@LF&@LF&"Le ="&$Le&"  milm")
        EndIf
        If $S=1 Then 
            If $r=0 Then
                If WinExists("The Result Data") Then 
                    GUICtrlCreateListViewItem($counter&"|"&$E&"|"&$h&"|"&$F&"|"&$W&"|"&$Eef&"|"&$dL&"|"&$L&"|"&$Le,$listview)
                    $counter=$counter+1
                Else
            $result=GUICreate("The Result Data",500,500,$main_Pos[0] + 100, $main_Pos[1] + 100,$WS_SIZEBOX, -1, $main)
            $listview = GUICtrlCreateListView ("Result No   |E=|h=in milm|F=in GHz|W=in milm|Eef=|dL=in milm|L=in milm|Le=in milm",5,10,485,460,"",$LVS_EX_FLATSB+$WS_EX_CLIENTEDGE)
            GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
            GUICtrlCreateListViewItem($counter&"|"&$E&"|"&$h&"|"&$F&"|"&$W&"|"&$Eef&"|"&$dL&"|"&$L&"|"&$Le,$listview)
            $counter=$counter+1
            EndIf
            GUISetState()
            EndIf
        EndIf
    Case $msg[0] = $GUI_EVENT_CLOSE
        If $msg[1] = $result Then
            GUISwitch($result)
            GUIDelete()
            $counter=1
        ElseIf $msg[1] = $main Then
            GUISwitch($main)
            GUIDelete()
            Exit
        EndIf
    Case $msg[0]=$copyresult
    
     EndSelect
WEnd
;************************************************************** the functions
Func _W()
    $W=((3*10^11)/(2*$F*10^9))*(2/($E+1))^0.5
    Return $W
EndFunc
Func _Eef()
    $Eef=(($E+1)/2)+(($E-1)/2)*(1+(12*($h/$W)))^(-0.5)
    Return $Eef
EndFunc
Func _dL()
    $dL=(0.412*$h)*((($Eef+0.3)*(($W/$h)+0.264))/(($Eef-0.258)*(($W/$h)+0.8)))
    Return $dL
EndFunc
Func _L()
    $L=((3*10^11)/((2*$F*10^9)*($Eef^0.5)))-(2*$dL)
    Return $L
EndFunc
Func _Le()
    $Le=$L+(2*$dL)
    Return $Le
EndFunc

[alaa777]

to make it work make the input data 2,2,2 and check the two boxes

[alaa777]

ok i made the result written in excel sheet but organize the data in the excel sheet is the problem now

[alaa777]

ok thx all i fixed it by my self but with another way but i still need help to orgnize the data in the excel sheet using _FileWriteToLine the problem in the columns the rows no problem