Aide avec timespan

bonjour,

j'ai un petit problème quand je clique sur enregistrer, il y a un message d'erreur : La chaine n'a pas été reconnue en tant que TimeSpan valide.
voici en image:
Pièce jointe 150988

voici mon pour lire :

Code:

---

1 2	Dim MB As TimeSpan = TimeSpan.FromMilliseconds(CDbl(reader.ReadUInt32)) Me.TextBox1.Text = MB.Minutes.ToString("00") & ":" & MB.Seconds.ToString("00") & "." & MB.Milliseconds.ToString("00").Substring(0, 2)

---

voici mon code enregistrer :

Code:

---

1 2	Dim span = TimeSpan.Parse(TextBox1.Text) writer.WriteUInt32(Math.Round(span.TotalMilliseconds))

---

Pouvez-vous m'aide à résoudre ce petit problème? Merci

Cordialement,

re,

j'ai trouver la solution de mon message erreur
le code :

Code:

---

Me.TextBox1.Text = MB.Minutes.ToString("00") & ":" & MB.Seconds.ToString("00") & ":" & MB.Milliseconds.ToString("00").Substring(0, 2)

---

Mon Problème c'est quand , je clique sur save et je relie mon fichier . on dirai que les 9 sec sont déplacer dans les minutes et 53 millisecondes sont déplacer dans les secondes.
voici en image :
Pièce jointe 151014

voici mes code lecture et save :

Code:

---

1 2 3 4 5 6

lecture : Dim MB As TimeSpan = TimeSpan.FromMilliseconds(CDbl(reader.ReadUInt32)) Me.TextBox1.Text = MB.Minutes.ToString("00") & ":" & MB.Seconds.ToString("00") & ":" & MB.Milliseconds.ToString("00").Substring(0, 2) save: Dim span = TimeSpan.Parse(TextBox1.Text) writer.WriteUInt32(Math.Round(span.TotalMilliseconds))

---

avez-vous une solution pour corriger ce petit problème?

Bonjour,

Code:

---

1 2	Dim res As Double = (New TimeSpan(0, Integer.Parse(TextBox1.Text.Split(":")(0)), Integer.Parse(TextBox1.Text.Split(":")(1), Integer.Parse(TextBox1.Text.Split(":")(2))))).TotalMilliseconds writer.WriteUInt32(Math.Round(res))

---

Ou comment se compliquer la vie :lol: (sans parler de faire 3 fois le même Split sans le stocker :aie:)
Comme déjà dit sur le chat quand tu y es passé ; le format utilisé par TimeSpan.Parse n'est pas celui que tu donnes (au minimum il attend hh:mm alors que toi tu n'as pas d'heures mais juste mm:ss.ff) à la place utilise TimeSpan.ParseExact en donnant le bon format ça simplifiera une bonne partie du code :D

Je ne voie pas l'intérêt de créer systèmatiquement des variables intermédiaires lorsque l'on utilise des méthodes de la classe string. (sauf si on les utilise de nombreuses fois après)

Personnellement, je vois pas l'intérêt de re-créer le même tableau 3 fois, juste pour en récupérer un seul élément ; une fois créé on a accès à tous ses éléments et on "paye" la création qu'une seule fois
(après je vois pas non plus l'intérêt de coder en Option Strict Off [sauf scenario de Late Binding pour faire l'équivalent d'un dynamic C#] chose nécessaire pour que ce Split compile [y'a aucun Split qui prend juste un String en argument])

De tout façon c'est pas l'aspect le plus important du sujet en question :) donc les goûts et les couleurs :haha:

bonjour rv26t,

j'ai essayer votre codes, quand clique sur save et je relie mon fichier , il m'affiche 00:09:00 => seconds . il m'affiche pas les Millisecondes.
il enregistre pas les Millisecondes.
voici votre codes :

Code:

---

1 2	Dim res As Double = (New TimeSpan(0, Integer.Parse(TextBox1.Text.Split(":")(0)), Integer.Parse(TextBox1.Text.Split(":")(1), Integer.Parse(TextBox1.Text.Split(":")(2))))).TotalMilliseconds writer.WriteUInt32(Math.Round(res))

---

Merci,cordialement

Je répondais de façon générale pas forcément sur ce cas précis.
Après, dans ce cas, si on est vraiment à la recherche de la milliseconde a économiser.

@hacker59
Sehnsucht a une meilleure solution.

Juste pour info, mon code avec le split correct

Code:

---

1 2	Dim tab() As String = TextBox1.Text.Split(New [Char]() {":"c, "."c}) Dim res As Double = (New TimeSpan(0, Integer.Parse(tab(0)), Integer.Parse(tab(1)), Integer.Parse(tab(2)))).TotalMilliseconds

---

moi, je voudrais quand j'enregistre et relie mon fichier , il m'affiche le résulta comme ceci : mm:ss.ff => Minute:second.milliseconde
j'ai essayer sont code de Sehnsucht,
voici le code :

Code:

---

1 2	Dim span = TimeSpan.ParseExact(TextBox1.Text) writer.WriteUInt32(Math.Round(span.TotalMilliseconds))

---

message erreur : La résolution de surcharge a échoué, car aucun 'ParseExact' accessible n'accepte ce nombre d'arguments.

comment écrire le code?

Merci,

Bonjour,

Citation:

---

Envoyé par hacker59

moi, je voudrais quand j'enregistre et relie mon fichier , il m'affiche le résulta comme ceci : mm:ss.ff => message erreur : La résolution de surcharge a échoué, car aucun 'ParseExact' accessible n'accepte ce nombre d'arguments.

comment écrire le code?

Merci,

---

Fais l'effort de regarder dans ton aide; c'est plein d'exemples

TimeSpan.ParseExact a besoin d'au moins deux paramètres.

Clique sur ParseExact et pèse sur :f1:

Ca fait longtemps que j'ai laissé tombé les demandes d'aide de Hacker59 :

Citation:

---

avez-vous une solution pour corriger ce petit problème ?
Pouvez-vous m'aide à résoudre ce petit problème ?
comment écrire le code?

---

...... sans compter que lorsqu'il obtient une solution il ne passe pas ses sujets en résolu !


...... il veut juste du code prêt à l'emploi.... :weird:

Si la valeur s'enregistre, après, il faut suivre la lecture en pas à pas, pour voir si la transformation dans l'autre sens se passe bien.

[Edit]
La réponse n'est pas forcément évidente à trouver sur msdn, il faut utiliser les Chaînes de format TimeSpan personnalisées

Code:

---

1 2 3 4 5 6

Dim interval As TimeSpan If TimeSpan.TryParseExact(TextBox1.Text, "mm\:ss\.ff", Nothing, interval) Then res = interval.TotalMilliseconds Else MessageBox.Show("convertion erronée.") End If

---

bonjour, Merci de votre réponse mais j'ai trouver la solution a mon problème.

voici mon code :

Code:

---

1 2	Dim span As New TimeSpan(0 , 0 , Me.NumericUpDown1.Value, Me.NumericUpDown2.Value, Me.NumericUpDown3.Value) writer.WriteUInt32(Math.Round(span.TotalMilliseconds))

---

cordialement,