1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| For Each ligne As String In TextBox1.Text.Split(ControlChars.NewLine) 'pour chaque ligne de la textbox je sépare les caractéres
'objet
Dim debut_obj As Integer = TextBox1.Text.IndexOf("Objet : ") + 8
Dim fin_obj As Integer = TextBox1.Text.IndexOf(ControlChars.NewLine, debut_obj)
Dim longeur_obj As Integer = fin_obj - debut_obj
msg_admin_objet = TextBox1.Text.Substring(debut_obj, longeur_obj)
Next
'enregistrement du message administratif dans la base de donnée
Dim MyNewRow As DataRow = dst_admin.Tables("administratif").NewRow
MyNewRow("numero") = msg_admin_num
MyNewRow("date") = msg_admin_date
MyNewRow("heure") = msg_admin_heure
'Le problème est ici
MyNewRow("objet") = msg_admin_objet |
Partager