Skip to content

Instantly share code, notes, and snippets.

View lotusorrose's full-sized avatar

lotusorrose

View GitHub Profile
@lotusorrose
lotusorrose / test.m3u
Last active June 2, 2024 20:32
#EXTM3U x-tvg-url="https://i.mjh.nz/SamsungTVPlus/all.xml"
#EXTINF:-1 channel-id="samsung-ATBA1000004XC" tvg-id="ATBA1000004XC" tvg-logo="https://tvpnlogopeu.samsungcloud.tv/platform/image/sourcelogo/vc/00/02/34/ATBA1000004XC_20230222T012142SQUARE.png_20230222012142.png" tvg-chno="4003" group-title="Austria" , Euronews Live
https://i.mjh.nz/SamsungTVPlus/ATBA1000004XC.m3u8
#EXTINF:-1 channel-id="samsung-ATBA10000096N" tvg-id="ATBA10000096N" tvg-logo="https://tvpnlogopeu.samsungcloud.tv/platform/image/sourcelogo/vc/00/02/34/ATBA10000096N_20240214T040010SQUARE.png_20240214040010.png" tvg-chno="4004" group-title="Austria" , Top Filme - Rakuten TV
https://i.mjh.nz/SamsungTVPlus/ATBA10000096N.m3u8
#EXTINF:-1 channel-id="samsung-ATBD800001VA" tvg-id="ATBD800001VA" tvg-logo="https://tvpnlogopeu.samsungcloud.tv/platform/image/sourcelogo/vc/00/02/34/ATBD800001VA_20230308T021713SQUARE.png_20230308021714.png" tvg-chno="4005" group-title="Austria" , CNN
https://i.mjh.nz/SamsungTVPlus/ATBD800001VA.m3u8
@lotusorrose
lotusorrose / reflow
Created January 5, 2023 17:28
Option Explicit
Dim maxChars As Long
Dim txt As String
Dim newtxt As String
Dim curcounter As Long
Public Sub main()
maxChars = 80
txt = ActiveDocument.Content.Text