This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | str_column = String.Join(", ",dt.AsEnumerable().Select(Function(a) a.Field(Of String)(“my_col_name”)).ToArray()) | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | str_name = System.Text.RegularExpressions.Regex.Unescape(in_TransactionItem.SpecificContent("name").ToString) | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | dt.columns.Add("REFERENCE", System.Type.GetType("System.String"), "Name + ID") | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | str_password = new System.Net.NetworkCredential("", sec_password).Password | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | from telethon.sync import TelegramClient | |
| from telethon.tl.types import InputPeerUser | |
| from telethon import functions | |
| from time import sleep | |
| api_id = 359*** | |
| api_hash = 'fe0b***' | |
| with TelegramClient("moenk", api_id, api_hash) as client: | |
| contacts = client(functions.contacts.GetContactsRequest(hash=0)) | |
| for u in contacts.users: | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("de-DE") | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | ' 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 | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | array_double_values = Array.ConvertAll(array_string_values, Function(input As String) Double.Parse(input)) | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | ExtractDataTable = ExtractDataTable.AsEnumerable().GroupBy(Function(i) i.Field(Of String)(“Mobiltelefon”)).Select(Function(g) g.First).CopyToDataTable | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | dt = dt.asenumerable.tolist.foreach(sub(row) row(“Yourcolumnname”)= cint(row(“Yourcolumnname”))) | 
OlderNewer