wasipo

fffffffffffffdgdgf

wasipo

<?php 

                /*functions.php*/
                function getLastID($ID) {
                    global $posts;
                    $i = count($posts);
                    return $posts[$i-1]->ID == $ID;
                }
                
                /*index.php*/						

wasipo

header-moge.phpが作ってある前提で
<?php get_header("moge"); ?>
footer-moge.phpが作ってある前提で
<?php get_footer("moge"); ?>
#多分サイドバーでもできたはず

wasipo

投稿IDからカテゴリの取得
<?php

function categoryGet($postID) {
    $cat = get_the_category($postID);
    return $cat[0]->name;
}

categoryGet($post->ID);

wasipo

$args = array(
　　　　　'user_login' => $userdata["user"],        
　　　　　'user_pass' => $userdata["pass"],        
　　　　　'user_email' => $userdata["mail"],        
　　　　　'user_url' => '',        
　　　　　'user_nicename' => $userdata["user"],        
　　　　　'display_name' => $userdata["view_name"],        
　　　　　'user_registered' => date('Y-m-d H:i:s'),        
　　　　　'nickname' => $userdata["user"],        
　　　　　'first_name' => '',        

wasipo

#注意書きの削除
add_filter("comment_form_defaults","jyama");
function jyama($args){
    $args['comment_notes_after'] = ''; #メールについての文言
    $args['comment_notes_before'] = ''; #タグについての文言
    return $args;
}

wasipo

Sub abesi()
    Debug.Print (Val("12月は寒いよまじで"))
End Sub

wasipo

Sub abesi()

Dim meruadomodoki As String

meruadomodoki = "megapi@pon.jp"

pos = InStrRev(meruadomodoki, "@")
user = Mid(meruadomodoki, pos + 1)
Debug.Print (user)

wasipo

Sub abesi()

    Dim obj As Object
    Set obj = CreateObject("Scripting.FileSystemObject")

    For Each file In obj.GetFolder("c:\hoge\").Files
            Debug.Print (file.path)
    Next

End Sub

wasipo

Sub abesi()

    Dim lastRow As Integer
    Dim lastColumn As Integer

        lastRow = ActiveSheet.Range("A1").End(xlDown).Row
        lastColumn = ActiveSheet.Range("A1").End(xlToRight).Column