Harigami

Harigamiは、ログイン不要のコード共有サービスです。コードの投稿後に発行されるURLでコードを共有できます。
PythonやRubyなど一部の言語は、投稿後にオンラインで実行することもできます。
誰でも無料で使えて、広告もありません。コードレビューやスニペットの代わりに使ってみてください。

共有したいコードをここに入力しますコードの言語を選択できます

詳細設定

1 2 345 6 7 8…71 72

課題2の(6)

PHP

<?php
//list.txtを一行ごとの配列に格納、
// passwordフォームから入力されたものを$passwordに代入
$array = file("list.txt");
$password = @$_POST['password'];

// dltフォームに入った数値が存在すれば$dlt_numに代入
if ($dlt_num = @$_POST['dlt']) {
    for ($i = 0; $i < count($array); $i++) {
        $new_array = explode('<>', $array[$i]);
        if ($new_array[0] == $dlt_num) {
            $new_array = explode('<>', $array[$i]);
            $d_p = explode('****', $new_array[3]);
            //list.txt内にあるpasswordを確認し、$pwdに代入
            $pwd = $d_p[1];
            echo 'password:' . $password . "/" . 'pwd:' . $pwd;
            
            //フォームから入力された$passwordとlist.txt内に存在した$pwdが一致した場合の処理
            if ($password == $pwd) {
                unset($array[$i]);
                file_put_contents('list.txt', $array);
                echo "投稿を削除しました";
            } else {
                echo '削除できませんでした';
            }
        }
    }
}
?>

タイトルなし

PHP

<?php echo "Hello"; ?>

タイトルなし

PHP

<?php
$name = "";
$message = "";
$date = date("Y-m-d");
$filename = 'kadai2_3.txt';
if(isset($_POST["send"])==true){
    if(isset($_POST["name"])==true&&isset($_POST["message"])==true){
        $fp = fopen($filename, 'a');
        $name = $_POST["name"];
        $message = $_POST["message"];
        $i = count(file($filename))+1;
        fwrite($fp, $i."<>".$_POST["name"]."<>".$_POST["message"]."<>".$date."\n");
        fclose($fp);
    }
}
?>
<!DOCTYPE html>
<html>
<head>
<meta charset = “UFT-8”>
<title>簡易掲示板</title>
</head>
<body>
<h1>削除番号の送信</h1>
<label>削除番号：<input type="number"name="number"/></label>
<input type="submit" name="deleteSend" value="削除"/>
<?php
$ret_array = file( $filename );
foreach($ret_array as $value){
    $damy = explode("<>",$value);
    echo "</br>".$damy[0].$damy[1].$damy[2].$damy[3];
}
?>

</form>
<?php
echo 2;
if(isset($_POST["deleteSend"])==true){
    echo 3;
    $fp = fopen($filename, 'a');
    $ret_array = file( $filename );
    foreach($ret_array as $value){
        echo 4;
        $damy[] = explode("<>",$value);
        if($damy[0]!=$_POST["number"]){
            echo 1;
        }
    }
}
?>
</body>
</html>

タイトルなし

Python

import hashlib
m = "example@example.com"
for i in range(2):
  m = hashlib.md5(m.encode('utf-8')).hexdigest()

タイトルなし

Python

import hashlib
mail_address = "example@example.com"
md5_1 = hashlib.md5(mail_address.encode('utf-8')).hexdigest()
md5_2 = hashlib.md5(md5_1.encode('utf-8')).hexdigest()

タイトルなし

Python

//@version=3
strategy("pivot reverse", overlay=true)

//pivot
len=4
len2=20
pL = input(len,minval=1,title="left")
pR = input(len2,minval=1,title="right")
SL     = input(true,title="line")
maxLvlLen        = input(20,minval=0, title="line")
pvthi = pivothigh(pL,pR)
pvtlo = pivotlow(pL,pR)
swh = pivothigh(pL, pR)
swl = pivotlow(pL, pR)

//entry
swh_cond = not na(swh)

hprice = 0.0
hprice := swh_cond ? swh : hprice[1]

le = false
le := swh_cond ? true : (le[1] and high > hprice ? false : le[1])

if (le)
    strategy.entry("BUY", strategy.long, comment="L", stop=hprice + syminfo.mintick)

swl_cond = not na(swl)

lprice = 0.0
lprice := swl_cond ? swl : lprice[1]


se = false
se := swl_cond ? true : (se[1] and low < lprice ? false : se[1])

if (se)
    strategy.entry("SEL", strategy.short, comment="S", stop=lprice - syminfo.mintick)

//coler&etc.

counthi = 0.0 
counthi := pvthi[1] ? 0 : nz(counthi[1])+1
countlo = 0.0
countlo := pvtlo[1] ? 0 : nz(countlo[1])+1
pvthis = 0.0
pvthis := pvthi[1] ? high[pR+1] : pvthis[1]
pvtlos = 0.0
pvtlos := pvtlo[1] ? low[pR+1] :  pvtlos[1]
hipc = (pvthis != pvthis[1]) ? na : blue
lopc = (pvtlos != pvtlos[1]) ? na: red
h2l= (pvthis+pvtlos)/2
plot(SL and (maxLvlLen==0 or counthi<maxLvlLen)? pvthis : na, color=hipc, transp=30, linewidth=1, offset=-pR-1, title="H-line", trackprice=false)
plot(SL and (maxLvlLen==0 or countlo<maxLvlLen)? pvtlos : na, color=lopc, transp=30, linewidth=1, offset=-pR-1, title="L-line", trackprice=false)

タイトルなし

Python

    private void moveToWrapper(double pos_x, double pos_y, double pos_z, double qua_x, double qua_y, double qua_z, double qua_w) {
        final int LOOP_MAX = 20;
        final Point point = new Point(pos_x, pos_y, pos_z);
        final Quaternion quaternion = new Quaternion((float) qua_x, (float) qua_y, (float) qua_z, (float) qua_w);
        Result result = api.moveTo(point, quaternion, true);
        int loopCounter = 0;
        while (!result.hasSucceeded() && loopCounter < LOOP_MAX) {
            result = api.moveTo(point, quaternion, true);
            ++loopCounter;
        }
    }

タイトルなし

VisualBasic

Imports System.Data.Odbc
Imports System.Windows.Forms
Imports Microsoft.VisualBasic.ControlChars
Imports System.IO

Module Module1

Sub Main()

        Dim con As New System.Data.Odbc.OdbcConnection
        Dim command As New System.Data.Odbc.OdbcCommand
        Dim SyainTable As New DataTable


        '接続文字列
        con.ConnectionString = "DSN=TESTDB"

            'DBを開く
            con.Open()


            'トランザクション開始
            Dim tran As OdbcTransaction
            tran = con.BeginTransaction

            'SQLコマンド作成
            Dim sqlCom As New OdbcCommand

        Try


            '列項目作成（社員マスタテーブル）
            SyainTable.Columns.Add("社員コード", Type.GetType("System.String"))           '社員コード/ 文字列型
            SyainTable.Columns.Add("社員氏名", Type.GetType("System.String"))             '社員氏名  / 文字列型
            SyainTable.Columns.Add("社員英語", Type.GetType("System.String"))             '社員英語  / 文字列型
            SyainTable.Columns.Add("部門コード", Type.GetType("System.String"))           '部門コード/ 文字列型
            SyainTable.Columns.Add("部門名", Type.GetType("System.String"))               '部門名    / 文字列型
            SyainTable.Columns.Add("入社年月日", Type.GetType("System.DateTime"))         '入社年月日/ 日付型
            SyainTable.Columns.Add("年次", Type.GetType("System.DateTime"))               '年次      / 日付型
            SyainTable.Columns.Add("更新日時", Type.GetType("System.DateTime"))           '更新日時  / 日付型


            'command = con.CreateCommand



            'SQLクエリ
            Dim strSQL As String
            strSQL = ""
            strSQL = strSQL & "INSERT INTO "
            strSQL = strSQL & "社員マスタ "
            strSQL = strSQL & "("
            strSQL = strSQL & "社員コード, "
            strSQL = strSQL & "社員氏名, "
            strSQL = strSQL & "社員英語, "
            strSQL = strSQL & "部門コード, "
            strSQL = strSQL & "入社年月日, "
            strSQL = strSQL & "更新日時"
            strSQL = strSQL & ")"
            strSQL = strSQL & "VALUES"
            strSQL = strSQL & "("
            strSQL = strSQL & "?, "
            strSQL = strSQL & "?, "
            strSQL = strSQL & "?, "
            strSQL = strSQL & "?, "
            strSQL = strSQL & "?, "
            strSQL = strSQL & "?"
            strSQL = strSQL & ") "


            sqlCom = New OdbcCommand(strSQL, con)



            'パラメータ定義
            With sqlCom
                .Parameters.Add("@社員コード", OdbcType.VarChar)
                .Parameters.Add("@社員氏名", OdbcType.VarChar)
                .Parameters.Add("@社員英語", OdbcType.VarChar)
                .Parameters.Add("@部門コード", OdbcType.VarChar)
                .Parameters.Add("@入社年月日", OdbcType.VarChar)
                .Parameters.Add("@更新日時", OdbcType.VarChar)
            End With


            sqlCom.Transaction = tran

            Try


                '【重複用】sample.datの登録処理
                ' 重複ファイル パス定義
                Dim chohukuFile As String
                chohukuFile = "C:\Users\【重複用】sample.dat"

                Dim reader As New IO.StreamReader(chohukuFile, System.Text.Encoding.GetEncoding("shift_jis"))

                'ファイルの1行
                Dim line As String
                '行の項目の配列
                Dim item() As String
                '1行読んで何もしない(ヘッダーを飛ばす）
                line = reader.ReadLine
                '次の行を読む
                line = reader.ReadLine

                '1行が無くなるまでループ
                Do Until IsNothing(line)

                    'タブで区切る
                    item = line.Split(Tab)

                    'もし社員コードが5桁に満たない場合、左0埋めの5桁形式にする
                    If item(0).Length <= 5 Then

                        item(0) = item(0).PadLeft(5, "0")

                    End If

                    'もし部門コードが3桁に満たない場合、左0埋めの3桁形式にする
                    If item(3).Length <= 3 Then

                        item(3) = item(3).PadLeft(3, "0")

                    End If

                    '次の行を読む
                    line = reader.ReadLine
                Loop

                reader.Close()




                'sample.datファイルの存在チェック
                Dim addFile As String = "C:\Users\sample.dat"
                'sample.datファイルが存在する時の処理
                If System.IO.File.Exists(addFile) Then

                    For s As Integer = 1 To 1

                        'パラメータ追加
                        With sqlCom
                            .Parameters("@社員コード").Value = "00004"
                            .Parameters("@社員氏名").Value = "追加　太郎"
                            .Parameters("@社員英語").Value = "taro tsuika"
                            .Parameters("@部門コード").Value = "001"
                            .Parameters("@入社年月日").Value = "2004/04/01"
                            .Parameters("@更新日時").Value = "2020/02/01"
                        End With
                        'SQL実行
                        sqlCom.ExecuteNonQuery()


                        With sqlCom
                            .Parameters("@社員コード").Value = "00005"
                            .Parameters("@社員氏名").Value = "追加　花子"
                            .Parameters("@社員英語").Value = "Hanako Tsuika"
                            .Parameters("@部門コード").Value = "001"
                            .Parameters("@入社年月日").Value = "2005/10/01"
                            .Parameters("@更新日時").Value = "2020/02/02"
                        End With
                        'SQL実行
                        sqlCom.ExecuteNonQuery()


                        With sqlCom
                            .Parameters("@社員コード").Value = "00006"
                            .Parameters("@社員氏名").Value = "追加　次郎"
                            .Parameters("@社員英語").Value = "JIRO tsuika"
                            .Parameters("@部門コード").Value = "002"
                            .Parameters("@入社年月日").Value = "2006/09/01"
                            .Parameters("@更新日時").Value = "2020/01/31"
                        End With
                        'SQL実行
                        sqlCom.ExecuteNonQuery()


                    Next

                    'コミットする
                    sqlCom.Transaction.Commit()
                    MessageBox.Show("データの更新が完了しました。", "通知")

                Else

                    MessageBox.Show("該当フォルダにadd.datファイルが存在しません", "通知")

                End If

            Catch ex As Exception

                'ロールバック
                tran.Rollback()
                'エラーメッセージ
                MessageBox.Show("SQL実行箇所でのエラーです", "エラー")

            End Try



            'DataTableの中身を出力する処理
            'datファイルパス定義
            Dim FilePath As String
            FilePath = "output.dat"

            'output.datに出力
            '書き込むファイルを開く
            Dim sw As New System.IO.StreamWriter(FilePath, False, System.Text.Encoding.GetEncoding("shift_jis"))

            Dim colCount As Integer = SyainTable.Columns.Count
            Dim lastColIndex As Integer = colCount - 1

            'ヘッダを書き込む
            Dim i As Integer
            For i = 0 To colCount - 1

                'ヘッダの取得
                Dim field As String = SyainTable.Columns(i).Caption
                'フィールドを書きこむ
                sw.Write(field)

                Debug.Print("現在のfieldの値は" & field)

                'タブ区切りで書き込む
                If lastColIndex > i Then

                    sw.Write(Tab)

                End If

            Next

            '改行する
            sw.WriteLine()


            'レコードを書き込む
            For Each row In SyainTable.Rows

                ' ====== 入社年月日をyy年mm月の表記にする ======
                Dim Nyusya As DateTime
                Nyusya = row("入社年月日")
                ' ====== 更新日時をyy年mm月dd日の表記にする ======
                Dim Kosin As DateTime
                Kosin = row("更新日時")

                '====== 年次を算出する ======
                '現在の日時取得

                Dim dtNow As Date = Now
                '====== テスト太郎の入社年月日 ======
                Dim TaroDay As Date = "2001/4/1"
                ' 年を求める
                Dim TaroYear As Integer
                TaroYear = DateDiff(DateInterval.Year, TaroDay, Now)
                ' 月を求める
                Dim TaroMonth As Double
                TaroMonth = DateDiff(DateInterval.Month, TaroDay, Now) Mod 12

                '====== テスト花子の入社年月日 ======
                Dim HanakoDay As Date = "2002/4/1"
                ' 年を求める
                Dim HanakoYear As Integer
                HanakoYear = DateDiff(DateInterval.Year, HanakoDay, Now)
                ' 月を求める
                Dim HanakoMonth As Double
                HanakoMonth = DateDiff(DateInterval.Month, HanakoDay, Now) Mod 12

                '====== テスト次郎の入社年月日 ======
                Dim JiroDay As Date = "2003/4/1"
                ' 年を求める
                Dim JiroYear As Integer
                JiroYear = DateDiff(DateInterval.Year, JiroDay, Now)
                ' 月を求める
                Dim jiroMonth As Double
                jiroMonth = DateDiff(DateInterval.Month, JiroDay, Now) Mod 12

                'Nenji変数に格納
                'Dim Nenji As Integer
                'Nenji = TaroYear & Format(TaroYear, "年") & TaroMonth & Format(TaroMonth, "ヵ月") & HanakoYear & Format(HanakoYear, "年") & HanakoMonth & Format(HanakoMonth, "ヵ月") & JiroYear & Format(JiroYear, "年") & jiroMonth & Format(jiroMonth, "ヵ月")


                'row("年次") = TaroYear & Format(TaroYear, "年") & TaroMonth & Format(TaroMonth, "ヵ月").ToString() & Tab


                Dim strTSV As String

                strTSV = ""
                '社員コード
                strTSV = strTSV & row("社員コード").ToString() & Tab
                '社員氏名
                strTSV = strTSV & row("社員氏名").ToString() & Tab
                '社員英語
                strTSV = strTSV & row("社員英語").ToString() & Tab
                '部門コード
                strTSV = strTSV & row("部門コード").ToString() & Tab
                '部門名
                strTSV = strTSV & row("部門名").ToString() & Tab
                '入社年月日
                strTSV = strTSV & Nyusya.ToString("yy年mm月") & Tab
                '年次（太郎）
                strTSV = strTSV & TaroYear & Format(TaroYear, "年") & TaroMonth & Format(TaroMonth, "ヵ月").ToString() & Tab
                '年次（花子）
                strTSV = strTSV & HanakoYear & Format(HanakoYear, "年") & HanakoMonth & Format(HanakoMonth, "ヵ月").ToString() & Tab
                '年次（次郎）
                strTSV = strTSV & JiroYear & Format(JiroYear, "年") & jiroMonth & Format(jiroMonth, "ヵ月").ToString() & Tab
                '更新日時
                strTSV = strTSV & Kosin.ToString("yy年mm月dd日")

                Debug.Print("strTSVの値は" & strTSV)

                '改行する
                sw.WriteLine(strTSV)


            Next


            sw.Close()


            'コード全体のTry - Catch
        Catch ex As Exception

            MessageBox.Show(ex.Message, "エラー”)




        Finally

            '接続終了処理
            SyainTable.Dispose()
            sqlCom.Dispose()
            con.Close()
            con.Dispose()



        End Try


    End Sub


End Module

タイトルなし

PHP

<?php  
$dataFile ='index.txt';  
if ($_SERVER['REQUEST_METHOD'] == 'POST') 
{
if (isset($_POST['delete'])) {

$delete = $_POST['deleteNo'];
$delCon = file("index.txt");
for ($j = 0; $j < count($delCon) ; $j++){ 
$delData = explode("<>", $delCon[$j]);

if ($delData[0] == $delete) { 
array_splice($delCon, $j, 1);
file_put_contents($dataFile, implode("\n", $delCon));
}
}
} else {
//入力フォームのデータを受け取る
  $count = (sizeof(file($dataFile)) + 1);
  $message = ($_POST['message']);  
  $user = ($_POST['user']);  
  $postedAt = date('Y-m-d H:i:s');  

  // まとめた変数
  $newData = $count."<>".$message."<>".$user."<>".$postedAt. "\n"; 

  $fp = fopen($dataFile,'a');  
  fwrite($fp, $newData);  
  fclose($fp);  
}
}  
 ?>  

<!DOCTYPE html>
<html lang="ja">
  <head>
      <meta charset="UTF-8" />
      <title>簡易掲示板</title>
  </head>
  <body>
      <h1>簡易掲示板</h1>
      <form action="" method="post">
      <p> コメント: <input type="text" name="message"></p>
      <p>名前: <input type="text" name="user"></p>
      <input type="submit" value="投稿">
      </form>
      <!--削除用の入力フォーム-->
      <form action="" method="post"> 
      <p>削除対象番号<input type="text" name="delete"></p> 
      <input type="submit" name="deleteNo" value="削除"> 
     </form>
    
    <?php
    // ファイルの内容を配列に格納 
    $file_name = file("index.txt");

    for($i=0;$i<count($file_name);++$i){
    $file_names=explode("<>",$file_name[$i]);
    // 改行しながら値を表示 
    echo $file_names[0]."</br>";
    echo $file_names[1]."</br>";
    echo $file_names[2]."</br>";
    echo $file_names[3]."</br>";
    }
    ?>

  </body>
</html>

タイトルなし

PHP

yes()

1 2 345 6 7 8…71 72