Вверх ↑
Этот топик читают: Гость
Ответов: 91
Рейтинг: 6
#1: 2017-12-26 23:01:09 ЛС | профиль | цитата
Доброго вечера всем.
Не могу понять как найти среднее значение в столбце...

Есть массив в текстовом файле. Прилагаю под спойлером.
Необходим поиск среднего значения в столбце номер 3.

Трудность заключается в том что в том же столбце, есть другие значения.
То есть в одном столбце есть блоки значений разделенные пробелом.
Вот внутри этих блоков и надо посчитать среднее значение, и вывести результат в последний не заполненный столбец, но только в последней строке...

Например есть вот такое:
19;102.095;3.93;23.824;251.1;1.939805
38.1;148.708;3.932;15.545;251.1;5.6657748
57.2;162.307;3.93;12.921;251.1;9.2839604
76.3;164.507;3.932;12.54;251.1;12.5518841
95.3;164.88;3.93;12.485;251.1;15.713064
114.5;165.284;3.932;12.355;251.2;18.925018
133.5;165.885;3.93;12.125;251.2;22.1456475

Надо как то так:
19;102.095;3.93;23.824;251.1;1.939805;
38.1;148.708;3.932;15.545;251.1;5.6657748;
57.2;162.307;3.93;12.921;251.1;9.2839604;
76.3;164.507;3.932;12.54;251.1;12.5518841;
95.3;164.88;3.93;12.485;251.1;15.713064;
114.5;165.284;3.932;12.355;251.2;18.925018;
133.5;165.885;3.93;12.125;251.2;22.1456475;3.925;

Цветом я выделил только для наглядности.
Помогите плиз решить задачку, у меня даже мыслей нет....
18.9;98.295;0.004;29.228;250.4;1.8577755
38;157.729;0;15.842;250.4;5.993702
57;166.869;0;13.148;250.5;9.511533
76.1;168.625;0;12.465;250.6;12.8323625
95.2;168.798;0;12.404;250.6;16.0695696
114.3;169.52;0;12.337;250.7;19.376136
133.4;159.153;0;11.744;250.7;21.2310102

18.9;96.106;1.913;24.93;250.8;1.8164034
38;148.226;1.91;15.765;250.8;5.632588
57.1;162.159;1.914;13.205;250.9;9.2592789
76.2;165.856;1.911;12.639;250.9;12.6382272
95.3;166.93;1.913;12.604;250.9;15.908429
114.3;168.03;1.911;12.508;251;19.205829
133.5;169.278;1.914;12.306;251;22.598613

19;102.095;3.93;23.824;251.1;1.939805
38.1;148.708;3.932;15.545;251.1;5.6657748
57.2;162.307;3.93;12.921;251.1;9.2839604
76.3;164.507;3.932;12.54;251.1;12.5518841
95.3;164.88;3.93;12.485;251.1;15.713064
114.5;165.284;3.932;12.355;251.2;18.925018
133.5;165.885;3.93;12.125;251.2;22.1456475

19;102.679;5.938;21.226;251.2;1.950901
38.1;141.098;5.936;14.435;251.2;5.3758338
57.2;153.083;5.938;12.179;251.2;8.7563476
76.3;153.854;5.935;12.058;251.2;11.7390602
95.4;154.082;5.938;11.951;251.2;14.6994228
114.5;154.411;5.935;11.781;251.2;17.6800595
133.6;154.899;5.938;11.526;251.3;20.6945064

19;97.873;7.94;17.953;251.3;1.859587
38.1;129.244;7.943;13.125;251.3;4.9241964
57.2;138.147;7.941;11.666;251.3;7.9020084
76.3;138.794;7.943;11.672;251.3;10.5899822
95.4;139.842;7.94;11.497;251.3;13.3409268
114.5;140.778;7.943;11.29;251.3;16.119081
133.6;141.815;7.94;11.01;251.3;18.946484
152.8;142.872;7.943;10.698;251.3;21.8308416

19;92.571;9.946;15.462;251.3;1.758849
38.1;115.469;9.949;12.326;251.3;4.3993689
57.2;121.507;9.946;11.437;251.3;6.9502004
76.3;122.888;9.949;11.33;251.4;9.3763544
95.4;124.56;9.946;11.055;251.3;11.883024
114.6;126.024;9.948;10.751;251.4;14.4423504
133.7;127.465;9.946;10.41;251.4;17.0420705
152.8;128.805;9.948;10.065;251.4;19.681404
172;129.403;9.945;9.798;251.4;22.257316

19;84.22;11.954;13.648;251.4;1.60018
38.1;99.629;11.95;11.777;251.4;3.7958649
57.3;103.843;11.953;11.197;251.4;5.9502039
76.4;106.147;11.95;10.895;251.4;8.1096308
95.5;108.411;11.953;10.502;251.4;10.3532505
114.6;110.453;11.95;10.093;251.4;12.6579138
133.8;112.232;11.953;9.689;251.4;15.0166416
152.9;113.881;11.95;9.295;251.4;17.4124049
172.1;115.033;11.952;8.994;251.4;19.7971793
191.2;115.818;11.95;8.771;251.4;22.1444016

19.1;74.664;13.958;12.019;251.4;1.4260824
38.2;82.819;13.956;11.395;251.4;3.1636858
57.3;86.536;13.958;10.865;251.4;4.9585128
76.4;89.536;13.956;10.386;251.4;6.8405504
95.5;92.34;13.958;9.864;251.4;8.81847
114.7;94.916;13.956;9.328;251.4;10.8868652
133.8;97.056;13.958;8.842;251.5;12.9860928
152.9;98.962;13.955;8.396;251.4;15.1312898
172.1;100.389;13.958;8.05;251.5;17.2769469
191.3;101.4;13.955;7.798;251.5;19.39782
210.5;102.344;13.958;7.556;251.5;21.543412

19.1;63.069;15.96;10.936;251.5;1.2046179
38.2;66.954;15.963;10.919;251.5;2.5576428
57.3;70.483;15.959;10.395;251.5;4.0386759
76.4;74.023;15.962;9.75;251.5;5.6553572
95.6;77.217;15.959;9.125;251.5;7.3819452
114.7;80.16;15.962;8.489;251.5;9.194352
133.9;82.655;15.959;7.921;251.5;11.0675045
153;84.751;15.961;7.425;251.5;12.966903
172.2;86.374;15.959;7.043;251.5;14.8736028
191.4;87.489;15.961;6.77;251.5;16.7453946
210.6;88.523;15.959;6.526;251.5;18.6429438
229.8;89.357;15.961;6.33;251.5;20.5342386

19.1;52.59;17.963;9.609;251.5;1.004469
38.2;52.743;17.966;10.353;251.5;2.0147826
57.3;55.703;17.963;9.919;251.5;3.1917819
76.5;59.59;17.965;9.158;251.5;4.558635
95.6;63.075;17.963;8.445;251.5;6.02997
114.8;66.344;17.965;7.717;251.5;7.6162912
133.9;69.16;17.963;7.07;251.5;9.260524
153.1;71.493;17.965;6.522;251.5;10.9455783
172.2;73.315;17.963;6.095;251.5;12.624843
191.4;74.592;17.965;5.791;251.6;14.2769088
210.6;75.709;17.963;5.536;251.5;15.9443154
229.9;76.57;17.965;5.336;251.6;17.603443
249.1;77.439;17.962;5.134;251.5;19.2900549
268.4;78.251;17.965;4.941;251.6;21.0025684

19.1;43.759;19.966;8.263;251.5;0.8357969
38.2;40.859;19.968;9.589;251.6;1.5608138
57.4;42.526;19.966;9.444;251.6;2.4409924
76.5;46.499;19.968;8.635;251.6;3.5571735
95.7;50.245;19.966;7.838;251.6;4.8084465
114.8;53.771;19.968;7.042;251.6;6.1729108
134;56.884;19.966;6.321;251.6;7.622456
153.2;59.422;19.968;5.725;251.6;9.1034504
172.3;61.409;19.966;5.265;251.6;10.5807707
191.5;62.844;19.968;4.932;251.6;12.034626
210.7;64.025;19.965;4.667;251.6;13.4900675
229.9;64.958;19.968;4.457;251.6;14.9338442
249.2;65.871;19.965;4.25;251.6;16.4150532
268.5;66.697;19.968;4.058;251.6;17.9081445
287.7;67.485;19.964;3.883;251.6;19.4154345
307.1;68.169;19.968;3.734;251.6;20.9346999

19.1;37.125;21.97;6.705;251.6;0.7090875
38.3;31.959;21.972;8.501;251.6;1.2240297
57.4;31.431;21.97;8.891;251.6;1.8041394
76.6;35.014;21.972;8.148;251.6;2.6820724
95.7;38.962;21.97;7.276;251.6;3.7286634
114.9;42.615;21.972;6.438;251.6;4.8964635
134.1;45.939;21.969;5.658;251.6;6.1604199
153.2;48.659;21.972;5.02;251.6;7.4545588
172.4;50.77;21.969;4.535;251.6;8.752748
191.6;52.309;21.972;4.182;251.6;10.0224044
210.8;53.545;21.969;3.911;251.6;11.287286
230.1;54.524;21.972;3.696;251.6;12.5459724
249.3;55.457;21.968;3.492;251.6;13.8254301
268.6;56.272;21.972;3.31;251.6;15.1146592
287.8;57.028;21.969;3.147;251.6;16.4126584
307.2;57.669;21.972;3.013;251.6;17.7159168
326.5;58.247;21.969;2.901;251.6;19.0176455
345.9;58.767;21.972;2.8;251.7;20.3275053

19.1;31.058;23.974;5.372;251.6;0.5932078
38.3;25.542;23.976;7.17;251.7;0.9782586
57.5;22.6;23.973;8.153;251.7;1.2995
76.7;25.011;23.975;7.683;251.7;1.9183437
95.8;29.011;23.973;6.761;251.7;2.7792538
115;32.707;23.975;5.895;251.7;3.761305
134.2;36.143;23.973;5.079;251.7;4.8503906
153.4;38.974;23.975;4.407;251.7;5.9786116
172.5;41.165;23.973;3.902;251.7;7.1009625
191.8;42.8;23.975;3.534;251.7;8.20904
210.9;44.05;23.972;3.261;251.7;9.290145
230.2;45.075;23.975;3.041;251.7;10.376265
249.4;45.994;23.973;2.844;251.7;11.4709036
268.7;46.785;23.975;2.672;251.7;12.5711295
288;47.504;23.973;2.525;251.7;13.681152
307.3;48.099;23.975;2.406;251.7;14.7808227
326.7;48.636;23.973;2.309;251.7;15.8893812
346.1;49.121;23.975;2.223;251.7;17.0007781
365.5;49.598;23.972;2.145;251.7;18.128069
384.9;50.066;23.975;2.07;251.7;19.2704034

19.1;25.349;25.978;4.264;251.7;0.4841659
38.4;20.65;25.979;5.789;251.7;0.79296
57.6;16.584;25.977;7.037;251.7;0.9552384
76.8;16.68;25.979;7.171;251.8;1.281024
95.9;20.434;25.977;6.292;251.7;1.9596206
115.1;24.171;25.979;5.409;251.8;2.7820821
134.3;27.679;25.977;4.58;251.8;3.7172897
153.5;30.622;25.979;3.889;251.8;4.700477
172.7;32.892;25.976;3.374;251.8;5.6804484
191.9;34.584;25.979;2.998;251.8;6.6366696
211.1;35.889;25.976;2.722;251.8;7.5761679
230.3;36.969;25.979;2.5;251.8;8.5139607
249.6;37.908;25.976;2.316;251.8;9.4618368
268.8;38.714;25.979;2.161;251.8;10.4063232
288.1;39.43;25.976;2.03;251.8;11.359783
307.4;40.028;25.979;1.927;251.8;12.3046072
326.8;40.562;25.976;1.845;251.8;13.2556616
346.2;41.044;25.979;1.772;251.8;14.2094328
365.6;41.521;25.976;1.706;251.8;15.1800776
385.1;41.96;25.979;1.643;251.8;16.158796


Редактировалось 1 раз(а), последний 2017-12-26 23:01:38
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 16884
Рейтинг: 1239
#2: 2017-12-27 00:47:24 ЛС | профиль | цитата
ibegen писал(а):
Есть массив в текстовом файле. Прилагаю под спойлером.
Лучше бы выложил txt-файл.


Add(MainForm,10405509,140,175)
{
Width=694
Height=586
link(onCreate,10822238:doEvent1,[])
}
Add(StrList,803029,238,119)
{
Strings=#40:18.9;98.295;0.004;29.228;250.4;1.8577755|34:38;157.729;0;15.842;250.4;5.993702|34:57;166.869;0;13.148;250.5;9.511533|38:76.1;168.625;0;12.465;250.6;12.8323625|38:95.2;168.798;0;12.404;250.6;16.0695696|37:114.3;169.52;0;12.337;250.7;19.376136|39:133.4;159.153;0;11.744;250.7;21.2310102|0:|39:18.9;96.106;1.913;24.93;250.8;1.8164034|37:38;148.226;1.91;15.765;250.8;5.632588|41:57.1;162.159;1.914;13.205;250.9;9.2592789|42:76.2;165.856;1.911;12.639;250.9;12.6382272|40:95.3;166.93;1.913;12.604;250.9;15.908429|39:114.3;168.03;1.911;12.508;251;19.205829|40:133.5;169.278;1.914;12.306;251;22.598613|0:|37:19;102.095;3.93;23.824;251.1;1.939805|41:38.1;148.708;3.932;15.545;251.1;5.6657748|40:57.2;162.307;3.93;12.921;251.1;9.2839604|41:76.3;164.507;3.932;12.54;251.1;12.5518841|39:95.3;164.88;3.93;12.485;251.1;15.713064|42:114.5;165.284;3.932;12.355;251.2;18.925018|42:133.5;165.885;3.93;12.125;251.2;22.1456475|0:|38:19;102.679;5.938;21.226;251.2;1.950901|41:38.1;141.098;5.936;14.435;251.2;5.3758338|41:57.2;153.083;5.938;12.179;251.2;8.7563476|42:76.3;153.854;5.935;12.058;251.2;11.7390602|42:95.4;154.082;5.938;11.951;251.2;14.6994228|43:114.5;154.411;5.935;11.781;251.2;17.6800595|43:133.6;154.899;5.938;11.526;251.3;20.6945064|0:|36:19;97.873;7.94;17.953;251.3;1.859587|41:38.1;129.244;7.943;13.125;251.3;4.9241964|41:57.2;138.147;7.941;11.666;251.3;7.9020084|42:76.3;138.794;7.943;11.672;251.3;10.5899822|41:95.4;139.842;7.94;11.497;251.3;13.3409268|41:114.5;140.778;7.943;11.29;251.3;16.119081|40:133.6;141.815;7.94;11.01;251.3;18.946484|43:152.8;142.872;7.943;10.698;251.3;21.8308416|0:|37:19;92.571;9.946;15.462;251.3;1.758849|41:38.1;115.469;9.949;12.326;251.3;4.3993689|41:57.2;121.507;9.946;11.437;251.3;6.9502004|40:76.3;122.888;9.949;11.33;251.4;9.3763544|40:95.4;124.56;9.946;11.055;251.3;11.883024|43:114.6;126.024;9.948;10.751;251.4;14.4423504|42:133.7;127.465;9.946;10.41;251.4;17.0420705|42:152.8;128.805;9.948;10.065;251.4;19.681404|39:172;129.403;9.945;9.798;251.4;22.257316|0:|36:19;84.22;11.954;13.648;251.4;1.60018|40:38.1;99.629;11.95;11.777;251.4;3.7958649|42:57.3;103.843;11.953;11.197;251.4;5.9502039|41:76.4;106.147;11.95;10.895;251.4;8.1096308|43:95.5;108.411;11.953;10.502;251.4;10.3532505|43:114.6;110.453;11.95;10.093;251.4;12.6579138|43:133.8;112.232;11.953;9.689;251.4;15.0166416|42:152.9;113.881;11.95;9.295;251.4;17.4124049|43:172.1;115.033;11.952;8.994;251.4;19.7971793|42:191.2;115.818;11.95;8.771;251.4;22.1444016|0:|41:19.1;74.664;13.958;12.019;251.4;1.4260824|41:38.2;82.819;13.956;11.395;251.4;3.1636858|41:57.3;86.536;13.958;10.865;251.4;4.9585128|41:76.4;89.536;13.956;10.386;251.4;6.8405504|37:95.5;92.34;13.958;9.864;251.4;8.81847|42:114.7;94.916;13.956;9.328;251.4;10.8868652|42:133.8;97.056;13.958;8.842;251.5;12.9860928|42:152.9;98.962;13.955;8.396;251.4;15.1312898|42:172.1;100.389;13.958;8.05;251.5;17.2769469|39:191.3;101.4;13.955;7.798;251.5;19.39782|42:210.5;102.344;13.958;7.556;251.5;21.543412|0:|40:19.1;63.069;15.96;10.936;251.5;1.2046179|41:38.2;66.954;15.963;10.919;251.5;2.5576428|41:57.3;70.483;15.959;10.395;251.5;4.0386759|39:76.4;74.023;15.962;9.75;251.5;5.6553572|40:95.6;77.217;15.959;9.125;251.5;7.3819452|39:114.7;80.16;15.962;8.489;251.5;9.194352|42:133.9;82.655;15.959;7.921;251.5;11.0675045|39:153;84.751;15.961;7.425;251.5;12.966903|42:172.2;86.374;15.959;7.043;251.5;14.8736028|41:191.4;87.489;15.961;6.77;251.5;16.7453946|42:210.6;88.523;15.959;6.526;251.5;18.6429438|41:229.8;89.357;15.961;6.33;251.5;20.5342386|0:|38:19.1;52.59;17.963;9.609;251.5;1.004469|41:38.2;52.743;17.966;10.353;251.5;2.0147826|40:57.3;55.703;17.963;9.919;251.5;3.1917819|38:76.5;59.59;17.965;9.158;251.5;4.558635|38:95.6;63.075;17.963;8.445;251.5;6.02997|41:114.8;66.344;17.965;7.717;251.5;7.6162912|38:133.9;69.16;17.963;7.07;251.5;9.260524|42:153.1;71.493;17.965;6.522;251.5;10.9455783|41:172.2;73.315;17.963;6.095;251.5;12.624843|42:191.4;74.592;17.965;5.791;251.6;14.2769088|42:210.6;75.709;17.963;5.536;251.5;15.9443154|40:229.9;76.57;17.965;5.336;251.6;17.603443|42:249.1;77.439;17.962;5.134;251.5;19.2900549|42:268.4;78.251;17.965;4.941;251.6;21.0025684|0:|40:19.1;43.759;19.966;8.263;251.5;0.8357969|40:38.2;40.859;19.968;9.589;251.6;1.5608138|40:57.4;42.526;19.966;9.444;251.6;2.4409924|40:76.5;46.499;19.968;8.635;251.6;3.5571735|40:95.7;50.245;19.966;7.838;251.6;4.8084465|41:114.8;53.771;19.968;7.042;251.6;6.1729108|38:134;56.884;19.966;6.321;251.6;7.622456|41:153.2;59.422;19.968;5.725;251.6;9.1034504|42:172.3;61.409;19.966;5.265;251.6;10.5807707|41:191.5;62.844;19.968;4.932;251.6;12.034626|42:210.7;64.025;19.965;4.667;251.6;13.4900675|42:229.9;64.958;19.968;4.457;251.6;14.9338442|41:249.2;65.871;19.965;4.25;251.6;16.4150532|42:268.5;66.697;19.968;4.058;251.6;17.9081445|42:287.7;67.485;19.964;3.883;251.6;19.4154345|42:307.1;68.169;19.968;3.734;251.6;20.9346999|0:|39:19.1;37.125;21.97;6.705;251.6;0.7090875|40:38.3;31.959;21.972;8.501;251.6;1.2240297|39:57.4;31.431;21.97;8.891;251.6;1.8041394|40:76.6;35.014;21.972;8.148;251.6;2.6820724|39:95.7;38.962;21.97;7.276;251.6;3.7286634|41:114.9;42.615;21.972;6.438;251.6;4.8964635|41:134.1;45.939;21.969;5.658;251.6;6.1604199|40:153.2;48.659;21.972;5.02;251.6;7.4545588|39:172.4;50.77;21.969;4.535;251.6;8.752748|42:191.6;52.309;21.972;4.182;251.6;10.0224044|41:210.8;53.545;21.969;3.911;251.6;11.287286|42:230.1;54.524;21.972;3.696;251.6;12.5459724|42:249.3;55.457;21.968;3.492;251.6;13.8254301|41:268.6;56.272;21.972;3.31;251.6;15.1146592|42:287.8;57.028;21.969;3.147;251.6;16.4126584|42:307.2;57.669;21.972;3.013;251.6;17.7159168|42:326.5;58.247;21.969;2.901;251.6;19.0176455|40:345.9;58.767;21.972;2.8;251.7;20.3275053|0:|40:19.1;31.058;23.974;5.372;251.6;0.5932078|39:38.3;25.542;23.976;7.17;251.7;0.9782586|35:57.5;22.6;23.973;8.153;251.7;1.2995|40:76.7;25.011;23.975;7.683;251.7;1.9183437|40:95.8;29.011;23.973;6.761;251.7;2.7792538|38:115;32.707;23.975;5.895;251.7;3.761305|41:134.2;36.143;23.973;5.079;251.7;4.8503906|41:153.4;38.974;23.975;4.407;251.7;5.9786116|41:172.5;41.165;23.973;3.902;251.7;7.1009625|37:191.8;42.8;23.975;3.534;251.7;8.20904|39:210.9;44.05;23.972;3.261;251.7;9.290145|41:230.2;45.075;23.975;3.041;251.7;10.376265|42:249.4;45.994;23.973;2.844;251.7;11.4709036|42:268.7;46.785;23.975;2.672;251.7;12.5711295|39:288;47.504;23.973;2.525;251.7;13.681152|42:307.3;48.099;23.975;2.406;251.7;14.7808227|42:326.7;48.636;23.973;2.309;251.7;15.8893812|42:346.1;49.121;23.975;2.223;251.7;17.0007781|41:365.5;49.598;23.972;2.145;251.7;18.128069|41:384.9;50.066;23.975;2.07;251.7;19.2704034|0:|40:19.1;25.349;25.978;4.264;251.7;0.4841659|37:38.4;20.65;25.979;5.789;251.7;0.79296|40:57.6;16.584;25.977;7.037;251.7;0.9552384|38:76.8;16.68;25.979;7.171;251.8;1.281024|40:95.9;20.434;25.977;6.292;251.7;1.9596206|41:115.1;24.171;25.979;5.409;251.8;2.7820821|40:134.3;27.679;25.977;4.58;251.8;3.7172897|40:153.5;30.622;25.979;3.889;251.8;4.700477|41:172.7;32.892;25.976;3.374;251.8;5.6804484|41:191.9;34.584;25.979;2.998;251.8;6.6366696|41:211.1;35.889;25.976;2.722;251.8;7.5761679|39:230.3;36.969;25.979;2.5;251.8;8.5139607|41:249.6;37.908;25.976;2.316;251.8;9.4618368|42:268.8;38.714;25.979;2.161;251.8;10.4063232|39:288.1;39.43;25.976;2.03;251.8;11.359783|42:307.4;40.028;25.979;1.927;251.8;12.3046072|42:326.8;40.562;25.976;1.845;251.8;13.2556616|42:346.2;41.044;25.979;1.772;251.8;14.2094328|42:365.6;41.521;25.976;1.706;251.8;15.1800776|40:385.1;41.96;25.979;1.643;251.8;16.158796|0:|0:|
}
Add(StringTable,9402902,609,196)
{
Top=40
Width=675
Height=505
Columns=#1:1|1:2|1:3|1:4|1:5|1:6|5:7=150|
Grid=0
Point(EndIdx)
Point(doSelect)
}
Add(ArrayEnum,12176724,252,196)
{
link(onItem,11170334:doCompare,[])
link(Array,803029:Array,[])
}
Add(Hub,9748896,343,196)
{
link(onEvent1,2376252:doWork2,[])
link(onEvent2,16415616:doSplit,[])
}
Add(MultiStrData,16415616,371,203)
{
Count=4
link(onPart3,11891412:doOperation,[])
}
Add(Math,11891412,455,217)
{
Point(doClear)
link(onResult,12107531:doOperation,[])
link(Op1,14673411:Var3,[(461,205)(504,205)(504,264)])
}
Add(GetDataEx,14673411,455,259)
{
link(Data,11891412:Result,[])
}
Add(If_else,11170334,294,196)
{
Type=5
Op2=String()
link(onTrue,9748896:doEvent1,[])
link(onFalse,14901304:doEvent1,[(333,209)(333,279)])
}
Add(Hub,179446,385,245)
{
link(onEvent1,11891412:doClear,[(427,251)(427,230)])
link(onEvent2,12107531:doClear,[(492,258)(492,230)])
}
Add(Math,12107531,511,217)
{
Op2=1
Point(doClear)
link(onResult,5778538:doOperation,[(559,223)(559,287)(443,287)(443,300)])
link(Op1,6024330:Var3,[(517,205)(535,205)(535,268)])
}
Add(Math,5778538,455,294)
{
OpType=3
Point(doClear)
link(Op1,14673411:Var2,[])
link(Op2,6024330:Var1,[(468,268)])
}
Add(GetDataEx,6024330,511,263)
{
link(Data,12107531:Result,[])
}
Add(Hub,10822238,224,189)
{
link(onEvent1,9402902:doClear,[(603,195)(603,209)])
link(onEvent2,12176724:doEnum,[])
}
Add(DoData,1252656,623,350)
{
link(onEventData,9402902:doDelete,[(667,356)(667,338)(590,338)(590,216)])
link(Data,15221040:Value,[])
}
Add(Memory,15221040,623,273)
{
Point(Data)
link(onData,13446404:doEvent1,[])
link(Data,9402902:EndIdx,[])
}
Add(FormatStr,8895139,455,350)
{
Mask="%2%1"
link(onFString,13756793:doEvent1,[])
link(Str1,5778538:Result,[])
link(Str2,9402902:Select,[(468,328)(622,328)])
}
Add(Hub,13446404,665,273)
{
link(onEvent1,9402902:doSelect,[(688,279)(688,250)(597,250)(597,237)])
link(onEvent2,8895139:doString,[(689,286)(689,399)(441,399)(441,356)])
}
Add(HubEx,2376252,574,196)
{
link(onEvent,9402902:doAdd,[])
}
Add(Hub,13756793,497,350)
{
OutCount=3
link(onEvent1,1252656:doData,[])
link(onEvent2,16660741:doWork2,[])
link(onEvent3,11676620:doClear,[(518,370)(518,377)])
}
Add(Hub,14901304,343,273)
{
link(onEvent1,15221040:doValue,[])
link(onEvent2,179446:doEvent1,[(365,286)(365,251)])
}
Add(Memory,11676620,525,364)
{
link(onData,16660741:doWork3,[(578,370)])
}
Add(HubEx,16660741,574,357)
{
Angle=3
link(onEvent,2376252:doWork3,[])
}


Редактировалось 3 раз(а), последний 2017-12-27 09:03:41
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 16884
Рейтинг: 1239
#3: 2017-12-27 16:24:45 ЛС | профиль | цитата
А так прямо из файла:
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1Project320.rar [1.1KB] [294]
Ответов: 91
Рейтинг: 6
#4: 2017-12-27 19:34:56 ЛС | профиль | цитата
Тад, огромное спасибо!
Я дико извиняюсь - не нашел способа прикладывать файл....

--- Добавлено в 2017-12-27 19:45:20

Тад - только что проверил - это работает!!!
Нет слов, снимаю шляпу!
Преогромнейшее спасибо!

Редактировалось 1 раз(а), последний 2017-12-27 19:45:20
карма: 0

0
Ответов: 91
Рейтинг: 6
#5: 2018-01-09 22:24:13 ЛС | профиль | цитата
Тад, прошу помощи....
Большая проблема...

Дело в том что конечная таблица сохраняется в текстовом файле, и далее должна обрабатываться программой для построения графиков. Так эта программа, не понимает последовательность знаков разделитетей - ;;;;;; для неё это значения, а для таблицы пустые клетки. Из за этого дальнейшая обработка значений становится невозможной.

Честно - я не нашел способа сохранения данных из таблицы в текстовый файл с пустой строкой вместо знаков разделителей.
Могли бы вы мне помочь?

Прилагаю оригинальный файл принятый последовательно с прибора, и файл такой какой нужен для программы.
карма: 0

0
файлы: 2original.rar [1.1KB] [293], after redaction.rar [1.1KB] [282]
Ответов: 8888
Рейтинг: 823
#6: 2018-01-09 23:30:28 ЛС | профиль | цитата
ibegen,


Add(MainForm,2953706,119,140)
{
link(onCreate,11516953:doEvent1,[])
}
Add(StrList,13198036,203,126)
{
FileName="C:\Downloads\original\original.txt"
}
Add(ListBox,10283705,441,189)
{
Left=5
Top=5
Width=375
Height=255
}
Add(ArrayEnum,14519901,217,189)
{
link(onItem,6658648:doCase,[])
link(Array,13198036:Array,[])
}
Add(Hub,11516953,168,154)
{
link(onEvent1,13198036:doLoad,[])
link(onEvent2,14519901:doEnum,[(193,167)(193,195)])
}
Add(Case,6658648,266,189)
{
Value=String(1;2;3;4;5;6;7)
link(onNextCase,6058272:doCase,[])
link(onTrue,7688062:doWork3,[(305,202)(305,209)(361,209)])
}
Add(Case,6058272,315,189)
{
Value=String(;;;;;;)
link(onNextCase,9854708:doWork2,[])
link(onTrue,7688062:doWork2,[])
}
Add(DoData,14960707,371,196)
{
Data=String()
link(onEventData,9854708:doWork3,[(417,202)])
}
Add(HubEx,9854708,413,189)
{
link(onEvent,10283705:doAdd,[])
}
Add(HubEx,7688062,357,196)
{
link(onEvent,14960707:doData,[])
}

карма: 19

0
Ответов: 2059
Рейтинг: 131
#7: 2018-01-10 00:21:04 ЛС | профиль | цитата
̶К̶т̶о̶ ̶е̶щ̶ё̶ ̶Т̶а̶д̶?̶ Кто ещё сын лейтенанта Шмидта?

Add(MainForm,2953706,21,105)
{
Width=729
Height=616
}
Add(Memo,12338189,294,56)
{
Left=75
Top=10
Width=310
Height=570
ScrollBars=2
}
Add(Memo,13605333,507,68)
{
Left=395
Top=10
Width=310
Height=570
ScrollBars=2
}
Add(Button,3126655,119,84)
{
Left=5
Top=25
link(onClick,4880804:doExecute,[])
}
Add(ODialog,4880804,182,84)
{
link(onExecute,12338189:doLoad,[])
}
Add(Button,409148,119,140)
{
Left=5
Top=65
link(onClick,12875589:doReplace,[(223,146)(223,125)])
}
Add(RE_Replace,12875589,294,119)
{
Expression="(;;;)"
link(onReplace,13605333:doAdd,[(416,125)(416,74)])
link(SourceStr,12338189:Text,[])
}


Редактировалось 2 раз(а), последний 2018-01-10 01:31:27
карма: 6

0
Ответов: 16884
Рейтинг: 1239
#8: 2018-01-10 09:42:22 ЛС | профиль | цитата
flint2, а как тебе такой фаллометер?
v1.jpg
v2.jpg
v3.jpg

ibegen, в StringTable сделай StaticColumn=True
(не будет тогда строки 1;2;3;4;5;6;7)

Add(MainForm,12205498,105,126)
{
link(onCreate,4880804:doExecute,[])
}
Add(StrList,13198036,266,112)
{
FileName="original.txt"
}
Add(ListBox,10283705,329,147)
{
Left=5
Top=5
Width=375
Height=255
}
Add(Hub,11516953,217,140)
{
link(onEvent1,13198036:doLoad,[])
link(onEvent2,8237800:doReplace,[(255,153)(255,174)])
}
Add(Replace,8237800,266,168)
{
SubStr=";;;;;;"
DestStr=" "
link(onReplace,10283705:doText,[])
link(Str,13198036:Text,[])
}
Add(ODialog,4880804,168,140)
{
link(onExecute,11516953:doEvent1,[])
}


Редактировалось 7 раз(а), последний 2018-01-10 11:09:28
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 2059
Рейтинг: 131
#9: 2018-01-10 15:01:14 ЛС | профиль | цитата
ibegen, думаю, что так будет правильно.

Add(Button,3126655,49,112)
{
Left=95
Top=535
link(onClick,4880804:doExecute,[])
}
Add(ODialog,4880804,112,112)
{
link(onExecute,14989768:doEvent1,[])
}
Add(Hub,14989768,175,112)
{
link(onEvent1,10283705:doLoad,[(255,118)(255,160)])
link(onEvent2,12875589:doReplace,[(203,125)(203,153)])
}
Add(MainForm,4093148,56,49)
{
Width=362
Height=588
}
Add(ListBox,10283705,322,126)
{
Left=5
Top=5
Width=335
Height=515
}
Add(RE_Replace,12875589,217,147)
{
Expression="((1;2;3;4;5;6;7)|(;;;;;;))"
ReplaceStr=" "
link(onReplace,10283705:doText,[])
link(SourceStr,10283705:Text,[(223,135)(283,135)(283,183)(328,183)])
}

Про строку "1;2;3;4;5;6;7" совсем забыл.
Только вот неизвестно, эта строка именно такая всегда, или цифири могут быть другими?
Тоже самое и с ";;;;;;", число знаков постоянно?
Если нет, то можно поправить немножко регулярное выражение. (([0-9])(;)+) и (;;).
Tad, согласен, что регулярные чуть больше весят, зато на все случаи жизни.

Редактировалось 3 раз(а), последний 2018-01-10 15:22:34
карма: 6

0
Ответов: 16884
Рейтинг: 1239
#10: 2018-01-10 19:08:04 ЛС | профиль | цитата
ibegen,просто примени ListBox


Add(MainForm,10405509,224,175)
{
Width=694
Height=586
link(onCreate,10822238:doEvent1,[])
}
Add(StrList,803029,287,119)
{
Strings=#40:18.9;98.295;0.004;29.228;250.4;1.8577755|34:38;157.729;0;15.842;250.4;5.993702|34:57;166.869;0;13.148;250.5;9.511533|38:76.1;168.625;0;12.465;250.6;12.8323625|38:95.2;168.798;0;12.404;250.6;16.0695696|37:114.3;169.52;0;12.337;250.7;19.376136|39:133.4;159.153;0;11.744;250.7;21.2310102|0:|39:18.9;96.106;1.913;24.93;250.8;1.8164034|37:38;148.226;1.91;15.765;250.8;5.632588|41:57.1;162.159;1.914;13.205;250.9;9.2592789|42:76.2;165.856;1.911;12.639;250.9;12.6382272|40:95.3;166.93;1.913;12.604;250.9;15.908429|39:114.3;168.03;1.911;12.508;251;19.205829|40:133.5;169.278;1.914;12.306;251;22.598613|0:|37:19;102.095;3.93;23.824;251.1;1.939805|41:38.1;148.708;3.932;15.545;251.1;5.6657748|40:57.2;162.307;3.93;12.921;251.1;9.2839604|41:76.3;164.507;3.932;12.54;251.1;12.5518841|39:95.3;164.88;3.93;12.485;251.1;15.713064|42:114.5;165.284;3.932;12.355;251.2;18.925018|42:133.5;165.885;3.93;12.125;251.2;22.1456475|0:|38:19;102.679;5.938;21.226;251.2;1.950901|41:38.1;141.098;5.936;14.435;251.2;5.3758338|41:57.2;153.083;5.938;12.179;251.2;8.7563476|42:76.3;153.854;5.935;12.058;251.2;11.7390602|42:95.4;154.082;5.938;11.951;251.2;14.6994228|43:114.5;154.411;5.935;11.781;251.2;17.6800595|43:133.6;154.899;5.938;11.526;251.3;20.6945064|0:|36:19;97.873;7.94;17.953;251.3;1.859587|41:38.1;129.244;7.943;13.125;251.3;4.9241964|41:57.2;138.147;7.941;11.666;251.3;7.9020084|42:76.3;138.794;7.943;11.672;251.3;10.5899822|41:95.4;139.842;7.94;11.497;251.3;13.3409268|41:114.5;140.778;7.943;11.29;251.3;16.119081|40:133.6;141.815;7.94;11.01;251.3;18.946484|43:152.8;142.872;7.943;10.698;251.3;21.8308416|0:|37:19;92.571;9.946;15.462;251.3;1.758849|41:38.1;115.469;9.949;12.326;251.3;4.3993689|41:57.2;121.507;9.946;11.437;251.3;6.9502004|40:76.3;122.888;9.949;11.33;251.4;9.3763544|40:95.4;124.56;9.946;11.055;251.3;11.883024|43:114.6;126.024;9.948;10.751;251.4;14.4423504|42:133.7;127.465;9.946;10.41;251.4;17.0420705|42:152.8;128.805;9.948;10.065;251.4;19.681404|39:172;129.403;9.945;9.798;251.4;22.257316|0:|36:19;84.22;11.954;13.648;251.4;1.60018|40:38.1;99.629;11.95;11.777;251.4;3.7958649|42:57.3;103.843;11.953;11.197;251.4;5.9502039|41:76.4;106.147;11.95;10.895;251.4;8.1096308|43:95.5;108.411;11.953;10.502;251.4;10.3532505|43:114.6;110.453;11.95;10.093;251.4;12.6579138|43:133.8;112.232;11.953;9.689;251.4;15.0166416|42:152.9;113.881;11.95;9.295;251.4;17.4124049|43:172.1;115.033;11.952;8.994;251.4;19.7971793|42:191.2;115.818;11.95;8.771;251.4;22.1444016|0:|41:19.1;74.664;13.958;12.019;251.4;1.4260824|41:38.2;82.819;13.956;11.395;251.4;3.1636858|41:57.3;86.536;13.958;10.865;251.4;4.9585128|41:76.4;89.536;13.956;10.386;251.4;6.8405504|37:95.5;92.34;13.958;9.864;251.4;8.81847|42:114.7;94.916;13.956;9.328;251.4;10.8868652|42:133.8;97.056;13.958;8.842;251.5;12.9860928|42:152.9;98.962;13.955;8.396;251.4;15.1312898|42:172.1;100.389;13.958;8.05;251.5;17.2769469|39:191.3;101.4;13.955;7.798;251.5;19.39782|42:210.5;102.344;13.958;7.556;251.5;21.543412|0:|40:19.1;63.069;15.96;10.936;251.5;1.2046179|41:38.2;66.954;15.963;10.919;251.5;2.5576428|41:57.3;70.483;15.959;10.395;251.5;4.0386759|39:76.4;74.023;15.962;9.75;251.5;5.6553572|40:95.6;77.217;15.959;9.125;251.5;7.3819452|39:114.7;80.16;15.962;8.489;251.5;9.194352|42:133.9;82.655;15.959;7.921;251.5;11.0675045|39:153;84.751;15.961;7.425;251.5;12.966903|42:172.2;86.374;15.959;7.043;251.5;14.8736028|41:191.4;87.489;15.961;6.77;251.5;16.7453946|42:210.6;88.523;15.959;6.526;251.5;18.6429438|41:229.8;89.357;15.961;6.33;251.5;20.5342386|0:|38:19.1;52.59;17.963;9.609;251.5;1.004469|41:38.2;52.743;17.966;10.353;251.5;2.0147826|40:57.3;55.703;17.963;9.919;251.5;3.1917819|38:76.5;59.59;17.965;9.158;251.5;4.558635|38:95.6;63.075;17.963;8.445;251.5;6.02997|41:114.8;66.344;17.965;7.717;251.5;7.6162912|38:133.9;69.16;17.963;7.07;251.5;9.260524|42:153.1;71.493;17.965;6.522;251.5;10.9455783|41:172.2;73.315;17.963;6.095;251.5;12.624843|42:191.4;74.592;17.965;5.791;251.6;14.2769088|42:210.6;75.709;17.963;5.536;251.5;15.9443154|40:229.9;76.57;17.965;5.336;251.6;17.603443|42:249.1;77.439;17.962;5.134;251.5;19.2900549|42:268.4;78.251;17.965;4.941;251.6;21.0025684|0:|40:19.1;43.759;19.966;8.263;251.5;0.8357969|40:38.2;40.859;19.968;9.589;251.6;1.5608138|40:57.4;42.526;19.966;9.444;251.6;2.4409924|40:76.5;46.499;19.968;8.635;251.6;3.5571735|40:95.7;50.245;19.966;7.838;251.6;4.8084465|41:114.8;53.771;19.968;7.042;251.6;6.1729108|38:134;56.884;19.966;6.321;251.6;7.622456|41:153.2;59.422;19.968;5.725;251.6;9.1034504|42:172.3;61.409;19.966;5.265;251.6;10.5807707|41:191.5;62.844;19.968;4.932;251.6;12.034626|42:210.7;64.025;19.965;4.667;251.6;13.4900675|42:229.9;64.958;19.968;4.457;251.6;14.9338442|41:249.2;65.871;19.965;4.25;251.6;16.4150532|42:268.5;66.697;19.968;4.058;251.6;17.9081445|42:287.7;67.485;19.964;3.883;251.6;19.4154345|42:307.1;68.169;19.968;3.734;251.6;20.9346999|0:|39:19.1;37.125;21.97;6.705;251.6;0.7090875|40:38.3;31.959;21.972;8.501;251.6;1.2240297|39:57.4;31.431;21.97;8.891;251.6;1.8041394|40:76.6;35.014;21.972;8.148;251.6;2.6820724|39:95.7;38.962;21.97;7.276;251.6;3.7286634|41:114.9;42.615;21.972;6.438;251.6;4.8964635|41:134.1;45.939;21.969;5.658;251.6;6.1604199|40:153.2;48.659;21.972;5.02;251.6;7.4545588|39:172.4;50.77;21.969;4.535;251.6;8.752748|42:191.6;52.309;21.972;4.182;251.6;10.0224044|41:210.8;53.545;21.969;3.911;251.6;11.287286|42:230.1;54.524;21.972;3.696;251.6;12.5459724|42:249.3;55.457;21.968;3.492;251.6;13.8254301|41:268.6;56.272;21.972;3.31;251.6;15.1146592|42:287.8;57.028;21.969;3.147;251.6;16.4126584|42:307.2;57.669;21.972;3.013;251.6;17.7159168|42:326.5;58.247;21.969;2.901;251.6;19.0176455|40:345.9;58.767;21.972;2.8;251.7;20.3275053|0:|40:19.1;31.058;23.974;5.372;251.6;0.5932078|39:38.3;25.542;23.976;7.17;251.7;0.9782586|35:57.5;22.6;23.973;8.153;251.7;1.2995|40:76.7;25.011;23.975;7.683;251.7;1.9183437|40:95.8;29.011;23.973;6.761;251.7;2.7792538|38:115;32.707;23.975;5.895;251.7;3.761305|41:134.2;36.143;23.973;5.079;251.7;4.8503906|41:153.4;38.974;23.975;4.407;251.7;5.9786116|41:172.5;41.165;23.973;3.902;251.7;7.1009625|37:191.8;42.8;23.975;3.534;251.7;8.20904|39:210.9;44.05;23.972;3.261;251.7;9.290145|41:230.2;45.075;23.975;3.041;251.7;10.376265|42:249.4;45.994;23.973;2.844;251.7;11.4709036|42:268.7;46.785;23.975;2.672;251.7;12.5711295|39:288;47.504;23.973;2.525;251.7;13.681152|42:307.3;48.099;23.975;2.406;251.7;14.7808227|42:326.7;48.636;23.973;2.309;251.7;15.8893812|42:346.1;49.121;23.975;2.223;251.7;17.0007781|41:365.5;49.598;23.972;2.145;251.7;18.128069|41:384.9;50.066;23.975;2.07;251.7;19.2704034|0:|40:19.1;25.349;25.978;4.264;251.7;0.4841659|37:38.4;20.65;25.979;5.789;251.7;0.79296|40:57.6;16.584;25.977;7.037;251.7;0.9552384|38:76.8;16.68;25.979;7.171;251.8;1.281024|40:95.9;20.434;25.977;6.292;251.7;1.9596206|41:115.1;24.171;25.979;5.409;251.8;2.7820821|40:134.3;27.679;25.977;4.58;251.8;3.7172897|40:153.5;30.622;25.979;3.889;251.8;4.700477|41:172.7;32.892;25.976;3.374;251.8;5.6804484|41:191.9;34.584;25.979;2.998;251.8;6.6366696|41:211.1;35.889;25.976;2.722;251.8;7.5761679|39:230.3;36.969;25.979;2.5;251.8;8.5139607|41:249.6;37.908;25.976;2.316;251.8;9.4618368|42:268.8;38.714;25.979;2.161;251.8;10.4063232|39:288.1;39.43;25.976;2.03;251.8;11.359783|42:307.4;40.028;25.979;1.927;251.8;12.3046072|42:326.8;40.562;25.976;1.845;251.8;13.2556616|42:346.2;41.044;25.979;1.772;251.8;14.2094328|42:365.6;41.521;25.976;1.706;251.8;15.1800776|40:385.1;41.96;25.979;1.643;251.8;16.158796|0:|0:|
}
Add(ArrayEnum,12176724,301,196)
{
link(onItem,11170334:doCompare,[])
link(Array,803029:Array,[])
}
Add(Hub,9748896,392,196)
{
link(onEvent1,2376252:doWork2,[])
link(onEvent2,16415616:doSplit,[])
}
Add(MultiStrData,16415616,420,203)
{
Count=4
link(onPart3,11891412:doOperation,[])
}
Add(Math,11891412,504,217)
{
Point(doClear)
link(onResult,12107531:doOperation,[])
link(Op1,14673411:Var3,[(510,205)(553,205)(553,264)])
}
Add(GetDataEx,14673411,504,259)
{
link(Data,11891412:Result,[])
}
Add(If_else,11170334,343,196)
{
Type=5
Op2=String()
link(onTrue,9748896:doEvent1,[])
link(onFalse,14901304:doEvent1,[(382,209)(382,279)])
}
Add(Hub,179446,434,245)
{
link(onEvent1,11891412:doClear,[(476,251)(476,230)])
link(onEvent2,12107531:doClear,[(541,258)(541,230)])
}
Add(Math,12107531,560,217)
{
Op2=1
Point(doClear)
link(onResult,5778538:doOperation,[(608,223)(608,287)(492,287)(492,300)])
link(Op1,6024330:Var3,[(566,205)(584,205)(584,268)])
}
Add(Math,5778538,504,294)
{
OpType=3
Point(doClear)
link(Op1,14673411:Var2,[])
link(Op2,6024330:Var1,[(517,268)])
}
Add(GetDataEx,6024330,560,263)
{
link(Data,12107531:Result,[])
}
Add(Hub,10822238,273,189)
{
link(onEvent1,10020206:doClear,[(640,195)(640,209)])
link(onEvent2,12176724:doEnum,[])
}
Add(DoData,1252656,672,350)
{
link(onEventData,10020206:doDelete,[(716,356)(716,323)(633,323)(633,216)])
link(Data,15221040:Value,[])
}
Add(Memory,15221040,672,273)
{
Point(Data)
link(onData,13446404:doEvent1,[])
link(Data,10020206:EndIdx,[])
}
Add(FormatStr,8895139,504,350)
{
Mask="%2;%1"
link(onFString,13756793:doEvent1,[])
link(Str1,5778538:Result,[])
link(Str2,10020206:String,[(517,299)(671,299)])
}
Add(Hub,13446404,714,273)
{
link(onEvent1,10020206:doSelect,[(740,279)(740,261)(639,261)(639,244)])
link(onEvent2,8895139:doString,[(738,286)(738,399)(490,399)(490,356)])
}
Add(HubEx,2376252,623,196)
{
link(onEvent,10020206:doAdd,[])
}
Add(Hub,13756793,546,350)
{
OutCount=3
link(onEvent1,1252656:doData,[])
link(onEvent2,16660741:doWork2,[])
link(onEvent3,11676620:doClear,[(567,370)(567,377)])
}
Add(Hub,14901304,392,273)
{
link(onEvent1,15221040:doValue,[])
link(onEvent2,179446:doEvent1,[(414,286)(414,251)])
}
Add(Memory,11676620,574,364)
{
link(onData,16660741:doWork3,[(627,370)])
}
Add(HubEx,16660741,623,357)
{
Angle=3
link(onEvent,2376252:doWork3,[])
}
Add(ListBox,10020206,644,196)
{
Top=40
Width=675
Height=505
Point(doSelect)
Point(String)
Point(EndIdx)
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 91
Рейтинг: 6
#11: 2018-01-10 20:42:40 ЛС | профиль | цитата
Мужики!!!
Спасибо за вашу помощь!
Результат прикрепляю.
карма: 0

0
файлы: 1name.png [69.3KB] [603]
11
Сообщение
...
Прикрепленные файлы
(файлы не залиты)