精神病について

色々な種類があると思いますが、どうなんでしょうか。

薬で抑えたりは出来るのでしょうが、接客業をしていくのは、実際どうなんでしょうか。

10年近く服用していても治らないみたいです。

薬を飲まないと人格崩壊をするらしく人間が変わってしまうようです。

精神病で通常に仕事をする場合、それを隠して、しても良いのでしょうか。

しっかり隠せているなら良いのですが。

私の職場に、そういう人がいるのですが、いきなり性格が変わって暴言を吐いて接客まで危うくなるのですが。

スタッフだけになら、まだフォローも出来ますが、お客様相手の仕事ですので。

接客が出来なくなるのは…。

最後に一つ、決して精神病をバｶにしてるわけではありません。

対応に困っています。

長文になりスミマセン。

こちらの「精神科医に質問」スレッドへ移動願います。
http://society3.2ch.net/test/read.cgi/hosp/1102598439/l50

そうします。

スミマセン。

かとちゃん、屁゜

呼んだ？

上野御徒町(都営大江戸線)→上野スカイライナー

ここがらんとしてて気持ちいい。

竹由は童貞でオナホール愛用者(　´,_ゝ｀)ﾌﾟｯ

け

>>1 さあ、割り箸詰め作業に戻ろうか
　 　 　 i　　　　 　 　 　 　 |　　　|
　　 　 |　　　　　＿＿＿__人＿_/
　 　 　 i_,,,　　r´＿　　　　 　 ＿〉
　 　 　（(ﾃヽ!´ _ 　 _ 　　 ／_　 _ｊ
　　　 　 ゝ_i　　 ￣　　　 | 　 ￣ i
　　　　　 ゝ　ヽ　　　(_､__ｊ_)ヽ　 ﾉ
　　　 , イ　ヽ、 　 　 　 ii　　 ／
　　／　　 ＼　ヽ　　＝ﾆ＝ /
／　　　　　　＼ ｀ーj---‐i´i＼
　　　　　　　　 　＼/　　　 !j　　＼
　 　　　 _ ,,,,_　　/＼　　　　　 　 　＼ ,c､.c､
　＿__/´　､、ヽ/i　 :|三三三三三三三＼.ヽ.ヽ二ｌ　
　　//　＼ ＼/ .i /　　　　 　 　　 　,.-､-､|　|: |
　　| | ､＼ ＼ ＼!　　　　　 　 　 　 |:|　　 　 　 !
　　| ヽ_,ｒ.'＼rj)､rj)　　　　　　　　　 !|　　 　 　 |
　　＼___/　 /　　　　　 　 　 　 　 　 |　 　 　 /

main
{
txstr a;
txstr b;

a = \"c:\を\";
jumpfiletop();//カーソルを文章先頭に動かす
getpara(b);//カーソル段落の内容をbに取得します。
a=a+b;
TX* text2 = textopen(a);
txSave(text2);
textclose(text2);
while(nextpara())
{
a = \"c:\を\";
getpara(b);//カーソル段落の内容をbに取得します。
a=a+b;
TX* text2 = textopen(a);
txSave(text2);
textclose(text2);
};
}

大丈夫だと思いますよ。

FindFirst FindNext FindClose

'ファイルツリー出力
'ファイルツリーをftreeout.txtに出力します。
'最初のダイアログで、ルートにするフォルダを選びます。
Dim sLine,sRootDir,sOutFile
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = WScript.CreateObject("Shell.Application")
sOutFile="ftreeout.txt"
If WScript.Arguments.Count>0 Then
sRootDir=WScript.Arguments(0)
End If
If Fs.FolderExists(sRootDir) Then
Set oRootDir = Shell.NameSpace(sRootDir)
Else
Set oRootDir = Shell.BrowseForFolder(0,"ルートフォルダの選択",0)
If IsEmpty(oRootDir) Then WScript.Quit
End If
Set ts=Fs.CreateTextFile(sOutFile,True)
ts.WriteLine oRootDir.Title
Search oRootDir.Items.Item 'oRootDir.Self 'Win2000の場合
ts.Close
WScript.Echo "終了"

Sub Search(obj)
Dim I
I=1
If obj.IsFolder Then
Set oItems=obj.GetFolder.Items
For Each child In oItems
If child.IsFolder Then
tmp= "■" & child.Name
Else
tmp= child.Name
End If

If I=oItems.Count Then
ts.WriteLine sLine & "┗" & tmp
sLine=sLine & "　"
Else
ts.WriteLine sLine & "┣" & tmp
sLine=sLine & "┃"
I=I+1
End If
Search child
Next
End If
If Len(sLine)>0 Then
sLine=Left(sLine,Len(sLine)-1)
End If
End Sub

http://www.atmarkit.co.jp/fwin2k/operation/command003/command2.html

|(-_-)|