/* Menús de administración que SÍ se ven - El resto desaparecen */
add_action('admin_init', 'ayudawp_admin_init');
function ayudawp_admin_init()
{   
// Menús que se quedan 
$menus_to_stay = array(
     // Escritorio
        'index.php',
    // Entradas
        'edit.php',
    // Medios
        'upload.php',
    // Usuarios
        'users.php',
    );      
    foreach ($GLOBALS['menu'] as $key => $value) {          
        if (!in_array($value[2], $menus_to_stay)) remove_menu_page($value[2]);
    }   
}

/* Quitar menús principales de admin de WordPress */
function remove_menus(){
  
  remove_menu_page( 'index.php' );                  //Escritorio
  remove_menu_page( 'edit.php' );                   //Entradas
  remove_menu_page( 'upload.php' );                 //Multimedia
  remove_menu_page( 'edit.php?post_type=page' );    //Páginas
  remove_menu_page( 'edit-comments.php' );          //Comentarios
  remove_menu_page( 'themes.php' );                 //Apariencia
  remove_menu_page( 'plugins.php' );                //Plugins
  remove_menu_page( 'users.php' );                  //Usuarios
  remove_menu_page( 'tools.php' );                  //Herramientas
  remove_menu_page( 'options-general.php' );        //Ajustes
  
}
add_action( 'admin_menu', 'remove_menus' );

/* Quitar submenús de admin de WP */
function remove_submenus() {
    remove_submenu_page( 'themes.php', 'theme-editor.php' ); //Editor de temas
    remove_submenu_page( 'themes.php', 'themes.php' ); //Selector de temas
    remove_submenu_page( 'edit.php', 'edit-tags.php?taxonomy=post_tag' ); //Página admin de etiquetas
    remove_submenu_page( 'edit.php', 'edit-tags.php?taxonomy=category' ); //Página admin de categorías
    remove_submenu_page( 'edit.php', 'post-new.php' ); //Añadir nueva
    remove_submenu_page( 'themes.php', 'nav-menus.php' ); //Apariencia -> Menús
    remove_submenu_page( 'themes.php', 'widgets.php' ); //Apariencia -> Widgets
    remove_submenu_page( 'plugins.php', 'plugin-editor.php' ); //Editor de plugins
    remove_submenu_page( 'plugins.php', 'plugin-install.php' ); //Instalar plugins
    remove_submenu_page( 'users.php', 'user-new.php' ); //Añadir usuario
    remove_submenu_page( 'upload.php', 'media-new.php' ); //Añadir medios
    remove_submenu_page( 'options-general.php', 'options-writing.php' ); //Ajustes de escritura
    remove_submenu_page( 'options-general.php', 'options-discussion.php' ); //Ajustes de comentarios
    remove_submenu_page( 'options-general.php', 'options-reading.php' ); //Ajustes de lectura
    remove_submenu_page( 'options-general.php', 'options-media.php' ); //Ajustes de medios
    remove_submenu_page( 'options-general.php', 'options-privacy.php' ); //Ajustes de privacidad
    remove_submenu_page( 'options-general.php', 'options-permalinks.php' ); //Ajustes de enlaces permanentes
    remove_submenu_page( 'index.php', 'update-core.php' ); //Actualizaciones
}
add_action( 'admin_menu', 'remove_submenus' );

echo "# lipa-na-mpesa" >> README.md
git init
git add README.md
git commit -m "first commit"
git branch -M main
git remote add origin https://github.com/isaack-mungui/lipa-na-mpesa.git
git push -u origin main

git remote add origin https://github.com/isaack-mungui/lipa-na-mpesa.git
git branch -M main
git push -u origin main

# Config for bundle to only install the dev + test gems
bundle config set --local without production

# Kill a stuck rails s
# 1. Find the PID number
cat tmp/pids/server.pid
# 2. Kill the process with that PID number
kill -9 <PID>

# Generate a model
rails generate model YourModelNameHere (singular)

# Generate a migration
rails generate migration NameYourMigration

# Revers the last migration
rails db:rollback

# Open the Rails console
rails c

################################ Rails console ################################

# Reload console
reload!

# Create a new instance variable
u = User.new

# Check if valid
u.valid?

# Check for any errors
u.errors.full_messages

# Retrieve all the posts from your first user
User.first.posts

# Using #build to create a new post from a user (if associations were placed)
upnew = User.first.posts.new

########################################## Routes ########################################

# RESTful Routes overview
GET all the posts (aka “index” the posts)
GET just one specific post (aka “show” that post)
GET the page that lets you create a new post (aka view the “new” post page)
POST the data you just filled out for a new post back to the server so it can create that post (aka “create” the post)
GET the page that lets you edit an existing post (aka view the “edit” post page)
PUT the data you just filled out to edit the post back to the server so it can actually perform the update (aka “update” the post)
DELETE one specific post by sending a delete request to the server (aka “destroy” the post)

# RESTful Routes in code
  get "/posts", to: "posts#index"
  get "/posts/new", to: "posts#new"
  get "/posts/:id", to: "posts#show"
  post "/posts", to: "posts#create"  # usually a submitted form
  get "/posts/:id/edit", to: "posts#edit"
  put "/posts/:id", to: "posts#update" # usually a submitted form
  delete "/posts/:id", to: "posts#destroy"

# Or one liner for the code above
  resources :posts
  # Restrict which routes to generate
  resources :posts, only: [:index, :show]
  resources :users, except: [:index]

# Init code
Rails.application.routes.draw do
end

# Define root
root 'cars#index'


########################################## Controller #####################################



########################################## Routes ########################################



########################################## Routes ########################################



########################################## Routes ########################################

import * as React from 'react';
import { Text, View, StyleSheet, Image, ActivityIndicator } from 'react-native';

const url = 'https://homepages.cae.wisc.edu/~ece533/images/airplane.png';
const placeholder = require('./assets/snack-icon.png');

export default class App extends React.Component {
  constructor(props) {
    super(props);
    this.state = {
      imageSource: null,
    };
  }

  componentDidMount() {
    this.getImageSource(url);
  }

  getImageSource = url => {
    if (url) {
      this.setState({ imageSource: { uri: url } });
    } else {
      this.setState({ imageSource: placeholder });
    }
  };

  onErrorImage = () => {
    this.setState({ imageSource: placeholder });
  };

  render() {
    return (
      <View style={styles.container}>
          <Image
            source={this.state.imageSource}
            style={{ width: 100, height: 100 }}
            onError={this.onErrorImage}
          /> 
      </View>
    );
  }
}

Standard Bank email disclaimer and confidentiality note
Please go to www.standardbank.co.za/site/homepage/emaildisclaimer.html to read our email disclaimer and confidentiality note. Kindly email disclaimer@standardbank.co.za (no content or subject line necessary) if you cannot view that page and we will email our email disclaimer and confidentiality note to you.

import json

response = textract.analyze_document(Document={'Bytes': imageBytes},FeatureTypes=["FORMS"])

json_invoice_test = json.dumps(response)

with open("json_invoice_test1.json", 'w') as outfile:
    outfile.write(json_invoice_test)
    
   
with open("json_invoice_test2.json", 'w') as outfile:
     json.dump(response, outfile)   

<iframe
  src="https://tally.so/embed/3lbbQ6?alignLeft=1&hideTitle=1&transparentBackground=1"
  width="100%"
  height="200"
  frameborder="0"
  marginheight="0"
  marginwidth="0"
  title="Widget Demo">
</iframe>

 Dear Registrant,


Please be advised that the contact details for "Your Name Here" 
have been updated as detailed below.

Should you have any queries in this regard, please contact your Registrar "Your Registrar" 
at +27.114569812 or YourRegistrar@TheirEmail.co.za

Current Contact Information:
  ID:    RegistrarGivenID  
  Phone:  +27.115551234
  Fax:    +86.5551234
  Email:  YourEmail@inbox.co.za

Current Contact Localized Postal Address:
  Name:    Your Initial Provided Name
  Street:  12 Fake Street
  Street:  Fake Place
  Street:  Fake Suburb 
  Org:    Your Organisation
  City:    Your City
  Province: Your rovince
  Country: ZA
  Code:    90210


New Contact Information:
  ID:    RegistrarGivenID  
  Phone:  +27.110003333
  Fax:    +27.119990000
  Email:  NewEmail@NewInbox.co.za

New Contact Localized Postal Address:
  Name:    New Name Provided
  Street:  21 New Street
  Street:  New Place 
  Street:  New Suburb
  Org:    New Organisation
  City:    New Town
  Province: New Province
  Country: ZA
  Code:    2199


Additional Information:
  Status:
    ok


-- 

CO.ZA Registry
http://www.registry.net.za

Dear Registrant,


Domain 'exampledomain.co.za' Updated as detailed below

Should you have any queries in this regard, please contact your Domain Registrar "Your Registrar" 
at +27.115639090 or YourRegistrar@TheirEmail.co.za


Current Domain Information:
  AutoRenew: True  
  Expiry:    2012-04-15 11:47:12.486654

Registrar Details
-------------------
Unique ID: testrar1
Contact:  Registrar Name
Postal:    12 Fake Street, Fake Place, Gauteng
Phone:    +27.115639090
Fax:      +27.113650909
E-Mail:    YourRegistrar@TheirEmail.co.za

Registrant Details
-------------------
Unique ID: RegistarGivenID
Contact:  Your Name
Postal:    Your Address
Phone:    +27.115551234
Fax:      +27.115551234
E-Mail:    YourEmail@inbox.co.za

Requester Details
-------------------
Unique ID: RequesterID
Contact:  Name of Requester
Postal:    21 Fake Street, Fake Place, Gauteng
Phone:    +27.110987654
Fax:      +27.112458345
E-Mail:    RequesterEmail@inbox.co.za



Additional Information:
  Status:
    ok


  Nameservers:
    ns1.otherdomain.co.za
    ns2.otherdomain.co.za
    ns3.exampledomain.co.za ( 123.123.123.123 )


--

CO.ZA Registry
http://www.registry.net.za 

 Dear Registrant,


Domain 'exampledomain.co.za' Pending Deletion in 5 days

Should you have any queries in this regard, please contact your Domain Registrar "Your Registrar" 
at +27.115639090 or YourRegistrar@TheirEmail.co.za


Current Domain Information:
  AutoRenew: True  
  Expiry:    2012-04-15 11:47:12.486654

Registrar Details
-------------------
Unique ID: testrar1
Contact:  Registrar Name
Postal:    12 Fake Street, Fake Place, Gauteng
Phone:    +27.115639090
Fax:      +27.113650909
E-Mail:    YourRegistrar@TheirEmail.co.za

Registrant Details
-------------------
Unique ID: RegistarGivenID
Contact:  Your Name
Postal:    Your Address
Phone:    +27.115551234
Fax:      +27.115551234
E-Mail:    YourEmail@inbox.co.za

Requester Details
-------------------
Unique ID: RequesterID
Contact:  Name of Requester
Postal:    21 Fake Street, Fake Place, Gauteng
Phone:    +27.110987654
Fax:      +27.112458345
E-Mail:    RequesterEmail@inbox.co.za



Additional Information:
  Status:
    pendingDelete -- This domain is pending suspension.


  Nameservers:
    ns1.otherdomain.co.za
    ns2.otherdomain.co.za
    ns3.exampledomain.co.za ( 123.123.123.123 )


--

CO.ZA Registry
http://www.registry.net.za 

 Dear Registrant,


Domain 'exampledomain.co.za' Suspended

Should you have any queries in this regard, please contact your Domain Registrar "Your Registrar" 
at +27.115639090 or YourRegistrar@TheirEmail.co.za


Current Domain Information:
  AutoRenew: True  
  Expiry:    2012-04-15 11:47:12.486654

Registrar Details
-------------------
Unique ID: testrar1
Contact:  Registrar Name
Postal:    12 Fake Street, Fake Place, Gauteng
Phone:    +27.115639090
Fax:      +27.113650909
E-Mail:    YourRegistrar@TheirEmail.co.za

Registrant Details
-------------------
Unique ID: RegistarGivenID
Contact:  Your Name
Postal:    Your Address
Phone:    +27.115551234
Fax:      +27.115551234
E-Mail:    YourEmail@inbox.co.za

Requester Details
-------------------
Unique ID: RequesterID
Contact:  Name of Requester
Postal:    21 Fake Street, Fake Place, Gauteng
Phone:    +27.110987654
Fax:      +27.112458345
E-Mail:    RequesterEmail@inbox.co.za



Additional Information:
  Status:
    pendingDelete -- This domain is pending deletion.


  Nameservers:
    ns1.otherdomain.co.za
    ns2.otherdomain.co.za
    ns3.exampledomain.co.za ( 123.123.123.123 )


--

CO.ZA Registry
http://www.registry.net.za 

 Dear Registrant,


Please be advised that the domain "exampledomain.co.za" has been deleted.

Should you have any queries in this regard, please contact your Domain Registrar 
"Your Registrar" at +27.111234567 or YourRegistrar@TheirEmail.co.za


--

CO.ZA Registry
http://www.registry.net.za

 Dear Registrant,


Please be advised that a transfer request has been issued by "New Registrar" 
(NewRarID) for "exampledomain.co.za".

Should you have any queries in this regard, please contact your Domain Registrar "Your Registrar" at 
+27.113456789 or YourRegistrar@TheirEmail.co.za

To authorize this request, please click the following or copy and paste the URL into your browser:

[1] http://127.0.0.1:8080/epp/transferVoteWeb?accept

To deny this request, please click the following or copy and paste the URL into your browser:

[2] http://127.0.0.1:8080/epp/transferVoteWeb?deny

Alternatively reply to this email after deleting the word 'Accept' or 'Deny' below.
 
[3] MAGIC C00KIE250:11d80d077870799e71b9ad8c1034733b:Accept Deny:exampledomain.co.za


Sincerely,

CO.ZA Registry

-styles_blooket_2Yq1s.com|case{ width:1cck; heigth:100x;

[kogama set to ]{give skittle-cocoa_cube_gun_infinty}[on parkour]const book = {“date does'=2022/05/11 date start 

df1 %>%
  full_join(df2, by = c("column_name_1", "column_name_2"), 
            suffix = c("_df1", "_df2")) 
%>%
  replace_na(list(n_batman = 0, n_star_wars = 0)) 

sum by (user) (rate(cortex_discarded_samples_total{cluster=~"prod-us-central-0", job=~"(cortex-prod-06)/((ingester.*|cortex|mimir))"}[$__rate_interval]))

curl -sK -v http://localhost:8080/debug/pprof/heap > heap.out


go tool pprof heap.out

declare
v_sql clob ;
v_sql2 clob ;
v_whsid varchar(10);
v_sql4 clob;
v_sql3 clob;
begin
  v_whsid  := :GS_WHSID;
  v_sql :=  'select T.GLTRNPUR_PK,
      t.purno_c,
      t.purdt,
      sbs.sbsname vndname,
      t.purrefno,
      t.paytype,
      t.crnid,
      t.grsamt,
      t.WHSID,
      t.BRID,
      nvl(t.grsamt, 0) - nvl((SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTADJ)  FROM GLTRNCLG_INV CLG WHERE INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTDR)  FROM GLTRNJV_D CLG WHERE INVNO_C = T.PURNO_C), 0)
      balance,
      t.srcno_c,
      (SELECT MAX(PV.PVNO_C)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) PVNO_C,
     (SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) AMT,
      decode(t.srcno_c, null, $M$, $A$) TYPE
 from VGLTRNPUR_L01_ABM t,cmjrn x ,cmsbs sbs
 where t.PURJRNID = x.jrnid(+)
 and  t.vndid_c = sbs.sbsid_c(+)
  and X.JRNFLT1 IS NULL
  and to_date(t.purdt, $DD-MON-YY$) BETWEEN
      nvl(to_date($'||:P1550_DTFR||'$, $DD-MON-YY$), t.purdt) and
      nvl(to_date($'||:P1550_DTTO||'$, $DD-MON-YY$), t.purdt)
  and decode(t.srcno_c, null, $M$, $A$) = $'||:P1550_TYPE||'$
  and (x.jtyid =  $GLPUR$ and  x.BRID = $'||:GS_BRID||'$  OR x.jrnid = $DCTRS$)';

   

     V_sql2 := 'select T.GLTRNPUR_PK,
      t.purno_c,
      t.purdt,
      sbs.sbsname vndname,
      t.purrefno,
      t.paytype,
      t.crnid,
      t.grsamt,
      t.WHSID,
      t.BRID,
      nvl(t.grsamt, 0) - nvl((SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTADJ)  FROM GLTRNCLG_INV CLG WHERE INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTDR)  FROM GLTRNJV_D CLG WHERE INVNO_C = T.PURNO_C), 0)
      balance,
      t.srcno_c,
      (SELECT MAX(PV.PVNO_C)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) PVNO_C,
     (SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) AMT,
      decode(t.srcno_c, null, $M$, $A$) TYPE
 from VGLTRNPUR_L01_ABM t,cmjrn x ,cmsbs sbs
 where t.PURJRNID = x.jrnid(+)
 and  t.vndid_c = sbs.sbsid_c(+)
  and X.JRNFLT1 IS NULL
  and to_date(t.purdt, $DD-MON-YY$) BETWEEN
      nvl(to_date($'||:P1550_DTFR||'$ , $DD-MON-YY$), t.purdt) and
      nvl(to_date($'||:P1550_DTTO||'$ , $DD-MON-YY$), t.purdt)
  and decode(t.srcno_c, null, $M$, $A$) = $'||:P1550_TYPE||'$ 
  and (x.jtyid =  $GLPUR$ and  x.BRID = $'||:GS_BRID||'$  OR x.jrnid = $DCTRS$)';
  
  
  v_sql3 := 'select T.GLTRNPUR_PK,
      t.purno_c,
      t.purdt,
      sbs.sbsname vndname,
      t.purrefno,
      t.paytype,
      t.crnid,
      t.grsamt,
      t.WHSID,
      t.BRID,
      nvl(t.grsamt, 0) - nvl((SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTADJ)  FROM GLTRNCLG_INV CLG WHERE INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTDR)  FROM GLTRNJV_D CLG WHERE INVNO_C = T.PURNO_C), 0)
      balance,
      t.srcno_c,
      (SELECT MAX(PV.PVNO_C)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) PVNO_C,
     (SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) AMT,
      decode(t.srcno_c, null, $M$, $A$) TYPE
 from VGLTRNPUR_L01_ABM t,cmjrn x ,cmsbs sbs
 where t.PURJRNID = x.jrnid(+)
 and  t.vndid_c = sbs.sbsid_c(+)
  and X.JRNFLT1 IS NULL
  and to_date(t.purdt, $DD-MON-YY$) BETWEEN
      nvl(to_date($'||:P1550_DTFR||'$ , $DD-MON-YY$), t.purdt) and
      nvl(to_date($'||:P1550_DTTO||'$ , $DD-MON-YY$), t.purdt)
  and decode(t.srcno_c, null, $M$, $A$) = $'||:P1550_TYPE||'$ 
  and (x.jtyid =  $GLPUR$ and  x.BRID = $'||:GS_BRID||'$)';
   
   v_sql4 :=  'select T.GLTRNPUR_PK,
      t.purno_c,
      t.purdt,
      sbs.sbsname vndname,
      t.purrefno,
      t.paytype,
      t.crnid,
      t.grsamt,
      t.WHSID,
      t.BRID,
      nvl(t.grsamt, 0) - nvl((SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTADJ)  FROM GLTRNCLG_INV CLG WHERE INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTDR)  FROM GLTRNJV_D CLG WHERE INVNO_C = T.PURNO_C), 0)
      balance,
      t.srcno_c,
      (SELECT MAX(PV.PVNO_C)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) PVNO_C,
     (SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) AMT,
      decode(t.srcno_c, null, $M$, $A$) TYPE
 from VGLTRNPUR_L01_ABM t,cmjrn x ,cmsbs sbs
 where t.PURJRNID = x.jrnid(+)
 and  t.vndid_c = sbs.sbsid_c(+)
  and X.JRNFLT1 IS NULL
  and to_date(t.purdt, $DD-MON-YY$) BETWEEN
      nvl(to_date($'||:GS_BRID||'$ , $DD-MON-YY$), t.purdt) and
      nvl(to_date($'||:GS_BRID||'$ , $DD-MON-YY$), t.purdt)
  and decode(t.srcno_c, null, $M$, $A$) = $'||:GS_BRID||'$ 
  and (x.jtyid =  $GLPUR$ and  x.BRID = $'||:GS_BRID||'$)
  and x.jrnid = $asd$';
   
  
   
if v_whsid =  'G1' or v_whsid = 'K1' then
return( REPLACE (replace (v_sql,''''),'$',''''));
--elsif v_whsid = 'K1' then 
 --return( REPLACE (replace (v_sql2,''''),'$',''''));
elsif v_whsid = 'KH' then 
 return( REPLACE (replace (v_sql3,''''),'$',''''));
else return ( REPLACE (replace (v_sql4,''''),'$',''''));
  end if;
   end;

php -i | grep "php.ini"
// Restart web server after editing
sudo systemctl reload nginx // To gracefully reload the service 
//or 
sudo systemctl restart nginx // To force restart

sudo service rabbitmq-server restart

art service-bus:server event --daemon=true // 'event' can be replaced by whatever type it is query, etc.

# Settings apply across all Linux distros running on WSL 2
[wsl2]

# Limits VM memory to use no more than 4 GB, this can be set as whole numbers using GB or MB
memory=4GB 

# Sets the VM to use two virtual processors
processors=2

# Specify a custom Linux kernel to use with your installed distros. The default kernel used can be found at https://github.com/microsoft/WSL2-Linux-Kernel
kernel=C:\\temp\\myCustomKernel

# Sets additional kernel parameters, in this case enabling older Linux base images such as Centos 6
kernelCommandLine = vsyscall=emulate

# Sets amount of swap storage space to 8GB, default is 25% of available RAM
swap=8GB

# Sets swapfile path location, default is %USERPROFILE%\AppData\Local\Temp\swap.vhdx
swapfile=C:\\temp\\wsl-swap.vhdx

# Disable page reporting so WSL retains all allocated memory claimed from Windows and releases none back when free
pageReporting=false

# Turn off default connection to bind WSL 2 localhost to Windows localhost
localhostforwarding=true

# Disables nested virtualization
nestedVirtualization=false

# Turns on output console showing contents of dmesg when opening a WSL 2 distro for debugging
debugConsole=true

Function ParseWord(varPhrase As Variant, ByVal iWordNum As Integer, Optional strDelimiter As String = " ", _
    Optional bRemoveLeadingDelimiters As Boolean, Optional bIgnoreDoubleDelimiters As Boolean) As Variant
On Error GoTo Err_Handler 'I COMMENTED THIS OUT AND THE REFERENCE AT THE BOTTOM
    'Purpose:   Return the iWordNum-th word from a phrase.
    'Return:    The word, or Null if not found.
    'Arguments: varPhrase = the phrase to search.
    '           iWordNum = 1 for first word, 2 for second, ...
    '               Negative values for words form the right: -1 = last word; -2 = second last word, ...
    '               (Entire phrase returned if iWordNum is zero.)
    '           strDelimiter = the separator between words. Defaults to a space.
    '           bRemoveLeadingDelimiters: If True, leading delimiters are stripped.
    '               Otherwise the first word is returned as null.
    '           bIgnoreDoubleDelimiters: If true, double-spaces are treated as one space.
    '               Otherwise the word between spaces is returned as null.
    'Author:    Allen Browne. http://allenbrowne.com. June 2006.
    Dim varArray As Variant     'The phrase is parsed into a variant array.
    Dim strPhrase As String     'varPhrase converted to a string.
    Dim strResult As String     'The result to be returned.
    Dim lngLen As Long          'Length of the string.
    Dim lngLenDelimiter As Long 'Length of the delimiter.
    Dim bCancel As Boolean      'Flag to cancel this operation.

    '*************************************
    'Validate the arguments
    '*************************************
    'Cancel if the phrase (a variant) is error, null, or a zero-length string.
    If IsError(varPhrase) Then
        bCancel = True
    Else
        strPhrase = Nz(varPhrase, vbNullString)
        If strPhrase = vbNullString Then
            bCancel = True
        End If
    End If
    'If word number is zero, return the whole thing and quit processing.
    If iWordNum = 0 And Not bCancel Then
        strResult = strPhrase
        bCancel = True
    End If
    'Delimiter cannot be zero-length.
    If Not bCancel Then
        lngLenDelimiter = Len(strDelimiter)
        If lngLenDelimiter = 0& Then
            bCancel = True
        End If
    End If

    '*************************************
    'Process the string
    '*************************************
    If Not bCancel Then
        strPhrase = varPhrase
        'Remove leading delimiters?
        If bRemoveLeadingDelimiters Then
            strPhrase = Nz(varPhrase, vbNullString)
            Do While Left$(strPhrase, lngLenDelimiter) = strDelimiter
                strPhrase = Mid(strPhrase, lngLenDelimiter + 1&)
            Loop
        End If
        'Ignore doubled-up delimiters?
        If bIgnoreDoubleDelimiters Then
            Do
                lngLen = Len(strPhrase)
                strPhrase = Replace(strPhrase, strDelimiter & strDelimiter, strDelimiter)
            Loop Until Len(strPhrase) = lngLen
        End If
        'Cancel if there's no phrase left to work with
        If Len(strPhrase) = 0& Then
            bCancel = True
        End If
    End If

    '*************************************
    'Parse the word from the string.
    '*************************************
    If Not bCancel Then
        varArray = Split(strPhrase, strDelimiter)
        If UBound(varArray) >= 0 Then
            If iWordNum > 0 Then        'Positive: count words from the left.
                iWordNum = iWordNum - 1         'Adjust for zero-based array.
                If iWordNum <= UBound(varArray) Then
                    strResult = varArray(iWordNum)
                End If
            Else                        'Negative: count words from the right.
                iWordNum = UBound(varArray) + iWordNum + 1
                If iWordNum >= 0 Then
                    strResult = varArray(iWordNum)
                End If
            End If
        End If
    End If

    '*************************************
    'Return the result, or a null if it is a zero-length string.
    '*************************************
    If strResult <> vbNullString Then
        ParseWord = strResult
    Else
        ParseWord = Null
    End If

Exit_Handler:
    Exit Function

Err_Handler: 'I COMMENTED OUT THESE 4 LINES
    Call LogError(Err.Number, Err.Description, "ParseWord()")
    Resume Exit_Handler
End Function

parts_joined %>%
  # Sort the number of star wars pieces in descending order 
arrange(desc(n_star_wars)) %>%
  # Join the colors table to the parts_joined table
inner_join(colors, by = c("color_id" = "id")) %>%
  # Join the parts table to the previous join 
inner_join(parts, by = "part_num", suffix = c("_color", "_part") )

<#-- Using '...' instead of "..." for convenience: no need for \" escapes this way. -->
<#assign test = '{"foo":"bar", "f":4, "text":"bla bla"}'>
<#assign m = test?eval_json>

${m.foo}  <#-- prints: bar -->

<#-- Dump the whole map: -->
<#list m as k, v>
  ${k} => ${v}
</#list>

df1 %>% 
  filter(data1 %in% df2$data2)
# Here example from SIMBA. Too many results in HbA1c, Weight data contains only completers.
HbA1c_hem_final %>% 
  filter(allocation_no %in% weight_data$allocation_no)

filter_joined_df <- semi_join(df_filtered, df_filtered_by, by = "column_name") 

#If column-name is NOT identical in both dfs: 
filter_joined_df <- semi_join(df_filtered, df_filtered_by, by = c("df1_column_name" = "df2_column_name") 

incomplete_df %>%
  anti_join(complete_df, by = "column_2b_sorted") #returns rows mising in incomplete_df

#If column names are not the same:
incomplete_df %>%
  anti_join(complete_df, by = c("column_2b_sorted_incomplete" = "column_2b_sorted_complete") 

#include <stdio.h>
#include<time.h>
#define max 500
time_t start,end;
double tc;
void qsort(int[],int,int);
int partition(int[],int,int);
int main()
{
int a[50],n,i;
printf("enter the total number of elements :\n ");
scanf("%d",&n);
printf("\nEnter the elements to be sorted :\n");
for(i=0;i<n;i++)
scanf("%d",&a[i]);
printf("\nArray elements before sorting :\n");
for(i=0;i<n;i++)
printf("%d\t",a[i]);
start=clock();
qsort(a,0,n-1);
end=clock();
printf("\nArray elements after sorting :\n");
for(i=0;i<n;i++)
printf("%d ",a[i]);
tc=difftime(end,start)/CLOCKS_PER_SEC;
printf("time efficiency is %lf",tc);
}
 
void qsort(int a[],int low,int high)
{
int j;
if(low<high)
{
j=partition(a,low,high);
qsort(a,low,j-1);
qsort(a,j+1,high);
}
}
 
int partition(int a[],int low,int high)
{
int pivot,i,j,temp;
pivot=a[low];
i=low;
j=high+1;
do
{
do
i++;
while(a[i]<pivot&&i<=high);
do
j--;
while(pivot<a[j]);
if(i<j)
{
temp=a[i];
a[i]=a[j];
a[j]=temp;
}
}while(i<j);
a[low]=a[j];
a[j]=pivot;
return(j);
}

#include<stdio.h>
#include<time.h>
#define MAX 50
void mergesort(int a[],int low,int high);
void merge(int a[],int low,int high,int low1,int high1);
double tc;
time_t start,end;
void main()
{
int a[MAX],n,i;
printf("Enter total no of elements:\n");
scanf("%d",&n);
printf("Enter the elements to  be sorted:\n");
for(i=0;i<n;i++){
    printf("enter the %d elements : \n",i+1);
    scanf("%d",&a[i]);
    printf("\n");
}
start=clock();
mergesort(a,0,n-1);
end=clock();
printf("\nAfter merge Sorted elements are :\n");
for(i=0;i<n;i++)
printf("%d ",a[i]);
tc=difftime(end,start)/CLOCKS_PER_SEC;
printf("time efficiency is %lf",tc);

}
 
void mergesort(int a[],int i,int j)
{
int mid;
if(i<j)
{
mid=(i+j)/2;
mergesort(a,i,mid); 
mergesort(a,mid+1,j); 
merge(a,i,mid,mid+1,j); 
}
}
 
void merge(int a[],int low,int high,int low1,int high1)
{
int temp[50]; 
int i,j,k;
i=low; 
j=low1; 
k=0;
while(i<=high && j<=high1) 
{
if(a[i]<a[j])
temp[k++]=a[i++];
else
temp[k++]=a[j++];
}
while(i<=high) 
temp[k++]=a[i++];
while(j<=high1) 
temp[k++]=a[j++];

for(i=low,j=0;i<=high1;i++,j++)
a[i]=temp[j];
}