Code Kürzer

  • C#
  • .NET (FX) 4.5–4.8

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Dksksm.

    Code Kürzer

    Moin Leute also mein Programm funktioniert einband frei :)
    Wollte nur mal fragen ob man den Code Kürzer schreiben kann oder ob ich es auch einfach zu schwer mir selber gemacht hab :)
    Zum Programm ich lese aus einer Excel Tabelle Pro tag immer 3 Spalten das heißt wenn der Aktuelle Monat 5 tage hat lese ich 15 cellen aus einer Reihe aus und wenn das fertig ist dann lese ich die nächste reihe aus :)
    Es geht für mich auch nur hauptsächlich um die Funktion :

    C#-Quellcode

    1. async Task<bool> ReadVariabletest()



    Spoiler anzeigen

    C#-Quellcode

    1. public partial class MainWindow : System.Windows.Window
    2. {
    4. //Pfad von der Excel Datei
    5. public string excelpath = @"C:\Users\tb\Desktop\excelvs\test.xlsx";
    6. public string excelpathcopy = @"C:\Users\tb\Desktop\excelvs\test2222.xlsx";
    7. public List<Double> row1 = new List<Double>();
    8. public List<Double> row2 = new List<Double>();
    10. public MainWindow()
    11. {
    12. InitializeComponent();
    13. Task<bool> task = ReadVariabletest();
    14. startdatum();
    15. }
    16. //start timer für Aktuellen Tag anzeigen
    17. private void startdatum()
    18. {
    20. DispatcherTimer timer = new DispatcherTimer();
    21. timer.Interval = TimeSpan.FromSeconds(1);
    22. timer.Tick += datenow24oee;
    23. timer.Start();
    25. }
    27. private void datenow24oee(object sender, EventArgs e )
    28. {
    29. int actuallyday = DateTime.Now.Day;
    32. for (int i = 1; i <= actuallyday; i++)
    33. {
    34. if (i== 1)
    35. {
    36. e1.Text = row1[0].ToString("P0");
    37. e2.Text = row1[1].ToString("P0");
    38. e3.Text = row1[2].ToString("P0");
    39. e1_Copy.Text = row2[0].ToString("P0");
    40. e2_Copy.Text = row2[1].ToString("P0");
    41. e3_Copy.Text = row2[2].ToString("P0");
    42. }
    43. else if (i == 2)
    44. {
    45. e4.Text = row1[3].ToString("P0");
    46. e5.Text = row1[4].ToString("P0");
    47. e6.Text = row1[5].ToString("P0");
    48. e4_Copy.Text = row2[3].ToString("P0");
    49. e5_Copy.Text = row2[4].ToString("P0");
    50. e6_Copy.Text = row2[5].ToString("P0");
    51. }
    52. else if (i == 3)
    53. {
    54. e7.Text = row1[6].ToString("P0");
    55. e8.Text = row1[7].ToString("P0");
    56. e9.Text = row1[8].ToString("P0");
    57. e7_Copy.Text = row2[6].ToString("P0");
    58. e8_Copy.Text = row2[7].ToString("P0");
    59. e9_Copy.Text = row2[8].ToString("P0");
    60. }
    61. else if (i == 4)
    62. {
    63. e10.Text = row1[9].ToString("P0");
    64. e11.Text = row1[10].ToString("P0");
    65. e12.Text = row1[11].ToString("P0");
    66. e10_Copy.Text = row2[9].ToString("P0");
    67. e11_Copy.Text = row2[10].ToString("P0");
    68. e12_Copy.Text = row2[11].ToString("P0");
    69. }
    70. else if (i == 5)
    71. {
    72. e13.Text = row1[12].ToString("P0");
    73. e14.Text = row1[13].ToString("P0");
    74. e15.Text = row1[14].ToString("P0");
    75. e13_Copy.Text = row2[12].ToString("P0");
    76. e14_Copy.Text = row2[13].ToString("P0");
    77. e15_Copy.Text = row2[14].ToString("P0");
    78. }
    79. else if (i == 6)
    80. {
    81. e16.Text = row1[15].ToString("P0");
    82. e17.Text = row1[16].ToString("P0");
    83. e18.Text = row1[17].ToString("P0");
    84. e16_Copy.Text = row2[15].ToString("P0");
    85. e17_Copy.Text = row2[16].ToString("P0");
    86. e18_Copy.Text = row2[17].ToString("P0");
    87. }
    90. }
    92. }
    93. async Task<bool> ReadVariabletest()
    94. {
    95. bool succeeded = false;
    96. while (!succeeded)
    97. {
    98. //Kopiert die Excel Datai
    99. File.Copy(excelpath, excelpathcopy);
    100. //open file excel using microsoft dll
    101. Application app = new Application();
    102. //open workbook
    103. Workbook wk = app.Workbooks.Open(excelpathcopy);
    104. //get first sheet
    105. Worksheet sh = wk.Worksheets[1];
    106. //get cell
    107. // Cells[unten/rechts] Example: [1,2] = B1
    108. int actuallyday = DateTime.Now.Day;
    109. int daystart = 1;
    110. int excelStartRow = 1;
    111. int excelEndRow = 3;
    112. int excelStartSpalte = 1;
    113. int excelEndSpalte = 3;
    115. for (int sp = excelStartSpalte; sp < excelEndSpalte; sp++)
    116. {
    117. for (int i = daystart; i <= actuallyday; i++)
    118. {
    119. for (int a = excelStartRow; a <= excelEndRow; a++)
    120. {
    121. var aExcel = sh.Cells[sp, a];
    122. //reihe eins
    123. if (sp == 1)
    124. {
    125. if (aExcel.Text == String.Empty)
    126. {
    127. double value = 0.0;
    128. row1.Add(value);
    129. }
    130. else
    131. {
    132. double value = Convert.ToDouble(aExcel.Value.ToString());
    133. row1.Add(value);
    134. }
    135. }
    136. //reihe zwei
    137. if (sp == 2)
    138. {
    139. if (aExcel.Text == String.Empty)
    140. {
    141. double value = 0.0;
    142. row2.Add(value);
    143. }
    144. else
    145. {
    146. double value = Convert.ToDouble(aExcel.Value.ToString());
    147. row2.Add(value);
    148. }
    149. }
    150. }
    151. excelEndRow++;
    152. excelEndRow++;
    153. excelEndRow++;
    154. excelStartRow++;
    155. excelStartRow++;
    156. excelStartRow++;
    157. }
    158. excelStartRow = 1;
    159. excelEndRow = 3;
    160. daystart = 1;
    161. }
    165. //Excel wieder schließen ohne zu speichern!
    166. app.DisplayAlerts = false;
    167. wk.Close(0);
    168. app.Quit();
    169. //Delete the excel copy
    171. File.Delete(excelpathcopy);
    173. KillSpecificExcelFileProcess("");
    174. await Task.Delay(10000);
    176. //Der Durchlauf geht alle 30 Minuten
    177. //await Task.Delay(108000000);
    178. }
    179. return succeeded;
    180. }
    182. private void KillSpecificExcelFileProcess(string excelFileName)
    183. {
    184. var processes = from p in Process.GetProcessesByName("EXCEL")
    185. select p;
    187. foreach (var process in processes)
    188. {
    189. if (process.MainWindowTitle == excelFileName)
    190. process.Kill();
    191. }
    192. }
    193. }


    ich hab das eine in den text nur bis tag 6 als test gemacht :)
    Dateien

    • excelvs.7z

      (41,83 kB, 76 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „MrLaTuNiX“ ()

    @MrLaTuNiX Suboptimal.
    Wenn wir Dir helfen wollen, wollen wir auch den Code in eine Form packen.
    Leider wimmelt es da von Fehlern, weil die Controls nicht da sind.
    Diese manuell nachzuerstellen ist sehr nervig.
    Kannst Du einfach das Projekt bereinigt und gezippt (ohne bin, obj, vs-Verzeichnisse) posten?
    Erweiterte Antwort - Dateianhänge - Hochladen
    Und
    Editiere Deinen Post, markiere den Quellcode und drück auf den Spoiler-Button, (der 8. links neben dem C#-Button).
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    C#-Quellcode

    1. excelEndRow++;
    2. excelEndRow++;
    3. excelEndRow++;
    4. excelStartRow++;
    5. excelStartRow++;
    6. excelStartRow++;

    Das ist schon mal ziemlich … ausbaufähig - für sich genommen:

    C#-Quellcode

    1. excelEndRow += 3;
    2. excelStartRow += 3;


    Naja, und der Rest:
    if (i== 1)
    {
    e1.Text = row1[0].ToString("P0");
    e2.Text = row1[1].ToString("P0");
    e3.Text = row1[2].ToString("P0");
    e1_Copy.Text = row2[0].ToString("P0");
    e2_Copy.Text = row2[1].ToString("P0");
    e3_Copy.Text = row2[2].ToString("P0");

    (explizit nicht in CodeTags, wegen der Markierung)
    Da kannst Du selber schon mal eine "Formel" erstellen.
    Und wenn Du die e1 und e1_Copy und Co in jeweilige Control-Arrays packst, kannst Du die über einen numerischen Index ansprechen und den Rest bekommst Du bestimmt selber hin.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Oki das mit den Bereinigen hab ich gemacht dann komm das ? das sagt mir doch das mein Programm funktioniert richtig ?
    Bereinigen gestartet...
    1>------ Bereinigen gestartet: Projekt: Montage_OEE, Konfiguration: Debug Any CPU ------
    ========== Bereinigen: 1 erfolgreich, 0 fehlerhaft, 0 übersprungen ==========

    und hab jetzt die Zip Datei hochgeladen
    und danke @VaporiZed aber allerdings verstehe ich nicht so ganz was du meinst mit den textboxen ?

    Du könntest so arbeiten:

    C#-Quellcode

    1. System.Windows.Controls.TextBox[] TextBoxes = { e1, e2, e3 };
    2. TextBoxes[0].Text = "Foo";
    3. TextBoxes[1].Text = "Bar";
    4. TextBoxes[2].Text = "Baz";

    So kannst Du also z.B. TextBoxen mit verschiedenen Namen zusammenfassen und nur über eine Zahl (Array-Index) auf sie zugreifen.

    In der WPF glaub ich aber nicht, dass das ganze Konzept insgesamt so sinnvoll ist …

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Naja, auch dieser Teil ist ziemlich redundant:

    C#-Quellcode

    1. if (sp == 1)
    2. {
    3. if (aExcel.Text == String.Empty)
    4. {
    5. double value = 0.0;
    6. row1.Add(value);
    7. }
    8. else
    9. {
    10. double value = Convert.ToDouble(aExcel.Value.ToString());
    11. row1.Add(value);
    12. }
    13. }
    14. //…

    -->

    C#-Quellcode

    1. double value = 0.0;
    2. if (aExcel.Text != String.Empty) value = Convert.ToDouble(aExcel.Value.ToString());
    3. if (sp == 1) row1.Add(value)
    4. else if (sp == 2) row2.Add(value);
    5. …

    so ungefähr, keine Ahnung, ob die C#-Syntax da jetzt 100 %ig richtig ist. Aber auch dann am Ende kann man sicherlich diese If-Geschichte durch Arrays wegrationalisieren.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    sieht für mich gut aus. Allerdings habe ich es mir abgewöhnt auf String.Empty zu prüfen.

    C#-Quellcode

    1. value = aExcel.Text.Length > 0 ? Convert.ToDouble(Value.ToString()) : 0d;


    Auf Länge zu prüfen soll schneller sein, ehrlicherweise habe ich es nie geprüft, ich finde es aber eleganter.
    Wäre value nicht ohnehin schon 0 dann könnte man mit obiger Anweisung (geht auch in VB meines Wissens) die moderne Form des IIF nachbilden.