小编Rho*_*nda的帖子

简单的InputBox功能

我知道PowerShell的一个简单的弹出功能,例如:

function popUp($text,$title) {
    $a = new-object -comobject wscript.shell
    $b = $a.popup($text,0,$title,0)
}

popUp "Enter your demographics" "Demographics"
Run Code Online (Sandbox Code Playgroud)

但我无法找到一个等效的弹出窗口来请求输入.

当然,有Read-Line,但它从控制台提示.

然后有这个复杂的功能,对于要求输入一次或两次的脚本来说似乎有点过分:

function getValues($formTitle, $textTitle){
    [void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing") 
    [void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") 

    $objForm = New-Object System.Windows.Forms.Form
    $objForm.Text = $formTitle
    $objForm.Size = New-Object System.Drawing.Size(300,200)
    $objForm.StartPosition = "CenterScreen"

    $objForm.KeyPreview = $True
    $objForm.Add_KeyDown({if ($_.KeyCode -eq "Enter") {$x=$objTextBox.Text;$objForm.Close()}})
    $objForm.Add_KeyDown({if ($_.KeyCode -eq "Escape") {$objForm.Close()}})

    $OKButton = New-Object System.Windows.Forms.Button
    $OKButton.Location = New-Object System.Drawing.Size(75,120)
    $OKButton.Size = New-Object System.Drawing.Size(75,23)
    $OKButton.Text = "OK"
    $OKButton.Add_Click({$Script:userInput=$objTextBox.Text;$objForm.Close()})
    $objForm.Controls.Add($OKButton)

    $CANCELButton = New-Object System.Windows.Forms.Button
    $CANCELButton.Location = …
Run Code Online (Sandbox Code Playgroud)

powershell user-input function

16
推荐指数
2
解决办法
7万
查看次数

Tableau计数列中出现相同值的次数

我有一个这样的领域

Color
Pink
Blue
Pink
Blue
Pink
Pink
Pink
Pink
Pink
Blue
Blue
Pink
Pink
Pink
Blue
Pink
Blue
Pink
Blue
Run Code Online (Sandbox Code Playgroud)

如何创建计算字段来计算粉红色出现的次数?

蓝色总数?

calculated-field tableau-api

7
推荐指数
1
解决办法
4万
查看次数

安装ez_setup.py时出现Python错误"无法创建SSL/TLS安全通道"

Python版本: 2.7.13

操作系统: Windows Server 2012

我正在按照本教程设置Python环境

当我尝试执行时

python ~\Desktop\ez_setup.py
Run Code Online (Sandbox Code Playgroud)

我明白了

Exception calling "DownloadFile" with "2" argument(s): "The request was aborted: Could not create SSL/TLS secure
channel."
At line:1 char:106
+ [System.Net.WebRequest]::DefaultWebProxy.Credentials = [System.Net.CredentialCac ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : NotSpecified: (:) [], MethodInvocationException
    + FullyQualifiedErrorId : WebException
Run Code Online (Sandbox Code Playgroud)

我尝试根据此链接启用S​​SL和TLS 并重新启动服务器,但没有运气

python ssl python-2.7

6
推荐指数
1
解决办法
1793
查看次数

根据纬度和经度设置ggmap边界

所以我有 R 程序,并且正在努力获取地图中的所有点

library(ggmap)
library(ggplot2)

setwd("d:/GIS/")
sep <- read.csv("SEP_assets_csv.csv")
Sub1 <- sep[grep("SEP.12", names(sep))]
sep$newCol <- 100*rowSums(Sub1)/rowSums(sep[4:7])


# create a new grouping variable
Percent_SEP12_Assets <- ifelse(sep[,8] >= 50, "Over 50", "Under 50")

# get the map
map <- get_map("Kissena Park, Queens", zoom = 13, maptype = 'roadmap')

# plot the map and use the grouping variable for the fill inside the aes
ggmap(map) +
  geom_point(data=sep, aes(x = Longitude, y = Latitude, color=Percent_SEP12_Assets ), size=9, alpha=0.6) +
  scale_color_manual(breaks=c("Over 50", "Under 50"), values=c("green","red")) …
Run Code Online (Sandbox Code Playgroud)

google-maps r latitude-longitude ggmap

5
推荐指数
1
解决办法
3812
查看次数

R Leaflet Legend:指定顺序而不是字母顺序

我在 r 传单代码中添加了图例,输出是这样的

在此输入图像描述

我希望订单是

  • 绿色“超过 66%”
  • 橙色“33% 到 66% 之间”
  • 红色“低于 33%”

代码

sep <- read.csv("31R_SEP_assets_csv - Copy.csv")

Sub1 <- sep[grep("SEP.12", names(sep))]
sep$newCol <- 100*rowSums(Sub1)/rowSums(sep[4:7])

# create a new grouping variable
Percent_SEP12_Assets <- ifelse(sep[,8] <= 33, "Less than 33%", ifelse(sep[,8] >= 66, "More than 66%", "Between 33% and 66%"))

Color_Assets <- colorFactor(c("darkgreen","darkorange","darkred"),
                               levels = Percent_SEP12_Assets,ordered=FALSE)

leaflet(data = sep[]) %>% 
  setView(lng = mean(sep$Longitude), lat = mean(sep$Latitude), zoom = 12) %>% addTiles()  %>%
  addCircleMarkers(~Longitude, ~Latitude,  color = ~Color_Assets(Percent_SEP12_Assets),  popup = ~as.character(paste(Site, Percent_SEP12_Assets …
Run Code Online (Sandbox Code Playgroud)

r openstreetmap legend-properties leaflet

5
推荐指数
1
解决办法
3820
查看次数

简化MS SQL语句

我读了一篇关于JOINS的好文章,"INNER JOIN"和"OUTER JOIN"有什么区别?但我不认为这有助于我的问题.

我想将两个select语句组合成一个select语句AND,使其对任何要查询的数据库都有效.

这就是我所拥有的

SELECT
(SELECT COUNT(*) 
                        FROM dbo.sem_computer, [dbo].[V_SEM_COMPUTER], dbo.IDENTITY_MAP, dbo.SEM_CLIENT,dbo.SEM_AGENT,dbo.PATTERN
                        WHERE [dbo].[V_SEM_COMPUTER].COMPUTER_ID = SEM_COMPUTER.COMPUTER_ID
                        AND dbo.SEM_CLIENT.GROUP_ID = IDENTITY_MAP.ID
                        AND dbo.SEM_CLIENT.COMPUTER_ID = SEM_COMPUTER.COMPUTER_ID
                        AND SEM_COMPUTER.COMPUTER_ID = dbo.SEM_AGENT.COMPUTER_ID
                        AND dbo.PATTERN.PATTERN_IDX = dbo.SEM_AGENT.PATTERN_IDX
                        AND Name like '%Staten Island%'
                        AND dbo.SEM_AGENT.AGENT_VERSION LIKE '11.%'
                        AND dbo.SEM_COMPUTER.OPERATION_SYSTEM LIKE 'Windows%') AS 'Windows-SEP-11',
(SELECT COUNT(*) 
                        FROM dbo.sem_computer, [dbo].[V_SEM_COMPUTER], dbo.IDENTITY_MAP, dbo.SEM_CLIENT,dbo.SEM_AGENT,dbo.PATTERN
                        WHERE [dbo].[V_SEM_COMPUTER].COMPUTER_ID = SEM_COMPUTER.COMPUTER_ID
                        AND dbo.SEM_CLIENT.GROUP_ID = IDENTITY_MAP.ID
                        AND dbo.SEM_CLIENT.COMPUTER_ID = SEM_COMPUTER.COMPUTER_ID
                        AND SEM_COMPUTER.COMPUTER_ID = dbo.SEM_AGENT.COMPUTER_ID
                        AND dbo.PATTERN.PATTERN_IDX = dbo.SEM_AGENT.PATTERN_IDX
                        AND Name like …
Run Code Online (Sandbox Code Playgroud)

sql sql-server

4
推荐指数
1
解决办法
423
查看次数

基于分隔符的 SQL 拆分,仅保留第二个元素

我有 T-SQL 代码,正在研究如何拆分

Aruba\abc
Spain\defg
New Zealand\qwerty
Antartica\sporty
Run Code Online (Sandbox Code Playgroud)

这样列输出

abc
defg
qwerty
sporty
Run Code Online (Sandbox Code Playgroud)

到目前为止,我发现了这样的东西,

http://www.aspsnippets.com/Articles/Split-function-in-SQL-Server-Example-Function-to-Split-Comma-separated-Delimited-string-in-SQL-Server-2005-2008-and- 2012.aspx

但它根据分隔符将列拆分为新列。

我希望在分隔符之后保留信息 \

请指教

sql-server string split delimiter

4
推荐指数
1
解决办法
1万
查看次数

Python 在打印到 CSV 时跳行

我正在尝试创建 .csv 文件。

由于某种原因,它在打印条目之前会跳行。

这是输出

在此输入图像描述

但这就是我需要的

在此输入图像描述

下面是代码。显然if line != "":不起作用

import csv

#-----------------------------------
def csv_writer(data,path):
    """
    Write data to a CSV file path
    """
    with open(path, "w") as csv_file:
        writer = csv.writer(csv_file, delimiter=',')
        for line in data:
            if line != "":
                writer.writerow(line)

#-----------------------------------
if __name__ == "__main__":
    data = ["first_name,last_name,city".split(","),
            "Tyrese,Hirthe,Strackeport".split(","),
            "Jules,Dicki,Lake Nickolasville".split(","),
            "Dedric,Medhurst,Stiedemannberg".split(",")
            ]
    path = "output.csv"
    csv_writer(data,path)
Run Code Online (Sandbox Code Playgroud)

python csv

4
推荐指数
1
解决办法
4032
查看次数

查找前30个结果的平均值

我有一个查询输出前30个结果

select top 30 * from [dbo].[Stats]
        where Rack_Code = 'ABC'
        order by Date_of_Record desc
Run Code Online (Sandbox Code Playgroud)

并查询以获取所有时间的平均值

SELECT AVG(Total_MB - (East_MB + West_MB)) AS Other,
                    AVG(East_MB) AS East,
                    AVG(West_MB) AS West
                    FROM [dbo].[Stats]
                    WHERE Rack_Code = 'ABC'
Run Code Online (Sandbox Code Playgroud)

哪个给出正确的输出

在此输入图像描述

但是当我尝试获得前30个条目的平均值时,SQL查询似乎忽略了 Top 30

SELECT TOP 30 AVG(Total_MB - (East_MB + West_MB)) AS Other,
                    AVG(East_MB) AS East,
                    AVG(West_MB) AS West
                    FROM [dbo].[Stats]
                    WHERE Rack_Code = 'ABC'
Run Code Online (Sandbox Code Playgroud)

并提供不正确的输出

在此输入图像描述

请指教

sql-server average

3
推荐指数
1
解决办法
80
查看次数

安装gpclib时出错

R版本3.2.1

我从http://cran.r-project.org/web/packages/gpclib/index.html下载了gpclib_1.5-5.tar.gz 并试图安装包

install.packages("D:/GIS/gpclib_1.5-5.tar.gz", repos = NULL, type = "source")

我收到了错误

* installing *source* package 'gpclib' ...
** package 'gpclib' successfully unpacked and MD5 sums checked
** libs

*** arch - i386
Warning: running command 'make -f "D:/R/R-3.2.1/etc/i386/Makeconf" -f "D:/R/R-3.2.1/share/make/winshlib.mk" SHLIB="gpclib.dll" OBJECTS="Rgpc.o gpc.o"' had status 127
ERROR: compilation failed for package 'gpclib'
* removing 'D:/R/R-3.2.1/library/gpclib'
Warning in install.packages :
  running command '"D:/R/R-3.2.1/bin/x64/R" CMD INSTALL -l "D:\R\R-3.2.1\library" "D:/GIS/gpclib_1.5-5.tar.gz"' had status 1
Warning in install.packages :
  installation of package ‘D:/GIS/gpclib_1.5-5.tar.gz’ …
Run Code Online (Sandbox Code Playgroud)

google-maps r heatmap

2
推荐指数
1
解决办法
4498
查看次数

具有度量的Tableau饼图

我有每个SiteID的许多度量值的数据,即

Total Windows    Total Mac    Total Online    Total Offline    Total Computers    SiteID
Run Code Online (Sandbox Code Playgroud)

我一直在谷歌搜索如何在Tableau中创建饼图,但这些教程假设我有类似的数据

 OS    Status    SiteID
Run Code Online (Sandbox Code Playgroud)

我最终要做的是创建一个在线与离线用户的饼图,并使用其他数据点的操作来过滤该图表.

我只需要知道如何创建饼图,然后我可以创建动作.

tableau-api pie-chart

1
推荐指数
1
解决办法
8735
查看次数

Tableau格式百分比饼图

我在Tableau中创建了饼图,即

在此处输入图片说明

当我尝试将数字格式化为百分比时,我得到了

在此处输入图片说明

我什至会创建一个计算值。数据形式

TYPE
Email
Removable Media
HTTP
CD/DVD
Run Code Online (Sandbox Code Playgroud)

对于所有值,过滤依据 Location

在此处输入图片说明

calculated-field tableau-api pie-chart

1
推荐指数
1
解决办法
1万
查看次数

为什么 Tableau 中有三个趋势线

在 Tableau 中,当我转到“分析”>“趋势线”>“显示趋势线”时,为什么会显示 3 条趋势线?

这是什么意思?

或者你能告诉我谷歌来解决这个问题吗?我难住了???

在此处输入图片说明

statistics tableau-api trendline

0
推荐指数
1
解决办法
454
查看次数