Hello guys,

I am new here and was looking for help with something,

I have a list input with multiple videos that are looping,

I have a lower third that has two text inputs lets say (Title, Subtitle)

is there a way to automatically trigger this lower third and have it load the name and author of the video automatically via scripting on each new video ?

any help would be appreciated,

Thank you in advance

Thank you for the quick reply, no i did not see it, can u please show me where?

I have this script published here before, but have not found it in a hurry.
it should work like this, with some work of your own to adapt this to your title and naming of your files.

This script reads the current title of a playlist and writes it formatted into a field of a vMix GT-Title.
In this example I use the title “Title 33- On the shelf- Peach.gtzip”, contained in vMix and write the text into the field “Headline.Text”. My list input is Input2. Please adapt this (title, field and list input number) for your project.

I use a list of MP3 audio files. These are named as follows:
Anni Piper - Two's Company - 01 - Blues Before Sunrise.mp3
Anni Piper - Two's Company - 02 - Live To Play.mp3
Anni Piper - Two's Company - 03 - Man's Woman.mp3
The goal is to extract a usable name from this string.

this line gets the active title name from your playlist


this line removes ".mp3"


this line defines the separator, in this case the -


the variables parts(i) are holding the individual parts, parts(1) = Anni Piper etc.
the script shows you individual variables(part(1) , part(2) ..) for 1 second in the title “Title 33- On the shelf- Peach.gtzip”

The finished script looks like this:

i think i got it,

'script playing now

do
dim xml as string = API.XML()
dim x as new system.xml.xmldocument
x.loadxml(xml)
dim word as string = (x.SelectSingleNode("//input[@number=1]/@title").InnerText)
word = word.remove(word.Length - 4)

' Split the string by "-"
Dim parts() As String = word.Split(New Char() {"-"c}, StringSplitOptions.RemoveEmptyEntries)

' Trim each part to remove leading and trailing spaces
For i As Integer = 0 To parts.Length - 1
parts(i) = parts(i).Trim()
Next

'gets number of parts
Dim number As Integer = parts.Length -1

'shows each part of the tile for a second
for ii as integer = 1 to number
API.Function("SetText",Input:="Title 7- Horizontal Red.gtzip",SelectedName:="Headline.Text",Value:=parts(1))
API.Function("SetText",Input:="Title 7- Horizontal Red.gtzip",SelectedName:="Description.Text",Value:=parts(2))
Overlay.Find(1).In("Title 7- Horizontal Red.gtzip")
sleep(5000)
Overlay.Find(1).Out
next
sleep(10000)
loop


Thank you so much guys, does this method work on as many lists i have or should i do a script for each one ? with triggers on overlay in? what do u suggest,

EDIT: i also noted that if the video in the list is over, and the above graphic is still on air it will not change the value because it is still in the loop which makes sense, so is there a way to trigger this script in a way to show the details every time a new video plays ?

great, can u provide me with a code that can switch a millisecond value into hh:mm:ss and set it in a counter ?

i wrote the code to get the duration of each video from the list,

i created a text input in vmix and added the xml in the data source manager, i then chose the duration column to always display in the text input and then accessed this information via script to trigger everything

Do
' Extract the duration value from the Message attribute in input 3
Dim xmlDoc As New System.Xml.XmlDocument()
xmlDoc.Load("http://localhost:8088/api")
Dim durationValue As String = xmlDoc.SelectSingleNode("/vmix/inputs/input[@number='3']/text[@name='Message']").InnerText

' Convert the duration value to the milliseconds
Dim durationMilliseconds As Long = Long.Parse(durationValue)

' Calculate the hours, minutes, and seconds
Dim hours As Integer = CInt((durationMilliseconds \ (1000 * 60 * 60)) Mod 24)
Dim minutes As Integer = CInt((durationMilliseconds \ (1000 * 60)) Mod 60)
Dim seconds As Integer = CInt((durationMilliseconds \ 1000) Mod 60)

' Construct the query string with the calculated values
Dim apiUrl As String = "http://localhost:8088/api"
Dim queryString As String = "Function=SetCountdown&Input=2&Title=txtClock&Value=" & hours.ToString("D2") & ":" & minutes.ToString("D2") & ":" & seconds.ToString("D2")
Dim requestUrl As String = apiUrl & "?" & queryString

' Send the request to the desired endpoint
Dim client As New System.Net.WebClient()
Dim response As String = client.DownloadString(requestUrl)

' Process the response as needed
Console.WriteLine(response)

' Wait for a certain interval before repeating the loop
Threading.Thread.Sleep(5000) ' 5 seconds
Loop While True