Thomas "moenk" Meier moenk

9 followers · 3 following

Bangsaray
03:58 (UTC +07:00)
https://www.moenk.de

View GitHub Profile

Recently created

Least recently created

Recently updated

Least recently updated

moenk / gist:541f4e4a632447532d7d1e6b312f95fd

Created February 26, 2024 10:41

VB .net UiPath Unix Timestamp to String

strUnixtime = Math.Round((DateTime.UtcNow - New DateTime(1970, 1, 1, 0, 0, 0)).TotalSeconds).ToString

moenk / photid.vb

Created December 15, 2023 16:15

UiPath vb .net encode Flickr photoid base58

	Dim CHARS As String = "123456789abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ"
	Dim CHAR_NUM As Integer = CHARS.Length
	encoded = ""
	dim fid as Int64 = Convert.ToInt64(photoid)
	While fid >= CHAR_NUM
	Dim divx As Int64
	Dim modx As Int64
	divx = Math.DivRem(fid, CHAR_NUM, modx)
	encoded = CHARS(CInt(modx)) & encoded
	fid = divx

moenk / gist:1ed37e9feef35fb8816549848f3b1eb9

Created August 2, 2023 08:04

UiPath VB .net split string to array of lines

arrDetails = strDetails.Split(Environment.NewLine.ToCharArray)

moenk / gist:292decae85ca1164791ac03209e73841

Created June 2, 2023 08:27

UiPath VB .net get current calendar week

intWeekNumber = System.Globalization.CultureInfo.InvariantCulture.Calendar.GetWeekOfYear(Datetime.Now, System.Globalization.CalendarWeekRule.FirstFourDayWeek,DayOfWeek.Monday)

moenk / gist:813724392805850cd42118b895d30915

Created May 13, 2023 06:39

UiPath VB .net JSON array to DataTable

dtResponse = Newtonsoft.Json.JsonConvert.DeserializeObject(Of DataTable)(strResponse)

moenk / gist:89304741ca48dc9ac02b17a27bff91d7

Created February 15, 2022 12:24

UiPath VB .net filter string by regex

strID = System.Text.RegularExpressions.Regex.Replace(strID, "[^0-9a-zA-Z]+", "")

moenk / gist:6b7a6b327d7b8c67d98220bd7052dd51

Created September 20, 2021 07:54

UiPath VB .net Assign String To Int in DataTable

dt = dt.asenumerable.tolist.foreach(sub(row) row(“Yourcolumnname”)= cint(row(“Yourcolumnname”)))

moenk / UiPath VB .net Remove Duplicate Rows from DataTable by Distinct Column

Last active September 18, 2021 15:41

ExtractDataTable = ExtractDataTable.AsEnumerable().GroupBy(Function(i) i.Field(Of String)(“Mobiltelefon”)).Select(Function(g) g.First).CopyToDataTable

moenk / gist:da2248d42ec47dab91113f1dddd7079f

Created August 12, 2021 09:56

UiPath VB .net convert string array to double array

array_double_values = Array.ConvertAll(array_string_values, Function(input As String) Double.Parse(input))

moenk / Excel VBA create pivot tables from data table

Created June 30, 2021 10:48

	' Quelle definieren
	Dim wks1, wks2, wks3 As Worksheet
	Set wks1 = ThisWorkbook.Sheets("Report")
	Dim tableRange As Range
	Set tableRange = wks1.UsedRange
	wks1.ListObjects.Add(SourceType:=xlSrcRange, Source:=tableRange, xlListObjectHasHeaders:=xlYes).Name = "ReportDaten"

	' Pivot erstellen
	Dim pc1, pc2 As PivotCache
	Dim pv1, pv2 As PivotTable

NewerOlder