vb.net2019- 机器学习ml.net情绪分析(1)

训练数据：网站评论可以为正面 (1) 或负面 (0)（情绪）。
预测新网站评论的情绪，正面或负面，如以下示例所示：
•我喜欢这里的服务员。 他们值得信赖。
•这里的汤是最糟糕的。

1.下载 UCI Sentiment Labeled Sentences 数据集 zip 文件（请参阅以下备注中的引文）并解压缩文件。https://archive.ics.uci.edu/ml/machine-learning-databases/00331/sentiment%20labelled%20sentences.zip

2.然后开始了！

（1）创建控制台应用程序（.net core）
（2）创建数据的目录，保存数据集文件
（3）添加->新文件夹data，右击项目
（4）NuGet包增加，右击项目 ：Microsoft.ML
（5）复制样本数据到data
（6）输入 引入的的名字空间

Imports System
Imports System.Collections
Imports System.IO
Imports System.Linq
Imports Microsoft.Data.DataView
Imports Microsoft.ML
Imports Microsoft.ML.Trainers
Imports Microsoft.ML.Transforms.Text



Module Program
    Sub Main(args As String())
        Console.WriteLine("Hello World!")
    End Sub
End Module

（7）增加属性

  Imports System
Imports System.Collections
Imports System.IO
Imports System.Linq
Imports Microsoft.Data.DataView
Imports Microsoft.ML
Imports Microsoft.ML.Trainers
Imports Microsoft.ML.Transforms.Text

Module Program
    Private ReadOnly _dataPath As String = Path.Combine(Environment.CurrentDirectory, "data", "yelp_labelled.txt")
    Private ReadOnly _modelPath As String = Path.Combine(Environment.CurrentDirectory, "data", "model.zip")

    Public ReadOnly Property DataPath As String
        Get
            Return _dataPath
        End Get
    End Property
    Public ReadOnly Property ModelPath As String
        Get
            Return _modelPath
        End Get
    End Property

    Sub Main(args As String())
        Console.WriteLine("Hello World!")
        Console.ReadKey()
    End Sub
End Module

创建数据集类和预测类
类文件SentimentData.vb

Imports Microsoft.ML.Data
Public Class SentimentData
    <LoadColumn(0)>
    Public SentimentText As String
    <LoadColumn(1), ColumnName("Label")>
    Public Sentiment As Boolean
End Class
Public Class SentimentPrediction
    <ColumnName("PredictedLabel")>
    Public Property Prediction() As Boolean
    Public Property Probability() As Double
    Public Property Score() As Double



End Class