我正在使用 Nport 設備將資料從數字秤獲取到 Vb.Net 應用程式，但我在從輸出中修剪字符時遇到問題。
輸出原始資料 = WN0015.15 kg（示例）
我嘗試使用：
Label11.Text = Thetext.Trim({"W"c, "N"c, "0"c, "k"c, "g"c})
但有時會列印原始資料的值 換行符，例如：
15.15 kg
WN0015.15 kg
當值 =0.00或0.50列印.50或.00
我的代碼：
Imports System.Threading
Imports System.IO.Ports
Private Delegate Sub UpdateLabelDelegate(theText As String)
Private Sub UpdateLabel(Thetext As String)
If Me.InvokeRequired Then
Me.Invoke(New UpdateLabelDelegate(AddressOf UpdateLabel), Thetext)
Else
Label11.Text = Thetext.Trim({"W"c, "N"c, "0"c, "k"c, "g"c})
netweight.Text = Label11.Text.Replace("kg", "").Trim()
End If
End Sub
Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim returnStr As String
returnStr = SerialPort1.ReadExisting
Me.BeginInvoke(Sub()
UpdateLabel(returnStr)
End Sub)
End Sub
uj5u.com熱心網友回復：
你可以嘗試更多類似的東西：
Private Sub UpdateLabel(Thetext As String)
If Me.InvokeRequired Then
Me.Invoke(New UpdateLabelDelegate(AddressOf UpdateLabel), Thetext)
Else
Dim weight As String = Thetext.Trim.Split(Environment.NewLine.ToCharArray, StringSplitOptions.RemoveEmptyEntries).Last
weight = weight.TrimStart("WN0".ToCharArray()).TrimEnd("kg".ToCharArray())
netweight.Text = weight
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/454285.html
標籤：VB.net