小编Kal*_*nji的帖子

我的VBA技能非常有限但我到目前为止我现在想完成这个项目.

我的VBA代码低于我的前景.它将所需的电子邮件保存到我的驱

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
    Dim olApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Set olApp = Outlook.Application
    Set objNS = olApp.GetNamespace("MAPI")
    Set Items = objNS.GetDefaultFolder(olFolderInbox).Items

End Sub

Private Sub Items_ItemAdd(ByVal item As Object)

On Error GoTo ErrorHandler

    'Only act if it's a MailItem
    Dim Msg As Outlook.MailItem
    If TypeName(item) = "MailItem" Then
        Set Msg = item

    'Change variables to match need. Comment or delete any part unnecessary.
        If (Msg.SenderEmailAddress = "noreply@test.com") Or _
        (Msg.Subject = …

我有一个简单的 Lambda 代码来从 S3 Bucket 读取 csv 文件。一切正常，但我尝试将 csv 数据获取到 pandas 数据框，但出现错误string indices must be integers

我的代码是沼泽标准的，但我只需要使用 csv 作为数据框进行进一步操作。散列线是错误的来源。我可以毫无问题地打印数据，因此存储桶和文件详细信息配置正确。

更新的代码

import json
import pandas as pd
import numpy as np
import requests
import glob
import time
import os
from datetime import datetime
from csv import reader
import boto3
import traceback
import io

s3_client = boto3.client('s3')

def lambda_handler(event, context):
    try:
            
        bucket_name = event["Records"][0]["s3"]["bucket"]["name"]
        s3_file_name = event["Records"][0]["s3"]["object"]["key"]
        resp = s3_client.get_object(Bucket=bucket_name, Key=s3_file_name)
        
        data = resp['Body'].read().decode('utf-8')
        df=pd.DataFrame( list(reader(data)))
        print (df.head())

    except Exception as …

我有代码来计算记录,但无法在它之前添加订单.

连接了两个表,我添加了代码来计算记录.问题是我想首先ORDER BY SN并在之后分配cnt？

我的代码是:

表

 create table rot (
            code int(10) primary key,
            PN varchar(10) not null,
        SN varchar(10) not null,
            LocID int(10) not null);

    insert into rot values (1,'T1','T1SN1','1');
    insert into rot values (2,'A1','A1SN1','2');
    insert into rot values (3,'J1','J1SN1','3');
    insert into rot values (4,'A2','A2SN1','1');
    insert into rot values (5,'J2','J2SN1','2');
    insert into rot values (6,'A3','A3SN1','3');
    insert into rot values (7,'J3','J3SN1','4');
    insert into rot values (8,'T1','T1SN2','5');
    insert into rot values (9,'A1','A1SN2','1');
    insert into rot values (10,'J2','J2SN2','3');
    insert into rot values …

我有一个贝叶斯优化代码，它打印带有值和选定参数的结果。我的问题是 - 如何选择最佳组合？我的情况下的 min RMSE 值在不同回合中较低？

代码：

library(xgboost)
library(rBayesianOptimization)


data(agaricus.train, package='xgboost')
dtrain <- xgb.DMatrix(agaricus.train$data, label = agaricus.train$label)

cv_folds <- KFold(
                  y
                  , nfolds = 5
                  , stratified = TRUE
                  , seed = 5000)

xgb_cv_bayes <- function(eta, max.depth, min_child_weight, subsample,colsample_bytree ) {
  cv <- xgb.cv(params = list(booster = "gbtree"
                            # , eta = 0.01
                             , eta = eta
                             , max_depth = max.depth
                             , min_child_weight = min_child_weight
                             , colsample_bytree = colsample_bytree
                             , subsample = subsample
                            #, colsample_bytree = 0.3
                             , lambda = …

我已经开发了一个 ggplot 图，但现在我试图添加计算标签，该标签显示同比增长百分比？

我的数据框非常简单（来自主数据集的聚合结果）

'data.frame':   4 obs. of  3 variables:
 $ Year    : int  2011 2012 2013 2014
 $ TotalPay: num  71744 74113 77611 75466

我的图表有一个代码：

library(ggplot2)
ggplot(d1, aes(x=Year, y=TotalPay)) + geom_bar(stat="identity") + 
labs(x="Year", y="Average Total Pay ($)")

现在尝试将 stat_bin 用于标签？计算方法为实际年份 - 上一年 * 100%。我有这个，但不知道如何填写百分比 ()

stat_bin(aes (labels = paste("Total Pay" = ,scales::percent(())), vjust = 1, geom = "TexT")

我在网上找到了这段代码，并试图对其进行更改以适合我的目的。我所需要的只是将来自 test@noreplay.com 的附件保存到我的测试文件夹（它是收件箱的子文件夹）。我不知道如何更改它，需要您的帮助！

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Attachments"
    For Each objAtt In itm.Attachments
        objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
        Set objAtt = Nothing
    Next
End Sub

我的 VBA 看起来像这样（希望它有帮助）。

同样，尝试将 Outlook 中的附件保存到特定文件夹中，来自特定发件人的同名（因此新附件将覆盖现有附件）。

我一直在尝试将我的计算从 excel 转移到 R，只是想知道是否有办法复制 IF（有一个步骤）。

所以我的数据在下面，我在 excel 中用简单公式得到的结果在 DIFF 列 ( =IF(A2=A3, (C2-B3) * 24, 0))

NO  T_DATE              L_DATE              DIFF
AAA 10/08/2019 17:02:00 10/08/2019 20:35:00 5.83
AAA 10/08/2019 14:45:00 10/08/2019 15:10:00 11.78
AAA 10/08/2019 03:23:00 10/08/2019 10:25:00 17.32
AAA 09/08/2019 17:06:00 10/08/2019 01:11:00 25.70
AAA 08/08/2019 23:29:00 09/08/2019 10:27:00 0
BBB 08/08/2019 09:34:00 08/08/2019 21:19:00 22.23
BBB 07/08/2019 23:05:00 08/08/2019 06:09:00 18.03
BBB 07/08/2019 12:07:00 07/08/2019 20:25:00 22.32
BBB 06/08/2019 22:06:00 07/08/2019 08:53:00 22.77
BBB 06/08/2019 10:07:00 06/08/2019 19:44:00 …