小编use*_*575的帖子

我想单击一个按钮，用网络堆栈信息更新多个文本标签或多个文本框。这是我所追求的逻辑。

Button2 event 
Label1.text = Computer Name 
Label2.text = IP Address
Label3.text = Subnet Mask 
Label4.text = Default Gateway
Label5.text = DNS1
Label6.text = DNS2 

我有一些工作代码

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Dim strHostName As String

    Dim strIPAddress As String


    strHostName = System.Net.Dns.GetHostName()

    strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()



    TextBox2.Text = strIPAddress
    Lable_IPAddress.Text = strIPAddress


End Sub

我不确定如何获取默认网关或 DNS。子网掩码对于我想做的事情来说并不那么重要，但网关和 DNS 条目很重要。

我只想单击一个按钮，让它向我显示格式良好的网络堆栈。看起来这应该不那么难，但我对 vb.net 还不太熟悉。

我已经完成了一些工作，但我正在努力将它们组合在一起。

我想获取一个文件，将其移动到备份文件夹，从该文件获取日期时间，并将其附加到文件名/将文件名更改为文件名+日期时间。

这部分以我想要的格式获取日期时间。（打印行是正确格式化的日期时间，但我不需要打印这一行）

    Filepath = "C:\\SyncWork\\ACE\\Files\\ESAL_P\\ESAL_P.txt"
    modifiedTime = os.path.getmtime(Filepath) 
    firstFile = os.path.getmtime(Filepath)

    print (datetime.fromtimestamp(modifiedTime).strftime("%b-%d-%y-%H:%M:%S"))

这部分将重命名/移动文件（但缺少日期时间）

    prevName = 'c:\\syncwork\\ace\\files\\ESAL_P\\ESAL_P.txt'
    newName = 'c:\\syncwork\\ace\\files\\ESAL_P\\Backup\\ESAL_P.txt'

    os.rename(prevName, newName)

如何将具有我喜欢的格式的打印行转换为字符串并将其附加到 newName 行的末尾？

回答我的问题后 我的最终代码如下所示：

Filepath = "C:\\SyncWork\\ACE\\Files\\ESAL_P\\ESAL_P.txt"
modifiedTime = os.path.getmtime(Filepath) 



timestamp = datetime.fromtimestamp(modifiedTime).strftime("%b-%d-%Y_%H.%M.%S")

prevName = 'c:\\SyncWork\\ACE\\Files\\ESAL_P\\ESAL_P.txt'
newName = 'c:\\SyncWork\\ACE\\Files\\ESAL_P\\Backup\\ESAL_P' 

os.rename(prevName, newName+"_"+timestamp + ".txt")
print(newName)  

我的数据库有一个项目成本表.项目可以有多个成本记录.

我想只抓取有多个成本记录的项目.

UPC字段为F01,表格称为COST_TAB.我只想根据F01字段获取有多个条目的项目.

我正在努力解决如何编写此查询.