常連

### 前提

Pythonで特定のURLのWEBページをPDF化して、
ダウンロードするツールを作成しています。

PDF化したWEBページをダウンロードするところまでは
以下URLの参考ページを基にできました。
https://degitalization.hatenablog.jp/entry/2021/03/13/102805

一方で、PDF化する対象が複数ページにまたがる場合に
不具合が発生しました。

### 発生している問題・エラーメッセージ
複数ページにまたがる際、ページの区切り位置にある
画像や文字がヘッダーと思われるものに上書きされてしまう。

### 実現したいこと
WEBページに掲載されているすべての情報を見切れなく取得したい。


### 該当のソースコード
```Python
from selenium import webdriver
from selenium.webdriver.chrome.options import Options
from selenium.webdriver.support.ui import WebDriverWait
from selenium.webdriver.support import expected_conditions as EC
import json
import time

def PrintSetUp():
    #印刷としてPDF保存する設定
    chopt=webdriver.ChromeOptions()
    appState = {
        "recentDestinations": [
            {
                "id": "Save as PDF",
                "origin": "local",
                "account":""
            }
        ],
        "selectedDestinationId": "Save as PDF",
        "version": 2,
        "isLandscapeEnabled": True, #印刷の向きを指定 tureで横向き、falseで縦向き。
        "pageSize": 'A4', #用紙タイプ(A3、A4、A5、Legal、 Letter、Tabloidなど)
        #"mediaSize": {"height_microns": 355600, "width_microns": 215900}, #紙のサイズ　（10000マイクロメートル = １cm）
        #"marginsType": 0, #余白タイプ #0:デフォルト 1:余白なし 2:最小
        #"scalingType": 3 , #0：デフォルト 1：ページに合わせる 2：用紙に合わせる 3：カスタム
        #"scaling": "141" ,#倍率
        #"profile.managed_default_content_settings.images": 2,  #画像を読み込ませない
        "isHeaderFooterEnabled": True, #ヘッダーとフッター
        "isCssBackgroundEnabled": True, #背景のグラフィック
        #"isDuplexEnabled": False, #両面印刷 tureで両面印刷、falseで片面印刷
        #"isColorEnabled": True, #カラー印刷 trueでカラー、falseで白黒
        #"isCollateEnabled": True #部単位で印刷
    }
    
prefs = {'printing.print_preview_sticky_settings.appState':
             json.dumps(appState),
             "download.default_directory": "~/Downloads"
             } #appState --> pref
    chopt.add_experimental_option('prefs', prefs) #prefs --> chopt
    chopt.add_argument('--kiosk-printing') #印刷ダイアログが開くと、印刷ボタンを無条件に押す。
    return chopt

def main_WebToPDF(BlogURL):
    #Web ページもしくはhtmlファイルをPDFにSeleniumを使って変換する
    chopt = PrintSetUp()
    driver_path = "./chromedriver" #webdriverのパス
    driver = webdriver.Chrome(executable_path=driver_path, options=chopt)
    driver.implicitly_wait(10) # 秒 暗示的待機 
    driver.get(BlogURL) #ブログのURL 読み込み
    WebDriverWait(driver, 15).until(EC.presence_of_all_elements_located)  # ページ上のすべての要素が読み込まれるまで待機（15秒でタイムアウト判定）
    driver.execute_script('return window.print()') #Print as PDF
    time.sleep(10) #ファイルのダウンロードのために10秒待機
    driver.quit() #Close Screen
    
if __name__ == '__main__':
    BlogURLList=['https://degitalization.hatenablog.jp/entry/2020/05/15/084033', 
                 'https://note.com/makkynm/n/n1343f41c2fb7',
                "file:///Users/makky/Documents/Python/Sample.html"]
    for BlogURL in  BlogURLList:
        main_WebToPDF(BlogURL)
```

### 試したこと
設定のうち、ヘッダーの表示を問う部分を
表示しないよう設定しましたが、
結果に変わりがありませんでした。
### 該当のソースコード
```Python
isHeaderFooterEnabled:False,
```

### 補足情報（FW/ツールのバージョンなど）
Pythonのバージョン： 3.10.0 
OSのバージョン：Windows 10

以上となります。
よろしくお願いいたします。


PythonでWebページをPDF化すると、見切れが発生してしまう


以下の記述（html、js）でソート絞り込みを実装しているのですが、

html
```ここに言語を入力
<select id="facility" name="facility" size="1">
<option value="">ALL</option>
<option value="facility01">facility01</option>
<option value="facility02">facility02</option>
<option value="facility03">facility03</option>
<option value="facility04">facility04</option>
<option value="facility05">facility05</option>
<option value="facility06">facility06</option>
<option value="facility07">facility07</option>
</select>
```

jsの記述
```ここに言語を入力
$(function () {
    var slc_elm = document.querySelector("#facility");
    slc_elm.addEventListener("focus", function (elm) {
        if (elm.currentTarget.options.length >= 11) {
            elm.currentTarget.size = "10";
        }
    }, false);
    slc_elm.addEventListener("blur", function (elm) {
        elm.currentTarget.size = "1";
    }, false);
    slc_elm.addEventListener("change", function (elm) {
        elm.currentTarget.blur();
    }, false);
});
```

追加する記述
```ここに言語を入力
dataLayer.push({
  ‘event’: ‘shop_movie_live_event’,
  ‘event_category’: ‘施設変更’,
  ‘event_action’: ‘[[選択した施設名]]’,
});
```
→この記述（dataLayer〜）をjsの以下の箇所に追加した後、セレクトした値によって [[ ]] で囲っている部分が実際にユーザーが選択した施設名（例：facility01）に変更されるようにしたいです。
```ここに言語を入力
slc_elm.addEventListener("change", function (elm) {
        elm.currentTarget.blur();
    }, false);
```

色々調べてはいるのですがこれっといった記事が見るからず、
また、jsに関しては初心者のため調べてコピペでできることしかできない程度なので、
どなたか教えていただけると非常に助かります。



ご確認よろしくお願いします。

セレクトした値によって [[ ]] で囲っている部分が実際にユーザーが選択した施設名（例：facility01）に変更されるようにしたいです。

### 前提
Excel VBA で　CSVデータを読み込みExcelシートに出力する

CSVデータがSJISの場合、下記のソースで文字化けせずに読込ができますが
UTF-8(BOM有)の場合、文字化けします。

### 実現したいこと
ソースコードを大きく変更することなく、文字化けさせないようにするには
どのようにすればよいのでしょうか。

また、CSVデータ件数が多く、１件づつ読み込む方法では時間がかかるため、
以下の読込方法をできれば使いたい。
```VBA
    Open "C:\temp\data2.csv" For Binary As #1
        ReDim buf(1 To LOF(1))
        Get #1, , buf
    Close #1
```

CSVデータ
・ヘッダーはダブルコーテーションなし
・データはダブルコーテーションあり、カラム内に改行コードあり
・行末はカンマで終わっている

(例)data2.csv

列1,列2,列3,
"0001","漢字１－１　漢字１－２","AAAAA",
"0002","漢字２ー１　
漢字２ー２","BBBBBBBBB",
"0003","漢字３ー１　漢字３ー２","漢字漢字",

### 該当のソースコード

```VBA
'CSVデータがSJisではOKのコード
Public Sub test()
    Dim buf() As Byte
    Dim tmp As Variant, tmp2 As Variant
    Dim i As Long
    Dim t1 As String
    Dim t2 As String
    
    Open "C:\temp\data2.csv" For Binary As #1
        ReDim buf(1 To LOF(1))
        Get #1, , buf
    Close #1
    
    t1 = "," & vbCrLf
    t2 = """," & vbCrLf
    
    buf2 = StrConv(buf, vbUnicode)
    buf3 = Replace(buf2, t1, t2)
    
    tmp = Split(buf3 & "," & vbCrLf, """," & vbCrLf)
    
    For i = 0 To UBound(tmp) - 1
        If i > 0 Then
            tmp2 = Split(tmp(i), """,""")
        Else
            tmp2 = Split(tmp(i), ",")
        End If
        
        tmp2(0) = Replace(tmp2(0), """", "")
        tmp2(UBound(tmp2)) = Replace(tmp2(UBound(tmp2)), """", "")
        Cells(i + 1, 1).Resize(1, UBound(tmp2) + 1).Value = tmp2
    Next i
End Sub
```

### 試したこと



### 補足情報（FW/ツールのバージョンなど）

Excle2016


VBA CSVデータ(UTF-8(BOM)付き)の読込

Pythonを用いてドローンを飛ばすプログラムについてです。

概要
グーグルマップから取得したルート通りにドローンを飛ばしたいのですが、グーグルマップからルートをpythonに取り込む方法とドローンを飛ばすためのコードがわかりません。
簡単な指示（離陸後50cm進んで着陸など）でドローンを動かすことはできます。

教えていただきたいこと
・グーグルマップで出たルートをpythonに取り込む方法（可能であればコード）
・取得したルート通りにドローンを飛行させる方法（同様に可能であればコード）

よろしくお願いします。



Pythonを用いてドローンを飛ばすプログラムについてです。

こんにちは。python初心者のものです。
下記問題のプログラミングがわからず困っています。

ユーザが年利(%)を入力すると、その借金を返済をせずに放置したとき負債が2倍を超えるのは何年後になるかを求めるプログラムを作成してください
「72の法則」という法則があり、「72 ÷ 金利」で負債が2倍になるまでのおおよその年数が計算できることが知られています
例: 利息3% → 72 ÷ 3 = 約24年
作成したプログラムで、年利3%, 5%, 10%, 18%それぞれの場合に負債が2倍になるまでの年数を求め、「72の法則」が正しいかを確認してください。

ご回答いただければ幸いです。
よろしくお願いいたします。



プログラミングをご教授下さい。

### 前提・実現したいこと

visual studio2019を使用しc#を使ってプログラムを作成しています(C#は初心者です)。form画面で色を選択するボタンを7個設置してそれぞれカラーダイアログに繋げており、出力ボタンを押すとフォルダに1～7色を使用した組み合わせが重複しない画像127個を出力するプログラムがなかなかできません。また、ファイル名を使用した色にあわせるようにしたいです。コードを記入しますので助言のほどよろしくお願いいたします。


### 発生している問題・エラーメッセージ

ファイルが実現したいようにできない、127通りの画像を出力できない。

### 該当のソースコード

```ここに言語名を入力
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using System.IO;
using System.Drawing.Imaging;
using System.Diagnostics;
using static System.Console;
using System.Text.RegularExpressions;

namespace WindowsFormsApp1
{
    public partial class PLTIG : Form
    {

       
        public PLTIG()
        {

            InitializeComponent();
        }

        /// <summary>
        /// 初期ロード
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void Form1_Load(object sender, EventArgs e)
        {
            this.Text = "PlayListTypeImageGenerator";
            FrNm.Text = Properties.Settings.Default.FrNm;
            Gl1.BackColor = Properties.Settings.Default.P1;
            PG1.BackColor = Properties.Settings.Default.P2;
            PR1.BackColor = Properties.Settings.Default.P3;
            ETY1.BackColor = Properties.Settings.Default.P4;
            ETMR1.BackColor = Properties.Settings.Default.P5;
            ETWR1.BackColor = Properties.Settings.Default.P6;
            EThR1.BackColor = Properties.Settings.Default.P7;
            Rectwidth.Text = Properties.Settings.Default.width;
            Rectheight.Text = Properties.Settings.Default.height;
        }
      
        private void FDS_Click(object sender, EventArgs e)
        {
            DialogResult dr = folderBrowserDialog1.ShowDialog();
            if (dr == System.Windows.Forms.DialogResult.OK)
            {
                FrNm.Text = folderBrowserDialog1.SelectedPath;
                FrNm.ReadOnly = true;
            }
        }

       
        private void btnCC_Click(object sender, EventArgs e)
        {
            DialogResult dr = colorDialog1.ShowDialog();
            if (dr == System.Windows.Forms.DialogResult.OK)
            {

                Gl1.BackColor = colorDialog1.Color;
                G.ReadOnly = true;
            }
        }
        

        private void textBox1_TextChanged(object sender, EventArgs e)
        {

        }
        
        private void btnCC2_Click(object sender, EventArgs e)
        {

            DialogResult dr = colorDialog2.ShowDialog();
            if (dr == System.Windows.Forms.DialogResult.OK)
            {

                PG1.BackColor = colorDialog2.Color;
                PGl.ReadOnly = true;
            }
        }
        
        private void btnCC3_Click(object sender, EventArgs e)
        {
            DialogResult dr = colorDialog3.ShowDialog();
            if (dr == System.Windows.Forms.DialogResult.OK)
            {

                PR1.BackColor = colorDialog3.Color;
                PRe.ReadOnly = true;
            }
        }
        
        private void btnCC4_Click(object sender, EventArgs e)
        {
            DialogResult dr = colorDialog4.ShowDialog();
            if (dr == System.Windows.Forms.DialogResult.OK)
            {

                ETY1.BackColor = colorDialog4.Color;
                ETYRe.ReadOnly = true;
            }
        }


       
        private void btnCC5_Click(object sender, EventArgs e)
        {
            DialogResult dr = colorDialog5.ShowDialog();
            if (dr == System.Windows.Forms.DialogResult.OK)
            {

                ETMR1.BackColor = colorDialog5.Color;
                ETMRe.ReadOnly = true;
            }
        }
       
        private void btnCC6_Click(object sender, EventArgs e)
        {
            DialogResult dr = colorDialog6.ShowDialog();
            if (dr == System.Windows.Forms.DialogResult.OK)
            {

                ETWR1.BackColor = colorDialog6.Color;
                ETWRe.ReadOnly = true;
            }
        }

       
        private void btnCC7_Click(object sender, EventArgs e)
        {
            DialogResult dr = colorDialog7.ShowDialog();
            if (dr == System.Windows.Forms.DialogResult.OK)
            {

                EThR1.BackColor = colorDialog7.Color;
                EThRe.ReadOnly = true;
            }
        }

        /// <summary>
        /// 重複しない組み合わせを作るための関数
        /// </summary>
        public static class Combination
        {
            public static IEnumerable<T[]> Enumerate<T>(IEnumerable<T> items,int k ,bool withRepetition)
            {
                if (k == 1)
                {
                    foreach (var item in items)
                        yield return new T[] { item };
                    yield break;
                }

                foreach (var item in items)
                {
                    var leftside = new T[] { item };

                    // item よりも前のものを除く （順列と組み合わせの違い)
                    // 重複を許さないので、unusedから item そのものも取り除く
                    var unused = withRepetition ? items : items.SkipWhile(e => !e.Equals(item)).Skip(1).ToList();
                    var list = Enumerate(unused, k-1 , withRepetition);
                    foreach (var rightside in list)
                    {
                        yield return leftside.Concat(rightside).ToArray();
                    }
                }
            }
        }
       
        public void SaveControlImage( string file)
        {

            //描画先とするImageオブジェクトを作成する
            using (var canvas = new Bitmap((int)Rectwidth.Value, (int)Rectheight.Value))
            {

                float w = (float)Rectwidth.Value;
                float h = (float)Rectheight.Value;
                //ImageオブジェクトのGraphicsオブジェクトを作成する
                var g = Graphics.FromImage(canvas);
                //Brushオブジェクトの作成
                SolidBrush f = new SolidBrush(Gl1.BackColor);
                SolidBrush se = new SolidBrush(PG1.BackColor);
                SolidBrush th = new SolidBrush(PR1.BackColor);
                SolidBrush fr = new SolidBrush(ETY1.BackColor);
                SolidBrush fif = new SolidBrush(ETMR1.BackColor);
                SolidBrush sixth = new SolidBrush(ETWR1.BackColor);
                SolidBrush sevth = new SolidBrush(EThR1.BackColor);
                var Crck = new List<SolidBrush>();
                Crck.Add(f);
                 Crck.Add(se);
                 Crck.Add(th);
                 Crck.Add(fr);
                 Crck.Add(fif);
                 Crck.Add(sixth);
                 Crck.Add(sevth);

                var CrCom = new Dictionary<SolidBrush, string>();
                CrCom.Add(f, "Gl");
                CrCom.Add(se, "PG");
                CrCom.Add(th, "PR");
                CrCom.Add(fr, "ETY");
                CrCom.Add(fif, "ETMR");
                CrCom.Add(sixth, "ETWR");
                CrCom.Add(sevth, "EThR");
                


                int n = 7;
           
                for (int k = 1; k < n + 1; k++)
                {

                    

                    var combinations = Combination.Enumerate(Crck, k, withRepetition: false);
                    
                    foreach ( var elem in combinations)
                    {
                        
                        for (int j = 0; j < elem.Count(); j++)
                        {
                           

                                g.FillRectangle(elem[j], j * (w/k) , 0, w / (j+1), h);
                            
                           
                        }
                        canvas.Save(file, System.Drawing.Imaging.ImageFormat.Png);

                    }
                   
                }

                
                f.Dispose();
                se.Dispose();
                th.Dispose();
                fr.Dispose();
                fif.Dispose();
                sixth.Dispose();
                sevth.Dispose();
                g.Dispose();
            }

        }


        

        public void Output_Click(object sender, EventArgs e)
        {
            int i = 1;
            while (i < 128)
            {
                var di = new DirectoryInfo(Environment.CurrentDirectory);
                var tagName = "";
                var max = di.GetFiles(tagName + "_???.txt")                         // パターンに一致するファイルを取得する
                    .Select(fi => Regex.Match(fi.Name, @"(?i)_(\d{3}).txt$"))      // ファイルの中で数値のものを探す
                    .Where(m => m.Success)                                          // 該当するファイルだけに絞り込む
                    .Select(m => Int32.Parse(m.Groups[1].Value))                    // 数値を取得する
                    .DefaultIfEmpty(0)                                              // １つも該当しなかった場合は 0 とする
                    .Max();                                                         // 最大値を取得する
                var fileName = String.Format("{0}_{1:d3}.png", tagName, max + 1);

                SaveControlImage(Path.Combine(FrNm.Text, fileName));
                i++;
            }
          
            

        }
       
```

### 試したこと

組み合わせを重複しないプログラムの作成
ファイル名を組み合わせた色にあわせるようにdictionaryを使って作れないか摸索

### 補足情報（FW/ツールのバージョンなど）

visual studio2019。

選択した7色の組み合わせの画像を127通り作りたいです。

お世話になっております。

VBAは初心者ゆえ基本的な質問失礼いいたします。

前任者は退職しているため誰にも聞けないので相談にのっていだけないでしょうか？

今excel2016で
```
ID　シート名　　ボタン
================================
1	あああ	「削除」
2	いいい	「削除」
3	ううう	「削除」
「行を追加」
================================
[概要][あああ][いいい][ううう]←シート名
```
との表があり　↑の「削除」ボタンを押すとその行と
その指定の文字列のシートを削除するVBAを組もうと思っております。

その行は前任者が消しているのでシートの方も楽勝だと思ったのですが
スパゲッティソースで訳がわからないので相談させてください。

↑のIDを前任者が使っていれば良かったのですが
「行を追加」を押しても内部で利用しているIDは分からないのです……
（デバッグで表示させたが不明で下記関数のリターン値を持ってきている）
```
Public Function AddRow(Sh As Object) As Long

    Dim LastRo As Long
    Dim TargetRo As Long
    Dim Tpos As Double
    Dim RefNum As Long
    
    With Sh
        LastRo = Module1.GetLastRow(Sh, .Rows.Count, 2)
        TargetRo = LastRo + 1
        AddRow = TargetRo
        .Rows(TargetRo).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        .Rows(TargetRo).RowHeight = 20
        '整理番号
        RefNum = TargetRo - 5
        'グローバル変数;記入対象の行
        CiteRo = TargetRo
        .Cells(TargetRo, 2).Value = RefNum
        '「工事名」の記入
        .Cells(TargetRo, 5).Value = "未記入"
    End With
    Tpos = (RefNum - 1) * 19.8 + 90.6
    'Tpos = (RefNum - 1) * 19.584 + 96.768
    '罫線引き
    Call DrawRuledLines(Sh, TargetRo, 2, 13)
    '[記入]と[削除]ボタン作成
    Call MakeCmdButton(Sh, 73.8, Tpos, 35.4, 19.8, RefNum)
    'Call MakeCmdButton(Sh, 70.848, Tpos, 35.136, 20.1, RefNum)
    '[記入]ボタンのプロシージャ作成
    Call ShowProcInsert(Sh.CodeName, RefNum, TargetRo)
    '[削除]ボタンのプロシージャ作成
    Call DelButtonProcInsert(Sh.CodeName, RefNum)
    '[適用追加]ボタンの Enable=False/True
    Call CiteAddButtonEnabledChange(Sh)
    
End Function
```
なんかVBAだと特殊は返り値があるのでしょうか？

もう本当にスパゲッティソースで訳がわからないのですが
とっかかりが掴めないので質問失礼します。

上記シート【いいい】を削除する方法で良い方法は無いでしょうか？？？

自分が混乱しているのは自覚しているのですが何か案があればと書き込み失礼いいたします。


【追加】ココから================================
```
Private Sub DelButtonProcInsert(ShCodeName As String, Num As Long)
'[削除]ボタンのプロシージャ作成

    Dim DelProcName As String
    Dim Cnt As Long
    
    DelProcName = "Del" & Num & "_Click"

    With ThisWorkbook.VBProject.VBComponents(ShCodeName).CodeModule
    
        On Error Resume Next
        '同名のプロシージャがなければエラー発生、あればCnt>0
        Cnt = .ProcBodyLine(DelProcName, 0)
        On Error GoTo 0
        If Cnt > 0 Then Exit Sub '←同名のプロシージャがなければ Cnt=0
        
        .insertlines 1, "Private Sub " & DelProcName & "()"
        .insertlines 2, "'Del" & Num & "Button"
        .insertlines 3, vbTab & "Call ThisWorkbook.DelButtonClick(Activesheet," & Num & ")"
'        .insertlines 3, vbTab & "If Not Application.EnableEvents Then Exit Sub"
'        .insertlines 4, vbTab & "Call Module3.DelRow(Activesheet," & Num & ")"
        .insertlines 4, "End Sub"
    End With

End Sub
```

```
Public Function AddRow(Sh As Object) As Long

    Dim LastRo As Long
    Dim TargetRo As Long
    Dim Tpos As Double
    Dim RefNum As Long
    
    With Sh
        LastRo = Module1.GetLastRow(Sh, .Rows.Count, 2)
        TargetRo = LastRo + 1
        AddRow = TargetRo
        .Rows(TargetRo).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        .Rows(TargetRo).RowHeight = 20
        '整理番号
        RefNum = TargetRo - 5
        'グローバル変数;記入対象の行
        CiteRo = TargetRo
        .Cells(TargetRo, 2).Value = RefNum
        '「工事名」の記入
        .Cells(TargetRo, 5).Value = "未記入"
    End With
    Tpos = (RefNum - 1) * 19.8 + 90.6
    'Tpos = (RefNum - 1) * 19.584 + 96.768
    '罫線引き
    Call DrawRuledLines(Sh, TargetRo, 2, 13)
    '[記入]と[削除]ボタン作成
    Call MakeCmdButton(Sh, 73.8, Tpos, 35.4, 19.8, RefNum)
    'Call MakeCmdButton(Sh, 70.848, Tpos, 35.136, 20.1, RefNum)
    '[記入]ボタンのプロシージャ作成
    Call ShowProcInsert(Sh.CodeName, RefNum, TargetRo)
    '[削除]ボタンのプロシージャ作成
    Call DelButtonProcInsert(Sh.CodeName, RefNum)
    '[適用現場を追加]ボタンの Enable=False/True
    Call CiteAddButtonEnabledChange(Sh)
    
End Function
```

シートをVBAで削除しようとしているが良い指定方法が分からない

### 前提・実現したいこと

タイトルの通り、あるサッカーの試合における、一連の攻撃(攻撃開始時点から終了時点まで)ごとにリストを作成したいです。
あるサッカーの試合のトラッキングデータが与えられています。そのデータの中では、どちらのチームがその時点でボール保持しているか知るために、ホームチームのボール保持時は”1”、アウェーチームのボール保持時は”2”、という二つの値で表されています。この二つの値の切り替わりで、どちらが攻撃をしているか判別することが可能です。
ex)
"         "選手名"　　　　"攻撃アクション名"　  　"攻撃判別値(1,2)"
0　　　　選手1　　　　　　　パス　　　　　　　　　1
1　　　　選手2　　　　　　トラップ　　　　  　　　1
2           選手2　　　　　　　パス　　　　　　　　　1
3          選 手3           　　　トラップ     　　　　　1
･        ･　　　　　　　　　　･　　　　　　　　　　　･
･        ･　　　　　　　　　　･　　　　　　　　　　　･
･　　　　・　　　　　　　　　　･　　　　　　　　　･
105     　選手58 　         タックル     　　　         2
106　　　選手58　　　　　　パス　　　　　　　　　2
107　　　選手59　　　　　トラップ　　　　　　　　2

このように攻撃判別値によって、どちらのチームが攻撃をしているかを判別することができます。
この値を切り替わりを用いて、一連の攻撃の抽出をし、攻撃の時系列データを作りたいと考えています。一試合には攻撃の切り替わりが何度も存在します。攻撃が切り変わる度に一つの攻撃が生まれます。その一つずつを分けて抽出し、一つのリストにするためのプログラムを教えて頂きたいです。

トラッキングデータの説明
与えられているトラッキングデータは、データフレームで与えられています。
各列には、”どちらのチームが攻撃しているか”、”選手の背番号”、”攻撃アクション名”などあります。
行には、試合のフレーム毎の推移が表現されています。例えば、選手1が選手2にパスしたとすると、
0　選手1　パス
1　選手2　トラップ
のように書かれています。


```ここに言語名を入力
python3
```

あるサッカーの試合の一連の攻撃を分類するためのコードが知りたい

### 前提・実現したいこと

ここに質問の内容を詳しく書いてください。
（例）PHP(CakePHP)で●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

### 発生している問題・エラーメッセージ

```
エラーメッセージ
```

### 該当のソースコード

```ここに言語名を入力
ソースコード
```

### 試したこと

ここに問題に対して試したことを記載してください。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

unityについて、C言語スクリプトを作成しているのですがvisual studioに連携させているのですがvisual studioには飛ぶのですがスクリプトが開けなのですがどうしたらいいですか？

現在、特定のデータをテキストファイルに出力するシステムの開発を行っています。
起動したら自動でデータを読み込んで出力し、該当の箇所に保存する流れです。

System.IO.StreamWriterを用いて、出力自体はできるようになりました。
ただテキストファイルを保存する際に、拡張子の前に連番を設定したいのですがそこがうまくいきません。

ファイル名は、｢ABC＋YYYYMMDD＋３桁の連番＋拡張子｣にしたいです。
連番に関しては、1回の出力ごとに001→002→003……といったようにしたいです。
また、手入力等で同一名のファイルが既にあれば、追記します。
(例えば2020/07/13に出力し、出力が3回目の場合、該当のフォルダに
　「ABC20200713003.txt」というファイルがあれば、そのファイル内の下の行に追記で出力します。
　こちらは作成済です。)



連番の作成方法について調べたら、以下のようなコードがあったのでペーストしてみました

1   Private Sub SurroundingSub()
2       Dim di = New DirectoryInfo(Environment.CurrentDirectory)
3        Dim tagName = "textfile"
4        Dim max = di.GetFiles(tagName & "_???.txt").[Select](Function(fi) Regex.IsMatch(fi.Name, "(?i)_(\d{3}).txt$")).Where(Function(m) m.Success).[Select](Function(m) Int32.Parse(m.Groups(1).Value)).DefaultIfEmpty(0).Max()
5        Dim fileName = String.Format("{0}_{1:d3}.txt", tagName, max + 1)
6        Console.WriteLine(fileName)
7    End Sub

ただしこちらの場合、4行目のRegexで宣言されていない旨のエラーが出てしまいました。

連番に関してある程度調べましたが、VB.NETで取り扱っているものが少なく、
条件に合わないか上記のようなエラーになってしまいました。

必要な情報があれば追記いたします。
よろしくお願いいたします。


VisualStudio2019
.Net FrameWorkは、確か4.6.1です

VB.NET ファイル名に連番を付けて保存したい。

タスクマネージャー→スタートアップで常駐しているプログラムを調べたところ、
写真のように「program」という名前のプログラムが2件起動しているみたいです。

![イメージ説明](cfec7aebcad1c9e40c498ded533968db.png)

最近パソコンが異常に遅く困っていたのですが、何かこのプログラムと関係あるのでしょうか？また、この「プログラム」とは何なのでしょうか？

ご教示お願いいたします。

###**追記1**

![イメージ説明](dc7ad881a615336de54d5c766020f9e7.png)

「プログラム」という名前のファイルは開くこともプロパティを参照することもできない状態にあるため、私の方で思いつく対処法がなく質問させていただいた次第です。
chromeを起動していない状態でもoutlookやword,excelの起動に平均で11~15秒ほどかかる状態でしたので他に考えられる原因はこのファイルだと考えてます。

##**追記2**

情報の追加・修正依頼欄にコメントしたとおり、wondershareなるソフトが悪さをしているようなのですが、削除しようとしてもエクスプローラーから辿れず、↑のようにプログラム名？検索してもヒットせず、カスペルスキーでも異常なソフトやウィルス感染したという報告がなく、Google検索に引っかからず削除方法を記したサイトも日本語やサイトのデザインが明らかに中華臭がして信用できず…という状態で悩んでおります。キーロガーやwebサイト情報を盗むものであれば一刻も早く削除したいのです。ご教授どうかよろしくお願いいたします。

![イメージ説明](10b7de8519e991c0621ea74f9f6fb1c3.png)

##**追記3**

![イメージ説明](7b0e828ef3f3e71bd4641436738d1121.png)

↑**どうやら、以前filmoraやvideoprocという動画/画像編集フリーソフトをインストールし、wondershareと名が付くソフトは4月頃インストールしてアンインストールしたはずの編集ソフトfilmoraのことだと思われます。検索にほとんど出てこなかったのは最近名称変更したためと思われます。ただ、「スタート」で起動しているため、先述した「wshelper.exe」が存在するはずなのですが検索しても出てこないです。それに「プログラムの追加と削除」からプログラムごと削除したはずです。filmoraを削除したが、「プログラム」という謎のファイルだけが残っていて、エクスプローラーでもコマンドラインからでもアクセスできないということなのでしょうが、どういうことなのでしょうか。**

![イメージ説明](f26fd7a23d19ca5ef18d323b9df0077e.png)

dirコマンドを使用したのですが、Wondershareフォルダは見つかりません。

###**追記4**

![説明](1cd8199087968f0b0ed22db90ad2aea5.png)

有効にして再起動にかかる時間を表示したところ、0ミリ秒でした。これはそもそも起動していない、「filmora」を削除したので「プログラム」なるファイルは存在しない。しかし、ファイルがあるように表示されているということなのでしょうか？「

スタート時起動している「program」という名前のプログラムについて

以下の文章は、基本情報技術者試験、午後問題の過去問です。
この文中の「フロントサーバ」「バックサーバ」とは、
便宜上、分けているだけですか？
それとも、web三層構造のwebサーバが「フロントサーバ」にあたり、webAPサーバが「バックサーバ」ですか？

ご教示のほど、よろしくお願い致します。

　G社は，J社が運営するクラウドサービス上で，写真投稿サービス及び写真検索サービスを構築することにした。
写真投稿サービスは，利用者から投稿された写真を受け付け，自動で分類し，保管するサービスである。
写真検索サービスは，利用者から指定された条件に合致する写真を，保管されている写真の中から検索し，表示させるサービスである。
利用者は，PC，スマートフォンなど(以下，クライアントという)を用いてサービスを利用する。
　システム構成を図1に示す。図1中の矢印の向きはアクセスの方向を示している。

![イメージ説明](fdeb2a27a7fca0b3ec6649ca2ac0f669.png)
写真投稿サービスにおける処理の概要は，次のとおりである。
フロントサーバは，クライアントから写真を受け取り，一意なIDを写真に割リ当て，ストレージサーバに保存する。
フロントサーバは，写真のID，ストレージサーバ上での写真の保存場所などを，その写真の属性情報としてDBサーバに登録する。
フロントサーバは，キューサーバに写真のIDを格納する。
バックサーバは，キューサーバから写真のIDを取得する。
バックサーバは，(4)で取得したIDに該当する写真の属性情報をDBサーバから検索し，ストレージサーバから写真を取得する。
バックサーバは，(5)で取得した写真をあるアルゴリズムによって分類し，分類結果をDBサーバのその写真の属性情報に付加する。
レプリケーションサーバは，ストレージサーバに定期的にアクセスし，新規に保存された写真を取得して自サーバ上に保存する。レプリケーションサーバ上の写真の保存場所は，ストレージサーバ上のそれと一意に対応付けられるように，あらかじめ定めてある規則に従って決定する。

　写真検索サービスにおける処理の概要は，次のとおりである。
フロントサーバは，クライアントから検索要求を受け取り，条件に合致する写真の属性情報をDBサーバから検察する。
フロントサーバは，検索された写真の属性情報から，レプリケーションサーバに保存された写真にアクセスするためのURLを作成する。
フロントサーバは，作成したURLを含むHTMLデータを生成してクライアントに返す。
クライアントは，フロントサーバから返されたHTMLデータに基づきレプリケーションサーバにアクセスし，写真を取得して表示する。

基本情報技術者試験、ネットワーク

プログラミングには直接関係のない話題で、恐縮です。

プログラミンをしていて、メソッドの使い方など、ちょっとしたテクニックを知った時、次回使いたい時に、忘れないようにするため、最初は、テキストやExcelにメモって知識整理をしていました。しかし、最近は、Typoraというエディタを利用して、マークダウン形式でメモ書きを残すようにしています。一時期は、Qiitaやブログを活用していた事もありました。

もっと効率のいい知識整理の仕方がないものかと思っています。
皆さんはどのようなやり方でメモを保存されておられますでしょうか。

知識整理の仕方について、皆さんどうされてます？

サーバーを借りていますが、CGIが使えなくなってしまいました。※500エラーが出っぱなしです。
恐らくwebサーバーを再起動すれば良くなると思われるのですが、共用サーバーなのでそれができません。
現在phpは使えるのでphpのプログラムでwebサーバーを再起動する事はできないでしょうか？

webサーバーを再起動したい

以下が自分で作ったコードです。さすがにAPIは見ました。bmp
ファイル用ですが画像が加工されていたり、するとよめないです。（要はあっていないコードです）。本題ですが、授業ではプログラミンの授業を受けたことがなく、独学でした。そのため、他の人とコードとかけはなれています。他の人のコードをみてもよくわかりません。とにかく人並みにソースコードが書きたいです。人のコードに合わせないと作業できずに困ると思います。人並みにソースコードを書く効率的な手段があったぜひお願いしまます。


```c

void LoadGLTextures(const char* filename, int width,int height) {
// Load Texture
const char *PATH=&filename[0];

FILE* fb=fopen(PATH,"rb"); //間違えてないか自身で判断ください。責任は負
//いかねます

fseek(fb,0L,SEEK_SET);
unsigned long file1 = ftell(fb);


fseek(fb, 0L, SEEK_END);
	
unsigned long file2= ftell(fb);

unsigned long  filesize=file2-file1;

unsigned char *image=new unsigned char[filesize];

fseek(fb,0L,SEEK_SET); 

fread(image,sizeof(unsigned char),filesize,fb);  //zenbu no hairetu

unsigned char MappingData[filesize-54]; //786486-54
	
	
for(unsigned int i=0;i< (filesize-54) ;++i)　//間違えてないか自身で判断ください。責任は負
//いかねます

{  MappingData[i]=image[(filesize)-i]; 
}

glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR);
 //scale linearly when image bigger than texture

glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR); 

glTexImage2D(GL_TEXTURE_2D, 0, 3,width,height,0,GL_RGB,GL_UNSIGNED_BYTE,&MappingData[0]);
fclose(fb);
delete  []  image;
image=NULL;
};
```
これだけの設定では動きませんが。

人並みにコードを書きたい

```ここに言語を入力
<!DOCTYPE html>
<html lang="ja">
    <head>
        <meta charset="UTF-8">
        <title>タイトル</title>
        <link rel="stylesheet" href="minimum.css">
    </head>
    <body>
        <p>本文です。</p>
    </body>
</html>




p {
    color: #ff0000;
}


```### 前提・実現したいこと

上のコードの前半のようなものをindex.htmlとして作成して、後半のpから始まるものをminimum.cssとして作成して「本文です。」を赤く染めたい

### 発生している問題・エラーメッセージ

```
上のコードの前半のようなものをindex.htmlとして作成して、後半のpから始まるものをminimum.cssとして作成したのですが「本文です。」が赤く染まりません
```

### 該当のソースコード

```ここに言語名を入力
ソースコード
```

### 試したこと

ここに問題に対して試したことを記載してください。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

html/css　本文です。　を赤く染める方法を教えてください

### 前提・実現したいこと

JavaScriptを使って、指定したPDF内に記載されている表部分を抽出し、テーブル構造のデータとして取得したい

### 試したこと

例えば、サイゼリアのアレルギー情報が記載されたPDFについて、テーブル情報をJavaScriptで抽出しようとしました。
[https://www.saizeriya.co.jp/others/images/grand.pdf](https://www.saizeriya.co.jp/others/images/grand.pdf)

Mozilla製の[PDF.js](https://github.com/mozilla/pdf.js)を利用して以下のような感じでやってみたのですが、表データも分割された文字列として取得できるのみで、テーブル構造として取得することができませんでした。
※ちなみにPDF.jsをnpmで取得する場合は、`npm install --save pdfjs-dist`で利用可能です
※例はTypeScriptですが、JavaScriptで良いです。

```typescript
import pdfjsLib from "pdfjs-dist";

pdfjsLib.GlobalWorkerOptions.workerSrc =
  './vendors~pdfjsWorker.js';

const loadingTask = pdfjsLib.getDocument("./grand_kids.pdf");
loadingTask.promise.then(async doc => {
    const num = doc.numPages;
    for (let i = 1; i <= num; i++) {
        const a = await doc.getPage(i)
        const text = await a.getTextContent();
        // textに文字列は入るが、テーブル構造にはなっていない。座標情報から頑張るしかない？
    }
})
```

PDFにある表をJavaScriptで抽出することは可能でしょうか？

nightmareJSをつかってスクレイピングした値を、そのあとの処理に使いたいのですが、その値を受け取る方法がよくわかりません。具体的にはスクレイピングした値をwebの入力する場所にtypeしたいのですが、

```js
var Nightmare = require('nightmare');
var nightmare = Nightmare();

Promise.resolve(

nightmare.
goto('https://www.yodobashi.com/product/100000001002780005/').
wait('.productPrice.fs16.alignM').
evaluate(() => {return document.querySelector('.productPrice.fs16.alignM').innerText;})).

then((result) => {console.log(result);}).
catch(console.error);

nightmare.end();
```

thenメソッドの後にtypeでつなげるのはできないので（then((result) => {tyep('●',result);}).とはできない）
そのあとに一行typeを書くのですが、thenでないと受け取れないし、、、
どうすればよいでしょうか？？

↓回答に誤りがあります

スクレイピングした値の使い方

エクセルのグラフをパワーポイントに「元の書式を保持」したままの貼り付けがしたいです。
しかし実行すると図として貼り付けされてしまいます。
原因と対処方法を教えてほしいです。





```VBA
Sub PowerPointを立ち上げる()
    Dim ppApp As New PowerPoint.Application
    Dim ppPt As Presentation
    Dim ppSlide As Slide
    Dim ppShape As PowerPoint.Shape
    Dim ws As Worksheet
    Dim test_st As String
    Dim i As Long
    Dim x As Long
    Dim ppPrs As Presentation
    Set ppPrs = ppApp.Presentations.Open(ThisWorkbook.Path & "\グラフ＠.pptx")
    Set ws = ThisWorkbook.Worksheets("A_01")
    
    'グラフの貼り付け
    'CPU
    For i = 1 To 18
    
        ws.ChartObjects("グラフ " & i).Chart.CopyPicture 'グラフを画像としてコピー
        ppPrs.Slides(i).Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile, Link:=msoFalse 'パワーポイントのコマンドで貼り付け
        If ppApp.ActiveWindow.Selection.Type = ppSelectionNone Or ppApp.ActiveWindow.Selection.Type = ppSelectionSlides Then
            Exit Sub
        End If

            For Each ppShape In ppApp.ActiveWindow.Selection.ShapeRange
            ppShape.LockAspectRatio = msoFalse
                ppShape.Left = Application.CentimetersToPoints(0.8)
                ppShape.Top = Application.CentimetersToPoints(3.7)
                ppShape.Width = Application.CentimetersToPoints(11.875)
                ppShape.Height = Application.CentimetersToPoints(4.6)
            Next ppShape
        
    Next i
 
End Sub


```

グラフをパワーポイントに貼り付け

```ここに言語を入力
Sub PDF出力()'''PDF化する時はシート番号を利用しシート番号6~15の10シート分をPDF化
    Dim FileName As String '保存先フォルダパス＆ファイル名
    Dim SheetName As String　'シート番号
    Dim CNT As Long　'カウンタ
    For CNT = 6 To 15 '10シート分をPDF化する
        SheetName = Worksheets(CNT).Name 
        FileName = "C:\会議資料H30年\会議資料\" & SheetName                 
        Worksheets(CNT).ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName '選択したシートをPDF出力
    Next CNT     
End Sub
```
上記のようなVBAを組んだのですが、実行すると最初3シート分までは出力されるのですが、途中で「実行時エラー"1004"」が出てきて、残りが出力されません。どこをどのように修正すればよいのでしょうか？

よろしくお願いします。

2018/5/1　追記
内容が足りずお手数をお掛けしました。
実行時エラー文の、この後の文章は「ドキュメントを保存できませんでした。ドキュメントが開いているか、保存時にエラーが発生した可能性があります。」です。

エラー行は
Worksheets(CNT).ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
の所です。

よろしくお願いします。

2018/5/2　追記
シート名は「地区別売上」「地区別粗利」などの全て全角の文字で付けています。
また、エラーが出るシートはvbaを実行するたびに代わってしまいます。

よろしくお願いします。